IT之家学院：用微软VS2017为Word开发加载项——入门教程

2017-07-27 22:23 来源:IT之家 程序设计 /微软

原标题：IT之家学院：用微软VS2017为Word开发加载项——入门教程

一道残阳铺水中的原创投稿

Word是一个大家平时办公中最常用的文字处理软件之一，其功能包罗万象，十分强大。但不排除某些用户有独特而专有的需求，Word自带的功能并没有考虑到，要由用户手动操作若干步方能完成。这些操作有时存在复用的价值，那么不妨把它们抽象并固定下来，变成Word里的一项功能吧。

对于简单的操作复用，我们可以通过内置的宏或VBA来实现。Word中甚至还提供了“录制宏”的功能，来降低编写代码的门槛。不过宏和VBA有个缺点，即不能利用Ribbon栏。（有同学说过可以使用XML映射来实现，但我没试过。）而开发一个加载项，或者说VSTO外接程序，就可以克服这个缺点。

今天，我们就来编写一个简单的VSTO外接程序，作为入门。

一、安装Visual Studio 2017，并在安装时确保选中Office/SharePoint这一选项。

二、打开VS2017，新建项目。分别选中Visual Basic→Office\SharePoint→Word 2013和2016 VSTO外接程序。（选择VB是因为其语法与VBA的语法类似，学过VBA的同学可以马上上手，当然选择C#也是可以的。严格来说，此处的VB指的是VB.net，而VBA则基本继承VB6.0，两者的语法在某些地方还是有很大区别的。）为这个项目起个名字，比如WordAddInTest。

三、新建项目后，呈现在面前的是ThisAddIn.vb里的内容，我们稍后再来关注它。现在先来创造一个Ribbon界面。通过解决方案资源管理器添加一个新项，类型则选择“功能区（可视化编辑器）”，这样我们就得到了一个新的带有空组的Ribbon栏。

四、接下来，就是“搭积木”时间了。我们可以看到，在工具栏中出现了一些Ribbon控件，它们分别是Box、Button、ButtonGroup、CheckBox、DropDown、EditBox、Gallery、Group、Label、Menu、Separator、Tab、ToggleButton。

现在就对这些控件做一些简单的介绍。

1.容器控件：Tab、Group、Box和ButtonGroup。

a.Tab是选项卡，如果你希望使用不止一个选项卡，你可以拖放一个新的Tab。

b.Group是选项组，通常一个选项卡由若干个选项组组成。有时选项组右下角会标有一个灰色箭头，单击它能启动一个窗体。这种窗体的启动可以通过Group的DialogLauncher来实现。

c.Box（不可见）是用来排列具体的控件的，可以使控件横向或者纵向排列，目的是使界面井然有序。

d.ButtonGroup（不可见）则是专为排列按钮而存在的，而且只能是横向排列。

2.不可操作控件：Label和Separator。

a.Label即标签，是用来显示提示性文本的。

b.Separator即分割线，它可以用来位于同一个选项组中而功能又有所区别的控件或控件组。

3.单一控件：Button、CheckBox、CombolBox、DropDown、EditBox和ToggleButton。

a.Button是最普通的按钮，可以通过单击它执行一些操作。

b.CheckBox是复选框，可以用它来打钩。

c.CombolBox是组合框，可以用它来输入文本或从下拉列表中选择。

d.DropDown是下拉框，无法向它输入文本，只能从列表中选择。

e.EditBox是编辑框，可以用它来输入文本。

f.ToggleButton是类似开关的按钮，按钮在按下（呈现深色）时，是一种状态；松开时（恢复浅色）又是一种状态。

4.复合控件：Gallery、Menu和SplitButton。

这三个控件的作用比较相似，都是能生成下拉选项供用户选择。Gallery的特点是可以在下拉选项的一行中横向排列项目，且本身不能被用作按钮响应单击事件；Menu本身也不能用作按钮；而SplitButton则可以相应单击事件。

我们来看一张这些控件的示意图，就容易明白了。

五、做完界面以后，就可以着手编写代码了，但在开发具体的功能前，我们要先写一点必需的代码，为后续的工作铺路。

1.新建一个标准模块，用来存放公共的数据。我们把这个模块命名为mdlPublic。

定位到Module mdlPublic的下一行，声明Application接口，为了简便，就叫App吧。

Module mdlPublic

Public App As Word.Application

End Module

2.回到第三步中提及的ThisAddIn.vb文件中，定位到Private Sub ThisAddIn_Startup() Handles Me.Startup的下一行，对接口App进行实例化。

Private Sub ThisAddIn_Startup() Handles Me.Startup

App = Globals.ThisAddIn.Application

End Sub