vba - Word 2007 VBA：需要在 VBA 代码中将自定义文档属性作为字符串返回

Question

作为 SharePoint 工作流的一部分，名为“以文本形式链接到图形”的自定义文档属性填充了指向用户提供的图形的链接。我正在尝试在 Word 文档模板中编写一个宏，这样当用户运行它时，图片就会添加到文档中。这是我到目前为止的代码：

Dim wdDoc As Document
Dim filePath As String

Set wdDoc = ActiveDocument

filePath = wdDoc.CustomDocumentProperties("Link to Graphics As Text").Value //receive error here

wdDoc.Shapes.AddPicture _
FileName:=filePath, _
LinkToFile:=msoTrue, _
SaveWithDocument:=msoTrue, _
Left:=-5, _
Top:=5

Answer 1

所以，在我看来，没有你想要估价的财产。检查属性是否以这种方式存在 - 通过检查所有属性并将它们写入 IDE 中的即时窗口。

Sub Check_if_exists()

    Dim CDP As DocumentProperty
    For Each CDP In ActiveDocument.CustomDocumentProperties
        Debug.Print CDP.Name, CDP.Value
    Next
End Sub