版主：vb调用word如何释放内存？

shaobolu

Dim MyWord As New Word.Application If MyWord Is Nothing Then Set MyWord = CreateObject("word.Application") Err.Clear Set MyWord = GetObject(, "word.Application") If Err Then MsgBox Err.Description Exit Sub End If End If

Err.Clear

With MyWord .Visible = True .Documents.add

End With

……处理过程 MyWord.ActiveDocument.SaveAs WordFileName

Set MyWord = Nothing 如果我运行这个程序前，已经打开word，那么我发现内存有两个word，怎么办？

好像ppt等其它不会有这个问题？谢谢

守柔

试试这个不知是否可行

Sub test() Dim MyWord As New Word.Application On Error Resume Next Word.Application.Visible = True If Err.Number <> 429 Then Set MyWord = GetObject(, "word.Application") Else Set MyWord = CreateObject("word.Application") End If 'If Err Then ' MsgBox Err.Number ' Exit Sub ' End If 'Err.Clear With MyWord .Visible = True .Documents.Add End With

Msgbox "This is only a test!" 'MyWord.ActiveDocument.SaveAs WordFileName Set MyWord = Nothing End Sub

shaobolu

谢谢，我后来这样用：

Dim MyDoc As New Document 发现能够自动判断内存，很好用