在状态栏中显示所选的文本。String 类型，只写。
expression.StatusBar
expression 必需。该表达式返回一个 Application 对象。
本示例在状态栏上显示一条消息。
StatusBar = "Please wait..."本示例在状态栏上显示活动文档附加的模板名称。
aName = ActiveDocument.AttachedTemplate.Name
StatusBar = aName & " template is attached to the active document"