如果您在文档中大量使用自定义文档属性，则可能需要一种打印其值的方法。 （自定义文档属性就像文档的变量。它们在VBA编程中有很多用途。）

不幸的是，没有命令或功能可以直接打印它们。

但是，您可以将属性复制到新文档，然后打印该文档。

基本上，您需要做的就是创建一个新文档，然后逐步浏览旧文档中的所有自定义属性，然后将它们的名称和值复制到新文档中。您可以通过使用CustomDocumentProperties集合的Count属性来执行此操作，如下所示：

Sub PrintDocProps()

Dim iPropCount As Integer     Dim i As Integer     Dim docSource As Document     Dim docTarget As Document

Set docSource = ActiveDocument     Set docTarget = Documents.Add

docTarget.Activate

iPropCount = docSource.CustomDocumentProperties.Count

Selection.TypeText Text:="There are "

If iPropCount > 0 Then         Selection.TypeText Text:=iPropCount     Else         Selection.TypeText Text:="no"

End If     Selection.TypeText Text:=" custom properties in the document."

Selection.InsertParagraph     Selection.InsertParagraph

For i = 1 to iPropCount         Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Name         Selection.TypeText Text:="Value: "

Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Value         Selection.InsertParagraph         Selection.InsertParagraph         Selection.InsertParagraph     Next i End Sub

尽管此代码可以正常工作，但它并不是非常强大。例如，它不会检查源文档中是否确实存在任何自定义属性；它只是假设有。但是，可以很容易地添加这种编码。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）此技巧（11392）适用于Microsoft Word 2007、2010、2013、2016和Office 365中的Word。您可以在较早的菜单中找到此技巧的版本。 Word的界面在这里：

打印自定义属性。