vba - 如何打开(并保存)Word文档中的所有嵌入式文档？

Question

我希望编写VBA以将嵌入式文件保存在Word文档中。但是我在打开它们时遇到了问题:

Sub Extract()

    Dim num as Integer

    Dim numObjects As Integer
    numObjects = ActiveDocument.InlineShapes.count

    MsgBox numObjects  ' prints "11"

    For num = 1 To numObjects    
        If ActiveDocument.InlineShapes(num).Type = 1 Then
            'it's an embedded OLE type so open it.            
            ActiveDocument.InlineShapes(num).OLEFormat.Open

            'Works for the first one but errors 5941 (the requested
            '  member of the collection does not exist) 
        End If
    Next num

End Sub

如果尚未打开，则此代码将打开第一个嵌入式文件。下一个错误。

或者，如果第一个文件已经打开，则宏似乎什么也不做。

有什么提示吗？ (我正在使用Word 2010进行此操作。)

Answer 1

答案似乎很容易-打开第一个嵌入式文件后，该文件将成为 Activity 文件，然后当您尝试打开下一个嵌入式对象时，您指的是 Activity 文件，而不是所需文件。用这种方式尝试对象变量:

Sub Extract()

    Dim num as Integer
    Dim AD as document
    Set AD = activedocument

    Dim numObjects As Integer
    numObjects = AD.InlineShapes.count

    MsgBox numObjects  ' prints "11"

    For num = 1 To numObjects    
        If AD.InlineShapes(num).Type = 1 Then
            'it's an embedded OLE type so open it.            
            AD.InlineShapes(num).OLEFormat.Open

        End If
    Next num

End Sub