欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

打开word后,不能进行操作。解决办法

更新时间: 2014-05-13 02:00:28 责任编辑: Author_N2

 

打开word后,不能进行操作。
本来在word中使用vba编写,后来由于需要关闭word程序,所以将代码移到vb6中。
问题:循环第一次时,一切正常,文档可以打开、可以移动光标、输入文字、也能正常保存退出;
循环第二次时,问题就出现了,位置在 Selection.TypeText "Hello",不能移动光标、也不能输入文字。错误提示为:
Run-time error '462':
The remote server machine does not exist or is unavailable.

代码如下:
Sub test()
  Dim mWord As New Word.Application
  Dim doc As Word.Document
  Dim i As Long
   
  '以下代码循环3次
  For i = 1 To 3
  '打开文档
  Set mWord = CreateObject("word.application")
  mWord.Visible = True
  Set doc = mWord.Documents.Open("C:\Doc1.doc")
  doc.Activate
  Selection.TypeText "Hello" '运行此语句出错
  '保存关闭文档
  doc.Save
  doc.Close
  Application.Quit
  Set doc = Nothing
  Set mWord = Nothing
  Next
End Sub

--参考方法--
Sub test()
Dim appWD As Word.Application
Dim doc As Word.Document
Dim i As Long

'以下代?循?3次
For i = 1 To 3
'打?文?
Set mWord = CreateObject("word.application")
mWord.Visible = True
Set doc = mWord.Documents.Open("D:\111.docx")
'Doc.Activate
'Selection.TypeText Text = "Hello"
doc.ActiveWindow.Selection.TypeText ("HELLO")
'保存??文?
doc.Save
doc.Close
mWord.Quit
Set doc = Nothing
Set mWord = Nothing
Next
End Sub
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-05-13 02:00:28
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/134401/
本文WWW.DOC100.NET DOC100.NET版权所有。