在Office2007中自定义用户界面(1)

5、在[Content_Types].xml文件中的</Types>前添加一个element：

<Override PartName="/CustomUI/LitwareRibbon.xml" ContentType="application/xml"/>

6、在_rels文件夹下的.rels中的</RelationShips>前添加一个element：

<Relationship Id="rId8" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="CustomUI/LitwareRibbon.xml"/>

7、将这几个文件夹和文件重新打成一个zip包：CustomRibbon.zip

8、讲此zip包文件名改为CustomRibbon.docx

9、打开这个word文档，就可以看到新添加的这个选项卡了：

10、问题：如果需要在按下那个"Generate Number"按钮后执行一些操作怎么办？

答案：用VBA。

在Word2007中，默认的VBA编辑是关闭的，所以我们点击左上角的Office按钮，再选择其中的"Word选项"，把"在功能区显示开发工具选项卡"前面的复选框挑上勾，确定后，就可以在Word的功能区中看到"开发工具"的选项卡。

11、将文档另存为"启用宏的Word文档"，这时，此word文档的后缀会由docx变为docm。在Office2007中，后缀是x的文档将不会启用宏，而保护宏代码的文档都以m结尾。

12、点击"开发工具"选项卡，选择"Visual Basic"按钮，为此文档增加如下代码：

Public Sub GenerateNumber(control As Variant)

ActiveDocument.Range.InsertAfter ("我是老陈！")

End Sub

保存并关闭。

13、点击"Litware"选项卡，再点击其中的"Generate Number"按钮，刚刚写好的这段VBA代码就开始执行了。

查看本文来源