尝试激活文档时出现运行时错误 4160-解网

问：

我正在编写一个宏来将文本从一个文档复制到另一个文档。以下 VBA 代码创建名为“temp.com”的文件 InFileName 包含有效的路径和文件名。当代码尝试使用 Documents（InFileName）激活源文档时。激活我收到运行时错误 4160。请告知我做错了什么。

Dim InFileName As String
Documents.Add DocumentType:=wdNewBlankDocument
ActiveDocument.SaveAs FileName:="temp.doc", Fileformat:=wdFormatDocument
InFileName = InputBox("Enter the Book source file name.", "Book Source File")
Documents(InFileName).Activate

我为 InFileName 输入的名称是“E：\Documents\My Stuff\Books\Scanned Books\Sue Grafton\A is for Alibi\Book\Source File.docx” 字符串的输入与您看到的一样，减去引号。

我期望激活 InFileName 中指定的文档。

VBA MS-Word

如果有多个已打开的具有相同名称的文档。例如，Word 同时打开“C：\myDoc.docx”和“D：\myDoc.docx”。例如，Excel 可以打开多个同名的工作簿。cancannot
如果磁盘上有同一文档的多个副本，请务必知道引用的是正确的副本。完整路径有助于确保您定位到正确的文档。Documents("myDoc.docx")

请尝试。

Option Explicit

Sub GetDocObject()
    Dim oDoc As Document, InFileName As String
    InFileName = InputBox("Enter the Book source file name.", "Book Source File")
    If Len(InFileName) > 0 Then
        For Each oDoc In Documents
            If StrComp(oDoc.FullName, InFileName, vbTextCompare) = 0 Then
'                MsgBox "Found the doc."
                oDoc.Activate
                Exit Sub
            End If
        Next
        MsgBox "Can't find the doc."
    End If
End Sub

Microsoft 文档：

StrComp 函数

上一个：Excel中的VBA代码有时有效，但并非总是如此

下一个：如何知道 Word VBA“查找”在哪里找到了一些东西

尝试激活文档时出现运行时错误 4160

Runtime error 4160 when trying to activate a document

评论