以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  word文件合并过程中设置为不显示，但发布后不知道为什么仍然显示？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95057)
--  作者：包头123
--  发布时间：2017/1/9 12:00:00
--  word文件合并过程中设置为不显示，但发布后不知道为什么仍然显示？
版主：
    下述语句在开发版中运行时，不显示Word文件，但在编译后，运行编译版本，就进入了word，一开始显示出内容，后来就不显示内容，但并没有退出word文件。不知道为什么？
Dim app As New MSWord.Application
try
    Dim doc1 = app.Documents.Open(ProjectPath & "testword\\test1.docx")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.Copy
    Doc1.Close
    Dim doc2 = app.Documents.Open(ProjectPath & "testword\\test2.docx")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.Paste
    app.Documents.save
\'    app.visible = True
    doc2.Close

catch ex As exception
    msgbox(ex.message)
    app.quit
finally
--  作者：有点色
--  发布时间：2017/1/9 12:05:00
--  

首先，你调出任务管理器，把word的全部进程都结束掉。

 

然后运行下面代码

 

Dim app As New MSWord.Application
try
    app.DisplayAlerts = False
    Dim doc1 = app.Documents.Open(ProjectPath & "testword\\test1.docx")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.Copy
    doc1.saved = True
    Doc1.Close
    Dim doc2 = app.Documents.Open(ProjectPath & "testword\\test2.docx")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.Paste
    app.Documents.save
    doc2.Close
    app.quit
   
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

 
--  作者：包头123
--  发布时间：2017/1/9 14:39:00
--  
谢谢了。