如何使用宏在word中显示快速部分>文档属性？答案

【问题标题】：How to display quick part > document property in word using macro?如何使用宏在word中显示快速部分>文档属性？
【发布时间】：2016-03-18 13:00:28
【问题描述】：

我在从共享点编辑模板映射的快速部分中有两个自定义列。 DocSigner 和 DSigneromment

现在我已经用 word 编写了宏代码来获取所有内置属性和自定义属性。我能够获得所有内置的文档属性，如 Author 、Title 以及所有但无法使用“CustomDocumentProperties”获得该自定义列..

这是我的宏代码..

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

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

【问题讨论】：

您向我们展示的代码如何不起作用？并把On Error Resume Next 拿出来——这不是因为你看到一个错误而坚持下去的东西。你需要知道错误并修复它，而不是简单地压制它。

标签： vba ms-word word-field

【解决方案1】：

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

【讨论】：

【解决方案2】：

@bibadia 非常感谢您的贡献

这是我终于尝试自定义属性并且它有效...

Sub ListContentTypeProperty()

Dim signer As String

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

MsgBox signer

End Sub

【讨论】：