VB编辑word，不弹出word窗口。

''下面说vb把剪贴板里面的内容保存到word,保存前清空word
Dim filename As String '定义文件路径
filename = App.Path & "\2.doc"
Dim wodapp As Word.Application '创建word组件
Set wodapp = New Word.Application
wodapp.Visible = False '定义word 程序不可见
wodapp.Application.Documents.Open filename:=filename '打开文件
wodapp.Application.Selection.WholeStory '全选
wodapp.Application.Selection.Paste '粘贴剪贴板内容到word
wodapp.Application.Documents.Close '关闭对象一定要写，否则会出现只读情况
wodapp.Quit
Set wodapp = Nothing '释放对象
...........................................................................................................................................................
就是执行上面这串代码，但是不弹出word窗口

wodapp.Visible = False '定义word 程序不可见

改为true 就会弹出。

private sub document_open() msgbox ("欢迎你") end sub