《Excel 2013 Power Programming with VBA》试读章节翻译

Text Tools工作薄

        Text Tool 工具是一个XLAM插件。在开发过程中，我将整个文件作为一个XLSM宏的工作薄。当一切运行结果令我满意之后，我将这个工作薄作为一个插件保存。

Text Tool由以下组成：

• 工作表：每个工作薄（包含插件）必须有至少一个工作表。利用这个特性，将在撤销操作中用到的信息存储在工作表中（见本章后面的“Implemnting Undo”）。
• VBA模块：模块包含公有变量，常量的声明，显示用户窗体的代码，以及进行“撤销”操作的代码。
• 用户窗体：这个组件包含对话框。进行文本操作的代码存储在用户窗口的代码模块中。

Note:在这个插件文件中也包含一些我将指令显示在功能区的手动修改。见本章后面的“增加RibbonX代码”。但是无法修改修改只允许VBA使用的Excel命令区。

安装插件：

   按照以下步骤安装插件（包括Text tool.xlam 插件）:

1.       选择“文件”-〉“选项”

2.       在Excel Option对话框中，点击“插件”标签

3.       在下拉列表标签管理中，选择“Excel插件”，然后点击“Go”显示插件标签。 

4.       如果你要安装的插件显示在可用插件列表中，选中这一项；如果列表中没有你要安装的插件，点击浏览去查找XLAN或者XLA插件。

5.       点击OK。

   插件将会被安装，并且直到你从列表中取消对插件的勾选之前一直有效。

    在前面的安装的步骤中，你可以跳过步骤1到3，按下Alt+T1，这是用来显示插件对话框的pre-Excel2005键盘序列。或者如果在功能区有Developer标签，选择“Developer”-“插件”-“增加插件”

TextTools 工具是如何工作的

        TextTools插件包含一些RibbonX代码，在功能区创建了一个新的项目：开始-->工具-->Text Tools。选择这个命令序列将会执行StartTextTool进程，此进程将会调用ShowTextToolsDialog进程。

Cross-Ref:这个工具需要调用StartTextTool和ShowTextToolsDialog两个进程的原因，在本书后面有介绍。

    用户可以进行多种文本的修改操作并点击“应用”按钮执行这些修改。修改后在工作表中显示发生的变化，并且插件的对话框保持显示。每一个操作之后用户都可以进行撤销，或者继续执行修改操作。点击“帮助”按钮显示帮助窗口，点击“关闭”按钮关闭对话框。

Note：这是一个无形式回话框。换言之，在对话框显示的同时，你可以继续进行在Excel中的工作。从这个意义上说，无形式回话框和工具条相似。

Note：如果你在Excel2013中使用这个工具，如果你切换到一个不同的工作簿窗口Text Tool对话框将会是不可用的。为了在一个工作簿中使用这个工具，你必须关闭TextTools对话框，激活其他的窗口，然后再通过命令显示对话框。