Question

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

Answer 1

wdApp.Selection.Rows.Height = CentimetersToPoints(0.8)
修改此句
wdApp.Selection.Rows.Height = wdApp.CentimetersToPoints(0.8)

Answer 2

先做个批处理，结束word进程的，把 Word对象.Quit 注释掉，问题就没了

Answer 3

加New 关键字
Dim wdApp As New Word.Application