This example displays a message in the status bar.
StatusBar = "Please wait..."This example displays in the status bar the name of the template attached to the active document.
aName = ActiveDocument.AttachedTemplate.Name
StatusBar = aName & " template is attached to the active document"