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

Question

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

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

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

然后调用Quit方法。

Answer 2

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