VB调用WORD时出现462错误：远程服务器不存在或不能使用，如何解决？

本人初学vb，以下代码是我程序中截取的，程序要求在不关闭情况下可多次运行，但是在第二次运行时就出现462错误提示：远程服务器不存在或不能使用，烦请高人指点。谢谢！

Option Explicit

'Dim wdApp As Object
Dim wdApp As Word.Application
Dim NT As Long
Dim IT As Long

Private Sub Command1_Click()
  ' If wdApp Is Nothing Then
  ' Set wdApp = CreateObject("word.application ")
  ' Else
  ' Set wdApp = GetObject(" ", "word.application ")
  ' End If
  '--------为什么用上段代码不行？  
 Set wdApp = New Word.Application
 wdApp.Visible = True
 wdApp.Documents.Open ("F:\注释：公司221819.doc") ' 该文档含很多表格
 NT = wdApp.ActiveDocument.Tables.Count
  For IT = 1 To NT
  Debug.Print IT

  With wdApp.ActiveDocument.Tables(IT)
  .Select
  wdApp.Selection.Rows.HeightRule = wdRowHeightAtLeast '行高类型为最小值
  wdApp.Selection.Rows.Height = CentimetersToPoints(0.8) '行高 '第二次运行时就在这里提示462错误：远程服务器不存在或不能使用。 不要在程序尾加End方法。
  End With
  Next
  wdApp.Visible = True
  wdApp.ActiveDocument.Close
  wdApp.Quit
  Set wdApp = Nothing
   
End Sub

应该使用这个，new和createobject还是有差别的，前者不会创建占用代理，你该句的application后面多了个空格
Set wdApp = CreateObject("word.application ")