rowen看过来

manwen

我参照别人的例子写了下面一段 Private Sub Command1_Click() On Error Resume Next Dim prtword As Word.Application Err.Clear Set prtword = GetObject(, "Word.Application") If Err.Number <> 0 Then Set prtword = CreateObject("word.application") prtword.Documents.Open App.Path & "\file1.doc" '在这里执行一些填写操作 ActiveDocument.SaveAs App.Path & "\file2.doc" set prtword=nothing end sub 运行时发现，第一次点击command1能正确执行，如果继续点击，虽然由于file2.doc已经存在而无法保存，但是填写还是正确的。可是如果此时我把word2000的整个环境关闭，再继续点击command1就出错了，表现为只能打开file1.doc，而没有执行填写操作，系统也不提错。 问这是什么原因，如何解决？谢谢

manwen

如果我不想关闭word，而是填写完就直接看填写的结果，然后继续再填写另一份，怎么才能正确处理。

惊叹不已

那你最好分开写代码,在Form_Load事件中创建Word对象,在按钮事件中填写内容到Word,这样你需要填写一份时就按一次按钮就行了,不会重复创建Word而出错.

惊叹不已

set prtword=nothing 只是清除了对象变量,并没退出Word,所以要在此句前面加上 prtword.Quit 另外,系统不提示错误,是因为用了错误处理语句On Error Resume Next,意思是遇到错误时将继续执行下一语句.