Question

我正在使用excel vba，我只想访问word文档，并列出其中所有链接的文件路径。即。 “C：\ excelfile.xls”

Answer 1

如果您的文档已打开，请尝试以下操作：

Sub due()
    Dim msWord As Object
    Dim msDoc As Object
    Dim msHlink As Object

    Set msWord = GetObject(, "Word.Application")
    Set msDoc = msWord.Documents(1) 'change to suit

    For Each msHlink In msDoc.Hyperlinks
        Debug.Print msHlink.Address
    Next
End Sub

与Excel相同的Word具有Hyperlinks Collection，您可以在其中访问文档上的所有可用超链接。

编辑1：要嵌入 Excel对象链接，您需要访问 InlineShapes集合。
类似的东西：

Sub due()
    Dim msWord As Word.Application
    Dim msDoc As Word.Document
    Dim iShp As Word.InlineShape

    Set msWord = GetObject(, "Word.Application")
    Set msDoc = msWord.Documents(1) 'change to suit

    For Each iShp In msDoc.InlineShapes
        Debug.Print iShp.LinkFormat.SourceFullName
    Next
End Sub

要获取 InlineShape object 的所有可用属性，请确保添加对 Microsoft Word XX.0对象库的引用。请注意，我使用上面的 Early Binding 。 HTH。

Answer 2

你的意思是：

Sub OpenWordDocument()

    dim Word as Object
    Set Word = CreateObject("word.Application")

    Word.documents.Open "C:\excelfile.xls"

    Word.Visible = True

End Sub

复制时，您可以查看this answer

Word文档中链接的文件路径

2 个答案: