Word插件如何做

1.我要用VB6.0给WORD2003做一个小插件,应该怎么下手?

1。

新建>外接程序（需要VB企业版）2。然后双设计器下的Connect，在出来的对话框中，将“应用程序”选“Microsoft Word”。

3。在工程>引用中添加对“Microsoft Word xx.0 Object Library”的引用。

4。在connect上点右键，选查看代码5。

编写代码，下面的示例代码演示如何向word添加一个QuickSearch工具栏，并在上面添加一个“划词搜索”按钮，在word中选中一些文字后点击此按钮，会打开一个IE窗口在百度中搜索当前选中的文本：Option ExplicitPrivate WithEvents wdApp As Word.ApplicationDim myBar As CommandBarPrivate WithEvents myButton As Office. Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) Set wdApp = Application On Error Resume Next wdApp.CommandBars("QuickSearch").Delete On Error GoTo 0 Set myBar = wdApp.CommandBars.Add("QuickSearch") myBar.Visible = True Set myButton = myBar.Controls.Add(msoControlButton) With myButton .Style = msoButtonCaption .Caption = "WORD划词搜索" End WithEnd SubPrivate Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant) On Error Resume Next wdApp.CommandBars("QuickSearch").Delete On Error GoTo 0 Set wdApp = NothingEnd SubPrivate Sub myButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Dim ie If wdApp.Selection.Text <> "" Then Set ie = CreateObject("internetexplorer.application") ie.Visible = True ie.navigate "/s?wd=" & wdApp.Selection End IfEnd SubPrivate Sub wdApp_WindowSelectionChange(ByVal Sel As Word.Selection) If Sel.Text = "" Then myButton.Enabled = False Else myButton.Enabled = True End IfEnd Sub6.编译为Dll后再打开word就可以看到“QuickSearch”工具栏了，如果要复制到其他电脑上使用，则需要使用“regsvr32 [所编译的dll文件的完整路径]”命令先注册一下，或者使用“工具>COM加载宏”菜单命令加载或卸载。使用VB6.0给word做插件可以实现的不仅仅是上述这些，还可以修改word程序的右键菜单，调用word中众多对象的各种属性、方法，响应word提供的事件等，同时兼有VB6中可以使用自定义控件、控件数组、资源文件、代码不易被破解等优点来弥补word VBA的不足。

2.制作word插件的方法中VSTO算是简单的么

其实VSTO插件的部署无非就是Prerequisites和grant full trust （因为注册表是模板帮我们处理好的，我们不需要去关心，下文有详述）。

上面的两篇文章为了一步到位的解决好以上两个问题，并打包.msi文件，用了一些技术。一，给Setup项目添加prerequisites，并且使用launch condition来要求用户在安装setup.exe前必须保证所有的prerequisites都已经安装在目标机器上；二，利用Custom Action在安装过程完成后，调用caspol工具来设置程序集的权限。

第一篇文章讲解了各个技术点，第二篇文章通过具体的例子来完成两种类型项目的部署，并且提供了一个Sample，里面包含了要用到一些工程，如SetSecurity。例子就是引用这个工程做为Custom Action来设置权限的。

与上两者不同的是，本文抛开所有这些技术不看，仅仅打包一个最最简单的.msi文件，把prerequisites和grant trust的事情，留待插件安装完再去人工做。希望如此，能给在VSTO项目部署时遇到困难的人一个直观的印象，让大家看到VSTO项目要运行，其实就是这么几个东西。

然后回头再看Microsoft提供的这两篇文章，幸许又会有另外的收获。一.概述如果你的VSTO SE插件在开发机器上工作良好，一旦装到客户机上，就不再装载了。

可能的原因无非就是一下几种：（在此排除了软禁用，硬禁用的情况）1.一些prerequisites没有装：a. .NET Framework （这是所有.NET应用程序运行的必备，没有什么好说的。如果我们用VSTO SE开发的插件，我们应该在客户机上装上.NET 2.0以上的版本）b. Office PIAs（这是连接.NET和Office COM的桥梁，CLR通过它来操作Office的COM对象，没有它，你的程序一样不能跑）c. VSTO Runtime（这是所有用VSTO开发出来的软件，运行时必备的，目前有三个主本版，第三个版本用来支持ClickOnce部署，本文中不涉及。

本文只用到第二个主版本的升级版）2. 注册表，任何一个VSTO SE插件程序要运行，都是Office启动的时候先从注册表中找到插件的相关信息，主要是LoadBehavior和Manifest的地址，然后根据Manifest的地址，找到manifest文件，manifest文件中记录了dll的地址和一些配置信息 （manifest文件可以用notepad打开） ，根据manifest来装载程序集。我们用VSTO SE新建一个插件项目的时候，Microsoft提供给我们的模板会帮我们自动添加一个Setup项目。

这个项目中已经默认地帮我们把要写入的注册表键值写好，无须我们多费心思。当然如果你把默认的Setup项目删掉了 （我经常这么干，因为看着碍眼，并且我一般只要Debug，不要Deploy），自己再添加一个新的Setup项目，这时候，新项目中，系统不会帮你写好注册表的键值。

