通过 Excel Vba 在两个新创建的 Word 文档之间切换不会发生
Switching between two newly created Word Documents through Excel Vba is not happening
我通过Excelvba新建了两个Word文档，还没有保存。文档创建为“Document1”和“Document2”。当我尝试在文档之间切换时，我收到 Document2 的错误文件名错误 4160。请帮我解决这个问题。
Sub DocSwitch()
Dim s As Object
Set s = Word.Application.Selection
Documents("Document1").Select
s.TypeText Text:="Hello"
Documents("Document2").Select
s.TypeText Text:="Hi"
End Sub
创建文档时，将它们分配给文档变量。
Dim WordApp as application
Set WordApp = Word
Dim MyDoc1 as Document
Dim MyDoc2 as Document
Set MyDoc1 = WordApp.Documents.Add
Set MyDoc2 = WordApp.Documents.Add
上面的代码只是在此处即时输入的，可能需要一些调整，但应该能给您思路。然后，在您的代码中，使用您的变量来引用特定文档。
因此，与其引用 Documents(Document1)，不如引用 MyDoc1。
我通过Excelvba新建了两个Word文档，还没有保存。文档创建为“Document1”和“Document2”。当我尝试在文档之间切换时，我收到 Document2 的错误文件名错误 4160。请帮我解决这个问题。
Sub DocSwitch()
Dim s As Object
Set s = Word.Application.Selection
Documents("Document1").Select
s.TypeText Text:="Hello"
Documents("Document2").Select
s.TypeText Text:="Hi"
End Sub
创建文档时，将它们分配给文档变量。
Dim WordApp as application
Set WordApp = Word
Dim MyDoc1 as Document
Dim MyDoc2 as Document
Set MyDoc1 = WordApp.Documents.Add
Set MyDoc2 = WordApp.Documents.Add
上面的代码只是在此处即时输入的，可能需要一些调整，但应该能给您思路。然后，在您的代码中，使用您的变量来引用特定文档。
因此，与其引用 Documents(Document1)，不如引用 MyDoc1。