本人初学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