各位大哥进来帮小弟个忙！

Question

Private Sub Command1_Click()
Dim docApp As New Word.Application
Dim docDoc As Word.DocumentSet docDoc = docApp.Documents.AdddocDoc.Activate'写入你的文字内容
docDoc.Range(0, 0) = "fdsfsdfsdf"'docDoc.SaveAs (App.Path & "\test.doc")
docDoc.Close
docApp.QuitEnd Sub问题：当关闭打开的文挡时就会提示实时错误＂４１９８＂．命令失败．错误行指向"docdoc.close"
　　　请各位大哥告诉小弟怎么改正才好．要是前边加个错误捕获的话能处理了错误．但是就出现第　　　二次不能显示文档的问题．只有你把运行的工程关闭，重新运行时才能显示．
　　　

Answer 1

Private Sub Command1_Click()
    Dim docApp As New Word.Application
    Dim docDoc As Word.Document
    
    Set docDoc = docApp.Documents.Add
    
    docDoc.Activate
    
    '写入你的文字内容
    docDoc.Range(0, 0) = "fdsfsdfsdf"
    
    'docDoc.SaveAs (App.Path & "\test.doc")
    docDoc.Close False '<--------------------------------------改这句
    docApp.QuitEnd Sub

Answer 2

但是就出现第　　　二次不能显示文档的问题．只有你把运行的工程关闭，重新运行时才能显示
----------------------------------------------
这个是因为代码里有docApp.Quit，每次打开后就马上关闭了，所以不显示，你把它注释掉再试试

Answer 3

faysky2()大哥．我弄错了．上边的程序加一个错误捕获是可以用的．但是把他改成下这样就不行了．就出现了我一开始说的毛病．
Private Sub Command1_Click()
On Error GoTo connecterr
Dim docApp As New Word.Application
Dim docDoc As Word.Document
Dim docsle As Word.SelectionSet docDoc = docApp.Documents.AdddocDoc.Activate'写入你的文字内容
'docDoc.Range(0, 0) = "" & rs!wzh & ""
Selection.Font.Size = 16
Selection.Font.Name = "方正黄草简体"
Selection.TypeText Text:="欢迎到来"
'docDoc.SaveAs (App.Path & "\test.doc")
docDoc.Close
docApp.Quit
connecterr:
End Sub
问题：当在进程里没有winword在运行时,第一次可以显示.但是关闭文档,第二次打开时就不能显示文档了.只有关闭运行的工程重新打开才好使.因为有错误捕获的关系就没有错误提示.