Word Document Properties

Chapter 3: Writing Structured VBA Programs
08_046500 ch03.qxp 12/5/06 5:34 PM Page 73

---

Listing 3-3
Using a Function to Retrieve Document Information
Public Sub GetSummary2()
‘ Declare a string to hold the output information.
Dim DocumentData As String
‘ Store the name of the information.
DocumentData = “Author Name: “
‘ Get the author name.
DocumentData = DocumentData + GetDocProperty(“Author”)
‘ Add an extra line.
DocumentData = DocumentData + vbCrLf
‘ Store the name of the information.
DocumentData = DocumentData + “Company: “
‘ Get the company name.
DocumentData = DocumentData +
GetDocProperty(“Company”)
‘ Display a message box containing the property value.
MsgBox DocumentData, vbOKOnly, “Summary”
End Sub
Private Function GetDocProperty(Name As String) As String
‘ Declare a DocumentProperty object to hold the
‘ information.
Dim MyProperty As DocumentProperty
‘ Set the DocumentProperty object equal to the author
‘ information.
Set MyProperty = _
ActiveWorkbook.BuiltinDocumentProperties(Name)
‘ Return the information.
GetDocProperty = MyProperty.Value
End Function
Listing 3-3 begins with 
GetSummary2
. Much of what you see looks simi-
lar to previous examples. However, notice how the code works with
DocumentData
. The example builds the text output by adding the previous
content of the string to itself. So, first 
DocumentData
contains 
“Author
Name: “
, and then you add the actual author name to it by using
GetDocProperty
.
Another new addition is the use of a constant. The 
vbCrLf
constant contains
special characters that act the same as when you press Enter at the end of a
line of text in a word processor.
74