(这条文章已经被阅读了 65 次) 时间：2001-07-07 01:45:10 来源：江边 (sagartm) 原创-IT
Office 97 中的对“Office 助手”的编程
控制小助手
Microsoft Office 97 引入了一种新类型的“帮助”部件：“Office 助手”。我们平时只是从小助手那里得到帮助信息。事实上，我们也可以对“Office 助手“进行编程。用“Office 助手”气球中的控件可运行用户自己的过程。
“Office 助手”、“Office 助手”气球和气球中的所有项均可通过对 Assistant 对象的对象、属性和方法编程来控制。
下图显示了“Office 助手”、“Office 助手”气球以及气球中所有可编程的对象：
下面所列的属性是常用的“Office 助手”属性：
Animation 激活“Office 助手”。一些动态效果是连续发生的，其他的只发生一次。
FileName 为“Office 助手”指定文件名，并以 .act 作扩展名。例如，“Clippit”Office 助手的文件名是 Clippit.act。
Name 返回“Office 助手”的名字。用该属性保存用户所选“助手”的历史记录。
Visible 指定显示或隐藏“助手”。
知道了这些属性,我们可以写一小段代码来改变”Office 助手”。
我们选择可爱的小海豚——“Dolphin”作“Office 助手”，显示它并设置一种动态效果。还设置了几个自定义的“帮助”属性，这些属性在设计时都可通过“Office 助手”对话框的“选项”选项卡来改变。
With Assistant
.FileName = “Dolphin.act”
.Animation = msoAnimationCheckingSomething
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
.Sound=True
End With
对于这一段代码，我们可以在Access ,Word ,Excel ,PowerPoint 等中都可以运行。例如：我们要在Word中运行这段代码：那么选择 “工具“ 菜单，选择“宏“，输入宏名然后点击“创建“,把这段代码放在宏之中。然后运行宏就可以看到结果了。
是不是看到小海豚在动了！
创建和修改气球
您注意到了”Office 助手“旁边有一个米黄色底的对话框了吗？
在Office 中它的被称为“Balloon“（气球）用“Office 助手”气球可为用户提供信息。气球中的信息可以是一条简单的消息、希望了解详细内容的请求信息或提供给用户选择的一列选项。
下面罗列了气球（Balloon）的大多数常用的属性和方法。
Heading 指定出现在“Office 助手”气球顶部的粗体文字。
Text 指定出现在“Office 助手”气球体中的文本。这些文本将出现在标题之后但在复选框、标签或按钮之前。
Labels 返回气球中标签的集合。标签的格式由 BalloonType 属性决定。可对标签列表进行编号或编排，同时这一列表也可以是一系列按钮。
Checkboxes 返回气球中复选框的集合。通过单击某复选框，然后单击气球底部适当的按钮（例如，“确定”或“下一个”按钮）来记录用户的选择。
Close 关闭并取消一个非模态气球，但不释放该对象变量。分配给该气球的对象变量仍然有效，因此可以重新显示该气球，或对它进行修改并在随后显示。注意：本方法只能用于非模态气球。
Show 向用户显示气球及其中所有的信息。
NewBalloon 新建一个“Office 助手”气球。
BalloonType 返回或设置 Office 助手所用的气球类型。可为下列 MsoBalloonType 类型的常量之一：soBalloonTypeButtons、msoBalloonTypeBullets 或 msoBalloonTypeNumbers。
用 Assistant 对象的 NewBalloon 属性可新建一个气球。新创建的气球是空白的，可用 Heading 属性添加一个标题，然后用 Text 属性在气球体中添加文字，还可根据需要添加控件。最后，用 Show 方法显示该气球。Show 方法在包含该方法的语句出现时立即显示气球，因此在设置完该气球的其他属性后，应该立即使用本方法。
下面的示例可实现：创建一个气球，该气球帮助用户选择打印机。本示例还提供了一个复选框选项，以帮助用户跳过气球中的信息。
Set bln = Assistant.NewBalloon
With bln
.Heading = “选择打印机”
.Text = “选定打印机后，单击确定按钮”
.Labels(1).Text = “从[文件]菜单中，选择[打印]命令”
.Labels(2).Text = “单击[打印机]列表框”
.Labels(3).Text = “选择打印机的名字”
.Checkboxes(1).Text = “不再显示此信息”
.BalloonType = msoBalloonTypeNumbers
.Button = msoButtonSetOK
.Show
End With
这样，我们就是实现了对”Office 助手“的编程。
___________________________________________________________________________
作者：江边 完成时间： 2000年2月5日