vb打开word出错

Question

我的语句如下：
Set wdapp = New Word.Application
Set wddoc = Word.Documents.Open(App.Path & "\3.doc")
wdapp.Visible = True
wddoc.SaveAs App.Path & "\" & txtin2(6) & "表三.doc"
      'wddoc.Close
      'wdapp.Quit
      'Set wddoc = Nothing
      'Set wdapp = Nothing
wdapp.Quit   '退出Word
Set wdapp = Nothing
但第一次打不会出错 但第二次打开时运行到Set wddoc = Word.Documents.Open(App.Path & "\3.doc")出错总提示“远程服务器不存在或不能使用

Answer 1

你改下代码
Set wdapp = New Word.Application 
Set wddoc = wdapp.Documents.Open(App.Path & "\3.doc") 
wdapp.Visible = True 
wddoc.SaveAs App.Path & "\" & txtin2(6) & "表三.doc" 
      'wddoc.Close 
      'wdapp.Quit 
      'Set wddoc = Nothing 
      'Set wdapp = Nothing 
wdapp.Quit   '退出Word 
Set wdapp = Nothing 这样试试

Answer 2

Option ExplicitPrivate Sub Command1_Click()
        On Error Resume Next
        Dim Word As Object, A As Object
        Set Word = CreateObject("Word.Application")
        If InStr(Command1.Caption, "打开") > 0 Then     '打开Doc文件
              Set A = Word.Documents.open("F:\第一季度工作小结.doc")
              Word.Visible = True
              Command1.Caption = "关闭"
        Else
              '如果文档对象不为空，那么说明打开了文档，关闭它，并销毁文档对象
                If Not (A Is Nothing) Then A.Close: Set A = Nothing
              '如果word   application对象不为空，那么说明创建了word对象，
                '退出它，并销毁对象
                If Not (Word Is Nothing) Then Word.Quit: Set Word = Nothing
              Command1.Caption = "打开"
        End IfEnd SubPrivate Sub Form_Load()
        Command1.Caption = "打开"
End Sub