VSTO开发示例：基于vb.net的功能区 XML 创建Word外接程序

EH2003

题外话：
由于Word块沿未开通VSTO，故在些版块发帖

VSTO开发示例：基于vb.net的功能区 XML 创建外接程序

一、环境准备
本例创建环境：Windows7（64位）+office2013+VS2015
二、创建项目
1、创建名为WordRibbon 的“Word 外接程序”项目，如下图所示。

EH2003

二、创建 VSTO 外接程序选项卡

   创建“外接程序”选项卡，请将“功能区(XML)”项添加到项目中。同时向此选项卡添加一些按钮。

• 在“项目”菜单上，单击“添加新项”。如下图所示：
• 
• 在“添加新项”对话框中，选择“功能区(XML)”。如下图图所示
• 
• 
  

  • 将新功能区更名为“WordRibbon”，然后单击“添加”。
    
    

  在WordRibbon.vb 文件将在设计器中打开。还会将名为WordRibbon.xml 的 XML 文件添加到项目中。

  • 在“解决方案资源管理器”中，右键单击 ThisAddin.vb，然后单击“查看代码”。
  • 将下面的代码添加到 ThisAddin 类中。
    
    

  • ProtectedOverrides Function CreateRibbonExtensibilityObject() As Picrosoft.Office.Core.IRibbonExtensibility
  • ReturnNew WordRibbon()
  • End Function
    如图所示
    
    
• 
• 
• 
  
  
  

EH2003

三、将按钮添加到“外接程序”选项卡

1、在“解决方案资源管理器”中，右键单击 WordRibbon.xml，然后单击“打开”。

<?xml version="1.0" encoding="UTF-8"?>

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">

  <ribbon>

    <tabs>

      <tab idMso="TabAddIns">

        <group id="MyGroup"

               label="My Group">

        </group>

      </tab>

    </tabs>

  </ribbon>

</customUI>

替换后的内容为

<?xml version="1.0" encoding="UTF-8"?>

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">

  <ribbon>

    <tabs>

      <tab id="henrylam" label="我的测试">

        <group id="test"

               label="测试">

          <button id="Button1"

                  label="插入文本"

                  size="large"

                  imageMso="HappyFace"

                  onAction="test1" />

          <button id="Button2"

                  label="关于"

                  size="large"

                  imageMso="AnimationTransitionGallery"

                  screentip="使用说明"

                  supertip="鼠标放在上面显示使用说明"

                 onAction="test2" />

        </group >

      </tab>

    </tabs>

  </ribbon>

</customUI>

EH2003

四、添加按钮的回调方法

1、在“解决方案资源管理器”中，右键单击Ribbon.vb，然后单击“打开”。

2.将以下代码添加到WordRibbon.vb文件的顶部。  此代码将为Microsoft.Office.Interop.Word命名空间创建别名

Imports Word =Microsoft.Office.Interop.Word ‘命名空间创建别名

插入后如下图

3、将以下方法添加到 WordRibbon 类。  这是“插入文本”按钮的回叫方法，用于在光标的当前位置向活动文档添加字符串。

    PublicSub test1(ByVal control As Office.IRibbonControl)

       Dim currentRange As Word.Range =Globals.ThisAddIn.Application.Selection.Range

       currentRange.Text = "我通过ribbon功能区插入文字"

    EndSub

插入位置如下图

插入后的如下图

EH2003

五、测试 VSTO 外接程序

1.按 F5 运行项目。或

2.确认“我的测试”选项卡在功能区上可见。

3.单击“我的测试”选项卡。

4.确认“测试”组在功能区上可见。

5.单击“测试”组中的“插入文本”按钮。

在光标当前位置向文档添加一个字符串。

6.单击“测试”组中的“关于”按钮。

会弹出一个对话框如下图

EH2003

最后的动画效果

EH2003

帖子文档
VSTO开发示例(vb.net).rar (667.58 KB, 下载次数: 153)

2017-3-19 21:02 上传

点击文件名下载附件

EH2003

示例文件
WordRibbon.rar (188.68 KB, 下载次数: 153)

2017-3-19 21:04 上传

点击文件名下载附件

bzXwei

能不能用VB.net实时捕获word中刚刚输入的文字或单词？

liuxin2281

太好了，新手一直摸不到门道，C#的“功能区（可视化设计器）”直接就能在word中生产选项卡，VB的“功能区（XML）”还要手动添加一段代码，看了你这个帖子终于让选项卡出现在word中了。