关于注册表，下面是默认Setup项目的注册表视图的截图：3. 权限的设置问题，Office装载任何VSTO SE开发出来的.NET插件时，都需要这个插件被完全信任。有两种方法完成这个任务：a. 用Microsoft .NET Framework Wizard （图形化界面）b. 用Caspol.exe （命令行，本文采用这种方式，原因是好表述，不要图）二.部署案例 下面我们动手，用VSTO SE创建一个Excel 2007的插件（2003也是一样的，只不过客户机要装Excel 2003和Excel 2003 PIA，还有不要在同一台机器上同时安装Office 2003和2007），并且将它部署到一个客户机上。

（由于手头只有英文版VS，菜单名都是英文的，大家自己对应看看吧）1. 打开Visual Studio 2005，新建项目，在左边的导航板块中，选中C#->Office->2007 Add-ins，在右边选中Excel Add-in。取名ExcelAddIn，点OK。

然后系统会在solution中默认的创建两个项目，一个是插件项目，一个是Setup项目，如图：2. 在ThisAddIn.cs文件中的ThisAddIn_Startup函数里加一句代码，以供回头测试是否部署成功。修改后的代码如下：private void ThisAddIn_Startup(object sender, System.EventArgs e) { #region VSTO generated code this.Application = (Excel.Application)Microsoft.Office.Tools.Excel.ExcelLocale1033Proxy.Wrap(typeof(Excel.Application),this.Application); #endregion MessageBox.Show("Deploy successfully");}3. 在Solution Expolrer里面，右击ExcelAddInSetup项目，点击Build。

4. 到Setup项目文件夹中的debug目录下找到ExcelAddInSetup.msi文件，拷贝到目标机器上。5. 在目标机器上，安装：.Net Framework 2.0 Office 2007 PIAs： （运行完下载文件后，还要点击得到的o2007PIA.msi才是安装PIAs） VSTO Runtime2.0： 还有目标机上要有对应的Office程序，比如这里就需要Excel 2007!6. 双击刚刚拷贝到目标机器上的ExcelAddInSetup.msi，选择安装目录并安装，假设安装到了C:/Test目录下。

安装完，该目录下会出现两个文件：ExcelAddIn.dll,ExcelAddIn.dll.manifest，其中的.dll文件就是我们下面要设置权限的程序集7. 回到桌面，点击开始->运行，输入cmd，在命令行提示下，输入cd C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727，回车然后输入下面命令：Caspol –u –ag All_Code –url “C:/Test/ExcelAddIn.dll” FullTrust –n “Test”回车输入yes回车 （请勿直接拷贝这段命令行，因为Word好像。

3.如何在Word中插入MP3、电影和动画

1. 在Word中播放MP3音乐

在Word中播放MP3音乐的方法其实很简单，用户打开Word程序，在其菜单栏中选择“插入→ 对象”选项，接着在弹出的“对象”对话框中选择“由文件创建”选项卡，在该选项卡中单击“浏览”按钮并通过文件夹切换选中需要播放的MP3音乐文件，单击“插入”按钮返回到“对象”对话框，在“对象”对话框中单击“确定”，这时大家会看到在当前打开的Word文档中多了一个含有MP3音乐文件名的图标，用户只要双击那个图标，无限美妙的音乐旋律即可立即回响。

2. 在Word中播放视频电影

首先打开Word程序，在其菜单栏中执行“视图→工具栏→控件工具箱”命令，这时Word会打开一个“控件工具箱”浮动小窗口，单击该浮动窗口的最后一个“其它控件”按钮，然后在其弹出的列表中选择“Windows Media Player”选项，这时在Word中会弹出一个播放器界面，用户在该播放器中单击鼠标右键，选择“属性”选项，在Word随后弹出的“属性”对话框中找到“文件名”选项，然后用户便可以在该选项右侧的空白框中手工输入需要播放视频的绝对路径及文件名，输入完毕后，用户关闭“属性”对话框返回到Word中，如果用户需要马上对指定的视频进行播放，则只要在Word的“控件工具箱”窗口中单击“退出设计模式”按钮即可。

3. 在Word中播放Flash动画

在Word中播放Flash动画的操作方法与播放视频有些类似。用户按照上面的方法在“其它控件”列表中选择“Shockwave Flash Object”选项，这时在Word中同样会弹出一个用于播放Flash动画的矩形区域，用户在该区域中单击鼠标右键，选择“属性”选项，在Word随后弹出的“属性”对话框中用户需要找到“Movie”选项，同样用户可以在该选项右侧的空白框中手工输入需要播放Flash动画的绝对路径及文件名，这里需要特别注意的是：在输入的文件名后面需要加输“.swf”文件名后缀。进行完上述所有设置后，用户返回到Word主界面并在Word的“控件工具箱”窗口中单击“退出设计模式”按钮即可进行Flash动画的播放了。