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

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

1 个答案: