Word文档中链接的文件path

我正在使用excel vba，我只想访问一个word文档，并列出其中所有链接的文件path。 即。 “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相同的词有超链接集合 ，您可以访问文档上所有可用的超链接。

编辑1：要获得embedded的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对象的所有可用属性，请确保添加对Microsoft Word XX.0对象库的引用。 请注意，我使用上面的早期绑定 。 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 

复制你可以看看这个答案