VB调用word宏之后第二次想再使用出现错误代码462
用VB6.0制作了一个功能按钮,将word的宏放入并且直接生成word文件。由于word内有格式。所以用了word的宏来制作并替换之
但是同一按钮只能按一次,并且第二次再按,就算是关闭了整个程式都不能再使用word的宏进行内同替换。必须要在任务管理器那里关闭了word那个进程才可以再一次替换,可能有点乱,先将代码附上,麻烦各位大神帮忙解决下,本人新手虚心学习。
错误代码为实时错误462
Private Sub Command1_Click()
Dim MyWord As Object
Dim MyWordBook As Word.Document
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = False '设置WORD可见
Set MyWordBook = MyWord.Documents.Open("E:\1.doc")
MyWordBook.Activate
With MyWordBook
Selection.MoveDown Unit:=wdLine, Count:=7
Selection.TypeText Text:=Text1.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Text2.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Text3.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Text4.Text
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=Text5.Text
End With
MyWordBook.SaveAs FileName:="c:\aa.doc"
MyWordBook.Close
MyWord.Quit
Set MyWordBook = Nothing
Set MyWord = Nothing
MsgBox "操作完毕", vbOKOnly, "提醒"
End Sub