如何在重命名文件之前确保文件已关闭

Question

我使用Appword.documents.open打开word文档，并用appword.quit关闭它们。然后，在一个名为ProcessData的函数中，应用程序重命名文档。

我遇到的问题是，在代码试图重命名它之前，文件还没有关闭。在尝试重命名之前，如何确保word文档已关闭？

WordDoc = AppWord.Documents.Open(filepath + filename)
txtFileContents.Text = WordDoc.Content.Text
AppWord.Quit()

ProcessData(txtFileContents.Text, filepath, filename)

这就是在ProcessData函数中重命名文档的原因：

My.Computer.FileSystem.RenameFile(fPath + fName, NewName + ".doc")

Answer 1

您不应该仅仅使用应用程序Quit ()方法来关闭文档。使用：

WordDoc.Close
Set WordDoc = Nothing

然后调用退出方法。

Answer 2

WordDoc.Close()
AppWord.Quit()
AppWord=nothing
WordDoc=nothing