vba - マクロを使用してWordでクイックパーツ>ドキュメントプロパティを表示するには?

Question

SharePoint 編集テンプレートからマップされたクイック パーツに 2 つのカスタム列があります。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

そのため、すべてのドキュメント プロパティをクイック パーツから取得できるようにコードを変更します。

Answer 1

カスタム SharePoint 列からプロパティの値を取得するには、Document の ContentTypeProperties コレクションを使用します。

Answer 2

@bibadia あなたの貢献に感謝します

ここでついにカスタムプロパティを試してみましたが、うまくいきます...

Sub ListContentTypeProperty()

Dim signer As String

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

MsgBox signer

End Sub