为了实现办公的自动化，需要实现文档的自动流转。开发出的 WORD 和 WPS 插件的功能包括显示批注、隐藏批注、引入文件、附加对象、保存文档、退出应用。
1 Word 插件开发
1.1 插件开发方法
1.1.1 开发语言
开发语言的选择，可以选择 C++ 和 C# 。
1.1.2 Visual studio 开发说明
Visual Studio 2010 提供了各个版本 Office 的插件开发，新建工程 - 按照的模板 -Visual C#-Office-2010 ，运行程序时其会调用本地安装的 Office ；文件 - 选项 - 加载项 -COM 加载项，在此可以选择 COM 加载项。
（1） Word开发引用的文件有Microsoft.Office.Interop.Word及Office
（2） 使用的命名空间
using Word = Microsoft.Office.Interop.Word;
using Office = Microsoft.Office.Core;
using Microsoft.Office.Tools.Word;
1.1.3 Visual studio 的 Samples
Visual Studio 提供了本地 WORD 插件开发的示例，所在路径
Visual Studio2010-Help-Samples-local Samples folder 。
1.2 三种访问 word 的方法
1.2.0.1 官方 API
根据官方提供的 API ，可以实现对 word 的操作。
1.2.0.2 调用对话框（属于 API 范畴）
通过 word 提供的对话框方法调用 Word.WdWordDialog.wdDialogInsertObject，打开“附加对象“对话框。
this.Application.Dialogs[Word.WdWordDialog.wdDialogInsertObject].Execute();
1.2.0.3 word 控件
获取其控件，然后执行 Excute ，打开“附加对象”对话框
this.Application.ActiveDocument.CommandBars["Menu Bar"].Controls[4]).CommandBar.Controls[16].Execute();
1.3 对 WORD 文档的操作
1.3.1 打开文档
Word.Application app = new Word.Application(); Word.Document dd = app.Documents.Open("C:\\hi12.docx");
1.3.2 word2010 控件的操作方法
微软在 word 使用了 Ribbon Interface ，通过该接口可以获取所有的菜单和工具栏的命令。具体见：
http://office.microsoft.com/en-us/outlook-help/learn-where-menu-and-toolbar-commands-are-in-office-2010-and-related-products-HA101794130.aspx#_Toc268688374
1.3.2.1 两层节点访问方式
word 一般是通过 CommandBar/CommandBars 和 Control/Controls 访问控件。只有两层的访问方式：第一层，直接访问 CommandBar/CommandBars ，通过 CommandBar/CommandBars 访问其下的 Control/Controls 。
如：
获取 Show Markup 命令条下几个 Controls ：
Globals.IRHelperBar.Application.ActiveDocument.CommandBars["Show Markup"].Controls.Count;
执行 Show Markup 命令条下的第 7 个 Controls 的实体的方法：
Globals.IRHelperBar.Application.ActiveDocument.CommandBars["Show Markup"].Controls[7].Excute();
1.3.2.2 多层节点的访问方式
1 ）子节点访问方式
如果 Control 下面还有子节点，查看其 CommandBar 下的 Name ；通过此名获访问其下的 Controls 。类似多叉树的访问方式。
Globals.IRHelperBar.Application.ActiveDocument.CommandBars["Reviewers"].Controls[1];
2 ）三层节点的访问方式
正常只是提供两级的访问结构 CommandBars-Controls ；如果有第三级并且需要访问，那么把 Control 提升为 Command ，创新构造两级结构 Command-Control ，从而实现第三层的访问。
This.Application.ActiveDocument.CommandBars["Menu Bar"].Controls[4]).CommandBar.Controls[16].Execute();
1.3.3 Word 的部分功能
1.3.3.1 显示 / 隐藏标注
1 ）隐藏标注
调用 API 方式
wdApp.ActiveWindow.View.ShowRevisionsAndComments = False
控件方式
((dynamic)Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Reviewing"].Controls[1]).Control.ListIndex = 2;
2 ）显示标注
调用 API 方式
wdApp.ActiveWindow.View.ShowRevisionsAndComments = True
控件方式
((dynamic)Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Reviewing"].Controls[1]).Control.ListIndex = 1;
3 ）切换显示 / 隐藏标注
Globals.ThisAddIn.Application.Application.ActiveDocument.CommandBars["Show Markup"].Controls[3].Execute();
1.3.3.2 隐藏 / 显示审阅窗格
执行下面的语句，可以开始打开 / 关闭审阅窗格
doc.CommandBars["Reviewing"].Controls["Reviewing Pane"].Execute();
1.3.3.3 引入文件
((dynamic)Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Menu Bar"].Controls[4]).CommandBar.Controls[16].Execute();
1.3.3.4 附加对象
((dynamic)Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Menu Bar"].Controls[4]).CommandBar.Controls[17].Execute();
1.3.3.5 保存文件
Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Standard"].Controls[3].Execute();
1.3.3.6 退出应用
((dynamic)Globals.ThisAddIn.Application.ActiveDocument.CommandBars["Menu Bar"].Controls[1]).CommandBar.Controls[21].Execute();
1.4 遍历 Word2010 的一级和二级控件
//Create Word Application
Word.Application wordApp = new Microsoft.Office.Interop.Word.Application();
//Create a new txt file to record controls' list
StreamWriter sw = System.IO.File.CreateText(@"C:\Word Command Bar Control List.txt");
//loop through wordApp.CommandBars to get all CommandBars
foreach (Office.CommandBar cb in wordApp.CommandBars)
{
sw.WriteLine(cb.Name);
//loop through each CommandBar's Controls collection to get all controls
foreach (Office.CommandBarControl cbc in cb.Controls)
{
sw.WriteLine("\t" + cbc.Caption);
}
}
1.5 Word 文档的窗体事件
http://support.microsoft.com/kb/302817
最小化 word 窗口时，关闭
Form1 fm;
private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
fm = new Form1();
fm.Show();
// fm.TopMost=false;
// this.Application.ActiveDocument.Windows.Count;
object aa = this.Application.ActiveDocument.CommandBars["Show Markup"].Controls[3].OnAction;
this.Application.WindowSize+=new Word.ApplicationEvents4_WindowSizeEventHandler(Application_WindowSize);
}
private void Application_WindowSize(Word.Document Doc, Word.Window Wn)
{
if (this.Application.WindowState == Word.WdWindowState.wdWindowStateMinimize)
{
fm.Hide();
}
else
{
fm.Show();
}
}
2 WPS 插件开发
WPS 插件开发可以在 WPS 二次开发论坛 http://bbs.wps.cn/forum-wpsercikaifa-1.html 找到开发的资料。
开发语言
WPS 可以使用 C++ 、 VB6/VAB 、 .net 三种语言
本人实现了 C++ 、 VB6/VAB 两种语言的开发。
2.1 三种访问 WPS 的方式
2.2 使用 C++ 向导实现插件开发（ V9.1.0.4468 ）
目前该种方法只在版本号为 V9.1.0.4468 中调试成功。
下载该向导：
然后解压缩该文档，按照 setup_vs2008.js ，显示安装成功及代表插件开发向导按照成功。
打开 vs2008- 新建工程，即可以看到 WPS Office 插件开发模板。
在OnConnection函数中添加插件功能。
2.2.1 关键代码
功能实现部分，test.h文件。
#pragma once
class __declspec(uuid("{D31D0AB3-B6A5-4FA7-A0C0-179DB9FBFF72}")) test;
_declspec(selectany) _ATL_FUNC_INFO OnClickButtonInfo =
{
CC_STDCALL,
VT_EMPTY,
2,
{ VT_DISPATCH, VT_BYREF | VT_BOOL }
};
using namespace AddInDesignerObjects;
class test :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<test, &__uuidof(test)>,
public IDispatchImpl<_IDTExtensibility2, &IID__IDTExtensibility2, &LIBID_AddInDesignerObjects>,
public IDispEventSimpleImpl<1, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<2, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<3, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<4, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<5, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<6, test, &DIID__CommandBarButtonEvents>,
public IDispEventSimpleImpl<7, test, &DIID__CommandBarButtonEvents>
{
private:
WPS::_ApplicationPtr m_spWPSApp;
_CommandBarButtonPtr m_spButton1;
_CommandBarButtonPtr m_spButton2;
_CommandBarButtonPtr m_spButton3;
_CommandBarButtonPtr m_spButton4;
_CommandBarButtonPtr m_spButton5;
_CommandBarButtonPtr m_spButton6;
_CommandBarButtonPtr m_spButton7;
public:
DECLARE_REGISTRY_RESOURCEID(IDR_WPSCOMADDONS)
DECLARE_PROTECT_FINAL_CONSTRUCT()
BEGIN_COM_MAP(test)
COM_INTERFACE_ENTRY(IDispatch)
COM_INTERFACE_ENTRY(_IDTExtensibility2)
END_COM_MAP()
BEGIN_SINK_MAP(test)
SINK_ENTRY_INFO(1, DIID__CommandBarButtonEvents, 0x01, OnClickButton1, &OnClickButtonInfo)
SINK_ENTRY_INFO(2, DIID__CommandBarButtonEvents, 0x01, OnClickButton2, &OnClickButtonInfo)
SINK_ENTRY_INFO(3, DIID__CommandBarButtonEvents, 0x01, OnClickButton3, &OnClickButtonInfo)
SINK_ENTRY_INFO(4, DIID__CommandBarButtonEvents, 0x01, OnClickButton4, &OnClickButtonInfo)
SINK_ENTRY_INFO(5, DIID__CommandBarButtonEvents, 0x01, OnClickButton5, &OnClickButtonInfo)
SINK_ENTRY_INFO(6, DIID__CommandBarButtonEvents, 0x01, OnClickButton6, &OnClickButtonInfo)
SINK_ENTRY_INFO(7, DIID__CommandBarButtonEvents, 0x01, OnClickButton7, &OnClickButtonInfo)
//SINK_ENTRY_INFO(3, __uuidof(ET::_ApplicationEvents),0x113005, SheetActivate, &SheetActivateInfo)
END_SINK_MAP()
typedef IDispEventSimpleImpl<1, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents1;
typedef IDispEventSimpleImpl<2, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents2;
typedef IDispEventSimpleImpl<3, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents3;
typedef IDispEventSimpleImpl<4, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents4;
typedef IDispEventSimpleImpl<5, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents5;
typedef IDispEventSimpleImpl<6, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents6;
typedef IDispEventSimpleImpl<7, test, &DIID__CommandBarButtonEvents> CommandBarButtonEvents7;
test()
{
}
~test()
{
}
public:
STDMETHOD(OnConnection)(IDispatch * Application,
ext_ConnectMode ConnectMode, IDispatch * AddInInst, SAFEARRAY * * custom)
{
try
{
m_spWPSApp = Application;
_CommandBarsPtr spCommandBars = m_spWPSApp->CommandBars;
CommandBarPtr spCommandBar = spCommandBars->Add("MOKA工具条",1 ,"",TRUE);
CommandBarControlsPtr ETCtrls =spCommandBar ->Controls;
KSO::CommandBarControlPtr popupButton1=ETCtrls->Add(1,"","",TRUE);
popupButton1->Caption = _bstr_t(L"显示标注");
KSO::CommandBarControlPtr popupButton2=ETCtrls->Add(1,"","",TRUE);
popupButton2->Caption = _bstr_t(L"隐藏标注");
KSO::CommandBarControlPtr popupButton3=ETCtrls->Add(1,"","",TRUE);
popupButton3->Caption = _bstr_t(L"打开文件");
KSO::CommandBarControlPtr popupButton4=ETCtrls->Add(1,"","",TRUE);
popupButton4->Caption = _bstr_t(L"附件对象");
KSO::CommandBarControlPtr popupButton5=ETCtrls->Add(1,"","",TRUE);
popupButton5->Caption = _bstr_t(L"保存文件");
KSO::CommandBarControlPtr popupButton6=ETCtrls->Add(1,"","",TRUE);
popupButton6->Caption = _bstr_t(L"退出应用");
//KSO::CommandBarControlPtr popupButton7=ETCtrls->Add(1,"","",TRUE);
//popupButton7->Caption = _bstr_t(L"文档模板");
CommandBarButtonEvents1::DispEventAdvise(popupButton1);
CommandBarButtonEvents2::DispEventAdvise(popupButton2);
CommandBarButtonEvents3::DispEventAdvise(popupButton3);
CommandBarButtonEvents4::DispEventAdvise(popupButton4);
CommandBarButtonEvents5::DispEventAdvise(popupButton5);
CommandBarButtonEvents6::DispEventAdvise(popupButton6);
//CommandBarButtonEvents7::DispEventAdvise(popupButton7);
}
catch(const _com_error&)
{
}
return S_OK;
}
STDMETHOD(OnDisconnection)(ext_DisconnectMode RemoveMode, SAFEARRAY * * custom)
{
return S_OK;
}
STDMETHOD(OnAddInsUpdate)(SAFEARRAY * * custom)
{
return S_OK;
}
STDMETHOD(OnStartupComplete)(SAFEARRAY * * custom)
{
return S_OK;
}
STDMETHOD(OnBeginShutdown)(SAFEARRAY * * custom)
{
return S_OK;
}
//隐藏标注
void __stdcall OnClickButton1(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
m_spWPSApp->ActiveWindow->View->ShowRevisionsAndComments = true;
}
catch (const _com_error& )
{
}
return;
}
//
void __stdcall OnClickButton2(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
m_spWPSApp->ActiveWindow->View->ShowRevisionsAndComments = false;
}
catch (const _com_error& )
{
}
return;
}
//打开文件
void __stdcall OnClickButton3(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
//m_spWPSApp->Selection->InsertFile("D:/win.txt",&vtMissing,&vtMissing,&vtMissing,&vtMissing);
// 引入文件
// WPS::WpsDialog aa = WPS::WpsDialog::wpsDialogInsertFile;
WPS::WpsDialog aa = WPS::WpsDialog::wpsDialogOpenFile;
m_spWPSApp->Dialogs->Item(aa)->Show();
}
catch (const _com_error& )
{
}
return;
}
//附加对象
void __stdcall OnClickButton4(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
// WPS::ShapeNodePtr pp = m_spWPSApp->ActiveDocument->Shapes->AddShape(ksoShapeActionButtonMovie, 100, 100, 200, 200,&vtMissing);
//m_spWPSApp->ActiveDocument->InlineShapes->AddOLEControl();
WPS::WpsDialog aa = WPS::WpsDialog::wpsDialogInsertOLEObject;
m_spWPSApp->Dialogs->Item(aa)->Execute();
}
catch (const _com_error& )
{
}
return;
}
//保存所有的文档
void __stdcall OnClickButton5(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
// m_spWPSApp->ActiveDocument->Save();
m_spWPSApp->CommandBars->Item[L"TabMenu Popup Menu"]->Controls->Item[L"保存所有文档(&E)"]->Execute();
}
catch (const _com_error& )
{
}
return;
}
//退出所有的文档并且一一询问是否需要保存修改过的文档，最后关闭应用
void __stdcall OnClickButton6(
IDispatch* pCtrl,
VARIANT_BOOL* pbCancelDefault)
{
try
{
// m_spWPSApp->Documents->Close();
_variant_t tt=WPS::wpsPromptToSaveChanges;
m_spWPSApp->Quit(&tt,&vtMissing,&vtMissing);
}
catch (const _com_error& )
{
}
return;
}
};
程序运行后会直接调用本地安装WPS2013（V9.1.0.4468），该插件在开发工具-COM加载项中显示，并可以勾选决定是否加载该插件。
2.2.2 C++ 获取 WPS 的一级和二级控件
ofstream outfile("d://b.txt");
if(!outfile){
cout << "Unable to open otfile";
exit(1); // terminate with error
}
_bstr_t bstr = m_spWPSApp->CommandBars->Count;
CString strSql = (LPCSTR)bstr;
int b=_ttoi(strSql);
int a=0;
for(int a=1;a<=b;a++)
{
string strSql = (LPCSTR)m_spWPSApp->CommandBars->Item[a]->Name;
outfile<<a <<" "<<strSql<<endl;
_bstr_t bstr2 = m_spWPSApp->CommandBars->Item[a]->Controls->Count ;
CString strSql2 = (LPCSTR)bstr2;
int m=_ttoi(strSql2);
for(int n=1;n<=m;n++)
{
string strSql = (LPCSTR)m_spWPSApp->CommandBars->Item[a]->Controls->Item[n]->Caption;
outfile<<" "<<a <<"."<<n<<" "<<strSql<<endl;
}
}
outfile.close();
2.3 VB6 制作 COM 加载项
VB6 与 VAB 的区别
VB 是编程工具，与 VS2008 相似； VAB 作为程序的自动化脚本而存在，必须依赖于宿主程序。
他们的主要区别是：
1. VB 是设计用于创建标准的应用程序 , 而 VBA 是使已有的应用程序 (EXCEL 等 ) 自动化
2. VB 具有自己的开发环境 , 而 VBA 必须寄生于已有的应用程序 .
3. 要运行 VB 开发的应用程序 , 用户不必安装 VB, 因为 VB 开发出的应用程序是可执行文件 (*.EXE), 而 VBA 开发的程序必须依赖于它的父应用程序 , 例如 EXCEL.
2.3.1 VB6 制作 COM 加载项的步骤
1.新建工程，选择ActiveX Dll。 2.工程、引用、选择Kingsoft Add-In Designer、Kingsoft Office 1.0 Object Library、Kingsoft WPS 2.0 object Library。 3.将工程名原来的“工程1”改为“kgsPro”,类名称的“Class1”改为“AddCommand” (这里的修改的名称根据实际情况而定义，但在后面的注册时会用到这两个名字） 4.写入如下的代码：
代码如下两节所示
5.单击文件、生成***.dll,保存到C盘下，文件名为kgsPro.dll。 6.Dll生成完成，下面就是注册的步骤了。 7.新建一个文本文档，保存为AddDemo.reg,写入如下的内容 Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Kingsoft\Office\WPS\Addins\kgsPro.AddCommand] "FriendlyName"="WPS加载项Demo" "Description"="Konguisheng的Demo系列之加载项" "LoadBehavior"=dword:00000003 "CommandLineSafe"=dword:00000001 8.双击AddDemo.reg，将此导入到注册表中。 9.单击Windows的“运行”，输入regsvr32 C:\kgsPro.dll完成 10.如果要删除这个加载项 A.新建一个文本文档，保存为DeleteDemo.reg,写入如下的内容 Windows Registry Editor Version 5.00 [-HKEY_CURRENT_USER\Software\Kingsoft\Office\WPS\Addins\kgsPro.AddCommand] B.单击Windows的“运行”，regsvr32 /u C:\kgsPro.dll （此步不是必须）
2.3.2 WPS2009 生产 COM 加载项的代码
Option Explicit
Implements IDTExtensibility2
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
End Sub
2.3.3 WPS2013 （ 9.1.0.4468 ）生产 COM 加载项
Option Explicit
Implements IDTExtensibility2
Private WithEvents btnNew1 As CommandBarButton
Private WithEvents btnNew2 As CommandBarButton
Private WithEvents btnNew3 As CommandBarButton
Private WithEvents btnNew4 As CommandBarButton
Private WithEvents btnNew5 As CommandBarButton
Private WithEvents btnNew6 As CommandBarButton
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Dim comb As CommandBar
Set comb = Application.CommandBars.Add(" 我的工具栏 "
Set btnNew1 = comb.Controls.Add
btnNew1.Caption = " 退出程序 "
btnNew1.SetPictureByPath ("D:/wps 开发文档 /VB-9.1.0.4468/quit.jpg")
Set btnNew2 = comb.Controls.Add
btnNew2.Caption = " 保存文档 "
Set btnNew3 = comb.Controls.Add
btnNew3.Caption = " 引入文件 "
Set btnNew4 = comb.Controls.Add
btnNew4.Caption = " 附加对象 "
Set btnNew5 = comb.Controls.Add
btnNew5.Caption = " 显示标注 "
Set btnNew6 = comb.Controls.Add
btnNew6.Caption = " 隐藏标注 "
End Sub
Private Sub btnNew1_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Application.Quit SaveChanges:=wpsPromptToSaveChanges
End Sub
Private Sub btnNew2_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Application.Documents.Save
End Sub
Private Sub btnNew3_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Dialogs(wpsDialogInsertFile).Show
End Sub
Private Sub btnNew4_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Dialogs(wpsDialogInsertOLEObject).Execute
End Sub
Private Sub btnNew5_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Application.ActiveWindow.View.ShowRevisionsAndComments = True
End Sub
Private Sub btnNew6_Click(ByVal Ctrl As KSO.CommandBarButton, CancelDefault As Boolean)
Application.ActiveWindow.View.ShowRevisionsAndComments = False
End Sub
Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
End Sub
Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
End Sub
2.3.4 VB6 的一些操作说明
下载 VB6.0 精装版。
文件 - 输出 XX.dll 文件
工具 - 引用，选择应用的库
视图 - 对象浏览器，查看库提供的具体方法及属性。
F5 执行程序
F8 单步执行程序
将光标放置在某一个函数内按 F5 ，只执行该函数。
2.4 VAB 开发环境
首先安装好 WPS ，此时开发工具中的 VB 编辑器是灰色的（假定此版 WPS 没有带 VAB 开发功能）
安装对应版本的 VAB ，安装好后， VB 编辑器亮色，表示可以使用。
新建 VAB 工程
开发工具 -VB 编辑器 -F5 ，若此文档未定义宏，弹出对话框，要求输入宏的名称。
Hello World 程序示例：
Sub Test
Dim st As String
st = "Hello Word!"
MsgBox st
End Test
2.4.1 WPS2009 代码示例 –VAB 示例
Sub test()
'声明一个工具栏对象
Dim comb As CommandBar
'添加一个新的工具栏并命名为“我的工具栏”
Set comb = Application.CommandBars.Add("我的工具栏")
'添加一个按钮 名字为“文字” 指定单击时调用宏“InsertText”
With comb.Controls.Add(KsoControlType.ksoControlButton)
.Caption = "文字"
.OnAction = "InsertText"
End With
'添加一个按钮 名字为“图片” 指定单击时调用宏“InsertImg”
With comb.Controls.Add(KsoControlType.ksoControlButton)
.Caption = "图片"
.OnAction = "InsertImg"
End With
'添加一个按钮 名字为“表格” 指定单击时调用宏“InsertTable”
With comb.Controls.Add(KsoControlType.ksoControlButton)
.Caption = "表格"
.OnAction = "InsertTable"
End With
End Sub
Sub InsertText()
'写入文本
Selection.TypeText "Kingsoft Office 2009"
'居中对齐
Selection.ParagraphFormat.Alignment = wpsAlignParagraphCenter
'新段落
Selection.TypeParagraph
End Sub
Sub InsertTable()
'插入表格
Dim mytable As Table
'指定表格的行列数
Set mytable = Selection.Tables.Add(Selection.Range, 3, 3)
End Sub
Sub InsertImg()
'插入图片
Dim myimg As InlineShape
'图片路径为与文档同一目录下名字为"logo.png"
Set myimg = Selection.InlineShapes.AddPicture(ThisDocument.Path & "logo.png")
End Sub
2.4.2 WPS2013 代码示例 -9.1.0.4468 –VAB 示例
Sub test()
' 声明一个工具栏对象
Dim comb As CommandBar
' 添加一个新的工具栏并命名为 " 我的工具栏 "
Set comb = Application.CommandBars.Add(" 我的工具栏 ")
With comb.Controls.Add(ControlButton)
.Caption = " 退出 "
.OnAction = "Quit"
End With
With comb.Controls.Add(ControlButton)
.Caption = " 保存 "
.OnAction = "Save"
End With
With comb.Controls.Add(ControlButton)
.Caption = " 打开文件 "
.OnAction = "InsertFile"
End With
With comb.Controls.Add(ControlButton)
.Caption = " 附加对象 "
.OnAction = "InsertObject"
End With
With comb.Controls.Add(ControlButton)
.Caption = " 显示标注 "
.OnAction = "ShowComments"
End With
With comb.Controls.Add(ControlButton)
.Caption = " 隐藏标注 "
.OnAction = "HideComments"
End With
End Sub
Sub Quit()
Application.Quit SaveChanges:=wpsPromptToSaveChanges
End Sub
Sub Save()
Application.Documents.Save
End Sub
Sub InsertFile()
'Selection.InsertFile FileName:="d:\win.txt", Link:=True
Dialogs(wpsDialogOpenFile).Execute
End Sub
Sub InsertObject()
'Application.ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", FileName:="ww", LinkToFile:=True, DisplayAsIcon:=True, IconFileName, IconIndex, IconLabel, Range
'Application.ActiveDocument.InlineShapes.AddOLEObject "Excel.Sheet", "ww", True, True
'Application.ActiveDocument.InlineShapes.AddOLEObject "Excel.Sheet"
'Application.ActiveDocument.InlineShapes.AddOLEObject "Equation.3", , True
'Application.ActiveDocument.InlineShapes.AddOLEObject , "d:\win.txt", True, True, , 2
With Dialogs(wpsDialogInsertOLEObject)
.Execute
End With
End Sub
Sub ShowComments()
ThisDocument.ActiveWindow.View.ShowRevisionsAndComments = True
End Sub
Sub HideComments()
ThisDocument.ActiveWindow.View.ShowRevisionsAndComments = False
End Sub
2.4.3 WPS2013 代码示例 -9.1.0.4842 –VAB 示例
Sub test()
'声明一个工具栏对象
Dim comb As CommandBar
'添加一个新的工具栏并命名为“我的工具栏”
Set comb = Application.CommandBars.Add("我的工具栏")
'添加一个按钮 名字为“文字” 指定单击时调用宏“InsertText”
With comb.Controls.Add(ControlButton)
.Caption = "退出"
.OnAction = "Quit"
End With
With comb.Controls.Add(ControlButton)
.Caption = "保存"
.OnAction = "Save"
End With
With comb.Controls.Add(ControlButton)
.Caption = "引入"
.OnAction = "InsertFile"
End With
With comb.Controls.Add(ControlButton)
.Caption = "附加"
.OnAction = "InserObject"
End With
With comb.Controls.Add(ControlButton)
.Caption = "显痕"
.OnAction = "ShowComments"
End With
With comb.Controls.Add(ControlButton)
.Caption = "隐痕"
.OnAction = "HideComments"
End With
End Sub
Sub Quit()
Application.Quit SaveChanges:=wpsPromptToSaveChanges
End Sub
Sub Save()
Application.Documents.Save
End Sub
Sub InsertFile()
Selection.InsertFile FileName:="d:\win.txt", Link:=True
End Sub
Sub InsertObject()
'Application.ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", FileName:="ww", LinkToFile:=True, DisplayAsIcon:=True, IconFileName, IconIndex, IconLabel, Range
'Application.ActiveDocument.InlineShapes.AddOLEObject "Excel.Sheet", "ww", True, True
'Application.ActiveDocument.InlineShapes.AddOLEObject "Excel.Sheet"
'Application.ActiveDocument.InlineShapes.AddOLEObject "Equation.3", , True
'Application.ActiveDocument.InlineShapes.AddOLEObject , "d:\win.txt", True, True, , 2
With Dialogs(wdDialogHelpAbout)
.Show
End With
End Sub
Sub ShowComments()
ThisDocument.ActiveWindow.View.ShowRevisionsAndComments = True
End Sub
Sub HideComments()
ThisDocument.ActiveWindow.View.ShowRevisionsAndComments = False
End Sub
3 B/S 调用本地 word 应用
两种方式： ActiveX 、注册表的方式。
3.1 ActiveX 方式
ActiveX 方式只有 IE 浏览器提供，但是 chrome 、 Opera 、 firefox 都不支持该控件，此种方式逐渐被抛弃。
示例：打开服务器的 doc 文件
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>test</title>
</head>
<body>
<button onclick="openDoc()">openDoc</button>
<script type="text/javascript">
function openDoc () {
// body...
var openDocObj;
openDocObj = new ActiveXObject("SharePoint.OpenDocuments.2"); // 为了兼容 Office XP ，可以创建“ SharePoint.OpenDocuments.1 ”
openDocObj.ViewDocument("http://localhost// 葫芦岛三日游行程 .doc");
}
</script>
</body>
</html>
“ IE 已限制此网页运行脚本或 ActiveX 控件 ”，允许运行该 AtiveX 控件，确定，即可以下载服务器的 doc 文档，在本地运行。但是 chrome 、 Opera 、 firefox 都不支持该控件。
3.2 注册表
b/s 程序不允许调用本地的 exe ，如果是这样的话，互联网没有安全可言了
3.2.1 自己编写的程序
可以通过注册一个自己的协议的办法，如
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\form]
"URL Protocol"="D:\\form.exe"
@="form"
[HKEY_CLASSES_ROOT\form\DefaultIcon]
@="D:\\form.exe,1"
[HKEY_CLASSES_ROOT\form\shell]
[HKEY_CLASSES_ROOT\form\shell\open]
[HKEY_CLASSES_ROOT\form\shell\open\command]
@="\"D:\\form.exe\" \"%1\""
注册表工具的版本信息
HKEY_CLASSWES_ROOT\添加 form 树，树的名称对应自定义的 URLProtocol 的名称， web 调用中需要用到这个名称
协议的名称，任意字符，后面不会用到
可应用程序的路径，只能是 exe 的程序
form 添加一个分支，照抄
应用程序的路径， 1 照抄
form 添加一个分支，照抄
form 添加一个分支，照抄
应用程序路径， %1 表示参数
注：
1) 路径使用双杠“ \\ ”
2) 如果字符串中有双引号（”），那么需要加转义字符“ \ ”
3) 将文件名称改为 form.reg ，双击文件执行，将这些项写入到注册表
检验是否注册成功
开始 - 运行 输入 form:://test/ ，如果可以运行该程序，表示注册成功了；或者在浏览器的地址栏直接输入： form:://test/，可以运行则表示注册成功。
3.2.2 调用本地程序
3.2.2.1 启动本地 WPS
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\wps]
@="wps"
"URL Protocol"="C:\\Users\\Administrator\\AppData\\Local\\Kingsoft\\WPS Office\\9.1.0.4468\\office6\\wps.exe"
[HKEY_CLASSES_ROOT\wps\DefaultIcon]
@="C:\\Users\\Administrator\\AppData\\Local\\Kingsoft\\WPS Office\\9.1.0.4468\\office6\\wps.exe,1"
[HKEY_CLASSES_ROOT\wps\shell]
@="open"
[HKEY_CLASSES_ROOT\wps\shell\open]
@="open"
[HKEY_CLASSES_ROOT\wps\shell\open\command]
@="\"C:\\Users\\Administrator\\AppData\\Local\\Kingsoft\\WPS Office\\9.1.0.4468\\office6\\wps.exe\" \"%1\""
1） 将文件名改为 wps.reg ，双击执行该文件，注册上述各项。
2） 在程序 - 开始 / 运行 / 各种浏览器中输入 wps:://test/ （ wps::/test/ 、 wps:/test/ 、 wps: /test/ 、 wps ： ）即可以启动本地安装的 WPS 软件。
3.2.2.2 启动本地 Word
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\word]
@="word"
"URL Protocol"="C:\\Program Files (x86)\\Microsoft Office\\Office14\\WINWORD.EXE"
[HKEY_CLASSES_ROOT\word\DefaultIcon]
@="C:\\Program Files (x86)\\Microsoft Office\\Office14\\WINWORD.EXE,1"
[HKEY_CLASSES_ROOT\word\shell]
@="open"
[HKEY_CLASSES_ROOT\word\shell\open]
@="open"
[HKEY_CLASSES_ROOT\word\shell\open\command]
@="\"C:\\Program Files (x86)\\Microsoft Office\\Office14\\WINWORD.EXE\" \"%1\""
1） 将文件名改为 wps.reg ，双击执行该文件，注册上述各项。
2） 在程序 - 开始 / 运行 / 各种浏览器中输入 word:://test / （ word::/test/ 、 word:/test/ 、 word: /test/ 、 word ： ）即可以启动本地安装的 word 软件。
3） 在程序 - 开始 / 运行 / 各种浏览器中输入 word:://id: / （ word::/ id: / 、 word:/ id: / 、 word: / id: / 、 word ： /id: ）即可以启动本地安装的 word 软件。
3.2.2.3 各版本Word 的注册表查询
http://support.microsoft.com/kb/822005/zh-cn
Word 2013 HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word
Word 2010
HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word
Word 2007
HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word
Word 2003
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word
Word 2002
HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word
Word 2000
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word
