Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.
With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company.
Learn more about Allen...
Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Printing Custom Properties.
If you use custom document properties a lot in your documents, you may want a way to print their values. (Custom document properties are like variables for a document. They have many uses in VBA programming.) Unfortunately, there is no command or feature to print them directly. You can, however, copy the properties to a new document, and then print that document.
Basically, all you need to do is to create a new document and then step through all the custom properties in the old document, copying their names and values to the new document. You can do this by making use of the Count property of the CustomDocumentProperties collection, as shown in the following:
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
While this code will work just fine, it is not terribly robust. For instance, it does not check to see if there are actually any custom properties in the source document; it just assumes that there are. Such coding could be easily added, however.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (529) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Printing Custom Properties.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!