VB提示"远程服务器不存在或不能使用" 如何解决??
Private Sub Command2_Click(Index As Integer)
Dim num As Integer
Dim apl As New word.Application
Select Case Index
Case 0
apl.documents.Open App.Path & "\Word\1.doc"
apl.Visible = False
apl.Run "Macro1"
With ActiveDocument
RowCount = .BuiltInDocumentProperties("Number of lines")
Selection.HomeKey wdStory
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=RowCount
Text1(0).Text = Right(.Bookmarks("\Line").Range, 1)
End With
apl.documents.Close
apl.Quit
Case 1
apl.documents.Open App.Path & "\Word\2.doc"
apl.Visible = False
apl.Run "Macro1"
With ActiveDocument
RowCount = .BuiltInDocumentProperties("Number of lines")
Selection.HomeKey wdStory
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=RowCount, Name:=""
Text1(1).Text = Right(.Bookmarks("\Line").Range, 1)
End With
apl.documents.Close
apl.Quit
End Select
End Sub
上面代码是我在VB里用按钮打开word并且读取woed里面最后一行最后一个字
按钮是数组,第一执行代码没问题,再执行时,VB提示"远程服务器不存在或不能使用"
该如何解决