在已经有ThisDocument的情况下再加一个新的

在已经有 ThisDocument 的情况下，你可以使用 Set 语句将一个新的 Document 对象赋值给 ThisDocument，比如：

Sub AddNewThisDocument()
    Set ThisDocument = Documents.Add
End Sub

这个代码会创建一个新的文档，并将它赋值给 ThisDocument 对象，这样你就可以在 Word 对象中同时访问两个文档了。注意，这个代码应该在 ThisDocument 对象已经存在的情况下运行，否则会出错。