如何显示快速部分＆gt;使用宏的文字属性？

Question

我在sharepoint编辑模板中映射了快速部分中的两个自定义列。 DocSigner和DSigneromment

现在我已经在word中编写宏代码以获取所有内置属性和自定义属性。我能够获得所有内置的文档属性，如作者，标题和所有，但无法使用＆＃34; CustomDocumentProperties＆＃34; ..

获取该自定义列

这是我的宏代码..

Sub ListAllProperties()

 Dim rngDoc As Range
 Dim proDoc As DocumentProperty

 Set rngDoc = ActiveDocument.Content

 rngDoc.Collapse Direction:=wdCollapseEnd

 For Each proDoc In ActiveDocument.CustomDocumentProperties 

 With rngDoc
   .InsertParagraphAfter
   .InsertAfter proDoc.Name & "= "
   On Error Resume Next
   .InsertAfter proDoc.Value
 End With

 Next

End Sub

因此，任何代码更改都可以从快速部分获取所有文档属性。

Answer 1

要获取来自自定义SharePoint列的属性值，请使用Document的ContentTypeProperties集合。

Answer 2

@bibadia非常感谢您的贡献

最后，我尝试了自定义属性，它可以工作......

Sub ListContentTypeProperty()

Dim signer As String

signer = ActiveDocument.ContentTypeProperties.Item("DocSigner")

MsgBox signer

End Sub