内容字号:默认大号超大号

段落设置:取消段首缩进段首缩进

字体设置:切换到微软雅黑切换到宋体

业界资讯软件之家
Win10之家WP之家
iPhone之家iPad之家
安卓之家数码之家
评测中心智能设备
精准搜索请尝试:精确搜索

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

2017/7/27 22:23:29来源:IT之家作者:一道残阳铺水中责编:骑士评论:

感谢IT之家网友一道残阳铺水中的原创投稿

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

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

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

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

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

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

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

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

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

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

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

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

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则可以相应单击事件。

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

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

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

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

这段代码的意思是,在加载项启动时(Word显示启动画面时,正是加载项启动的时候),获取当前运行的Word实例,并赋值给尚未实例化的接口App。这跟开发具体的功能有很大的关系,因为我们要通过这个接口来对Word文档进行操作。

好了,路已经铺好了,熟悉VBA的同学马上就可以自己玩儿去了,只要把VBA中的Application全部改成这里的App就可以了。不过还是来看简单的一个例子。

当我们从网页等地方复制文本时,有时会伴随着大量讨厌的空行,下面我们就通过代码来去除这些空行。

1.在Ribbon栏上放置一个按钮,更改名字为btnDeleteEmptyLine,标题为“删除空行”。然后在设计界面时双击它,进入代码编辑模式。

2.为了编写代码的便利,在首行先引入一个命名空间。

Imports Microsoft.Office.Interop.Word

3.然后编写如下代码,以实现具体的功能:

Private Sub btnDeleteEmptyLine_Click(sender As Object, e As RibbonControlEventArgs) Handles btnDeleteEmptyLine.Click

If App.Selection.Start = App.Selection.End Then App.ActiveDocument.Select()

With App.Selection.Find

.ClearFormatting()

.Text = "^p^p"

.MatchWildcards = False

.Forward = True

.Replacement.ClearFormatting()

.Replacement.Text = "^p"

.Execute(Replace:=WdReplace.wdReplaceAll)

End With

End Sub

3.单击VS工具栏上的启动按钮,片刻后Word就启动了,开始了调试过程。我们可以测试代码是否按预期工作。

这个例子其实是调用了Word的查找替换功能来实现删除空行的目的,用VBA也能完成。

那么VSTO相较于VBA,其优越性体现在哪里呢?我认为有以下几个方面:

1.VSTO可以用最新的VS以VB.net和C#等语言进行开发,而VBA基于老旧的VB6.0,不光是语法,连开发环境都几乎照搬,代码会写得很不舒服。

2.VBA是存储在文档中的,没有做到功能与文档的分离;而VSTO可以做到。而Office移动版会拒绝打开带有宏和VBA的文档,给人带来不便。

3.VSTO可以使用.net Framework提供的丰富的类库,轻松地实现五花八门的功能,相对来说,用VBA实现就比较麻烦。

4.与VB6.0一样,VBA对Unicode的支持不良,无法读取以UTF-8、UTF-16等编码的文本,只支持以系统默认代码页(ANSI)编码的文本;而VSTO根本没有这种问题。

当然VBA相较于VSTO唯一的优点是轻便,由Office程序内置,而开发VSTO外接程序要安装VS。而综合来看,肯定是VSTO的潜力要优于VBA的。

好了,入门就到这里了,大家自己玩去吧!

相关文章

关键词:VS2017Word

IT之家,软媒旗下科技门户网站 - 爱科技,爱这里。

Copyright (C)RuanMei.com, All Rights Reserved.

软媒公司版权所有