VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 884|回复: 4

[求助] VB新建立Word文档,如何使之以隐藏方式建立但不隐藏原有打开的word?

[复制链接]
发表于 2017-9-12 17:12:33 | 显示全部楼层 |阅读模式
请教大家:
       VB新建立Word文档,如何使之以隐藏方式建立但不隐藏原有打开的word?
即:   通过VB以隐藏方式新建一个word文档(必要时才可见);新建时如果存在已经打开的word文档,不要一起隐藏该文档,只需隐藏新建文档。
      请问如何写代码呢?下面的代码毫无作用,如果加上Newdoc.Application.Visible = False 则会把原有打开的word也一起隐藏了:
  1.         On Error Resume Next
  2.         Dim Newdoc As Object, NewWord As Word.Application
  3.         Set NewWord = Nothing
  4.         Set NewWord = GetObject(, "Word.Application")
  5.         If NewWord Is Nothing Then Set NewWord = CreateObject("Word.Application")
  6.         Set Newdoc = NewWord.Documents.Add
  7.         Windows(Newdoc).Visible = False
复制代码
 楼主| 发表于 2017-9-12 17:51:11 | 显示全部楼层
发现修改一处可以了:Dim Newdoc As Word.Document原来是 Dim Newdoc As Object
不过不足的是,新建的一瞬间,还是能看到文档的打开和隐藏。
回复 支持 反对

使用道具 举报

发表于 2017-9-20 21:19:18 | 显示全部楼层
dim wd as object
dim doc as object
set wd = createobject("word.application")
wd.visible = true
set doc = wd.documents.add

评分

参与人数 1威望 +8 人气 +1 收起 理由
bruly + 8 + 1 很给力

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-27 09:39:58 | 显示全部楼层
loquat 发表于 2017-9-20 21:19
dim wd as object
dim doc as object
set wd = createobject("word.application")

原来是新建一个办公系统而不是续用上一个。非常感谢。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-9-27 10:10:05 | 显示全部楼层
loquat 发表于 2017-9-20 21:19
dim wd as object
dim doc as object
set wd = createobject("word.application")

原来是新建一个办公系统而不是续用上一个。非常感谢。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-11-18 14:39

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表