HeaderLeft Property [Visio 2003 SDK Documentation]
Gets or sets the text string that appears in the left portion of a document's header.
strRet = object.HeaderLeft
object.HeaderLeft = stringExpression
strRet String. The text in the left portion of the header.
object Required. An expression that returns a Document object.
stringExpression Required String. New text for the left portion of the header.
You can also set this value in the Left box under Header in the Header and Footer dialog box (View menu).
Both strRet and strExpression can contain escape codes that represent data. These escape codes can be concatenated with other text. For a list of valid escape codes you can use with the HeaderLeft property, see the FooterLeft property
The following macro shows how to place a string containing the current date into the left portion of a document's header. After you run this macro, if the date is May 4, 2004, the left portion of the header contains "The date is Thursday, May 4, 2004".
Sub HeaderLeft_Example() Dim strHeader as String 'Build header string. strHeader = "The date is " & "&D" 'Set header of the current document. ThisDocument.HeaderLeft = strHeader End Sub