ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 6391|回复: 6

[分享] 在Word2007的功能区添加自己的功能

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-1-14 12:39 | 显示全部楼层 |阅读模式
以Word2007为例子:

1、首先,新建一个Word2007文档,并保存为"Word2007物理画板.dotm"。
2、关闭此文档,并将此文件名改为Word2007物理画板.zip(新的Office文件格式均符合OpenXML的工业标

准,其实就是一个zip包)
3、打开此zip包,创建一个新的文件夹叫CustomUI
4、在CustomUI文件夹里添加一个xml文件:LitwareRibbon.xml,这个文件用来说明新添加的选项卡的属

性以及包括哪些控件。

此文件内容为:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="LitwareTab" label="物理画板" visible="1">         
        <group id="AGroup" label="图象" visible="1">
          <menu id="menuA1" label="曲线" itemSize="large" >
            <button id="bA11" label="坐标" imageMso="HappyFace" onAction="onbtnA11"/>
            <button id="bA12" label="艺术字" imageMso="HappyFace" onAction="onbtnA12"/>
            <button id="bA13" label="反比线" imageMso="HappyFace" onAction="onbtnA13"/>
            <button id="bA14" label="抛物线" imageMso="HappyFace" onAction="onbtnA14"/>
            <button id="bA15" label="1/4圆弧" imageMso="HappyFace" onAction="onbtnA15"/>
            <button id="bA16" label="圆弧" imageMso="HappyFace" onAction="onbtnA16"/>
            <button id="bA17" label="正弦线" imageMso="HappyFace" onAction="onbtnA17"/>
            <button id="bA18" label="方格" imageMso="HappyFace" onAction="onbtnA18"/>
            <button id="bA19" label="力分解" imageMso="HappyFace" onAction="onbtnA19"/>
            <button id="bA1A" label="距离标" imageMso="HappyFace" onAction="onbtnA1A"/>
          </menu>
          <menu id="menuA2" label="题型" itemSize="large" >
            <button id="bA21" label="选择题" onAction="onbtnA21"/>
            <button id="bA22" label="填空线" onAction="onbtnA22"/>
          </menu>
          <menu id="menuA3" label="图线" itemSize="large" >
            <button id="bA31" label="位移图线" imageMso="HappyFace" onAction="onbtnA31"/>
            <button id="bA32" label="速度图线" imageMso="HappyFace" onAction="onbtnA32"/>
            <button id="bA33" label="简谐波" imageMso="HappyFace" onAction="onbtnA33"/>
            <button id="bA34" label="受迫振动" imageMso="HappyFace" onAction="onbtnA34"/>
            <button id="bA35" label="阻尼振动" imageMso="HappyFace" onAction="onbtnA35"/>
            <button id="bA36" label="U-I" imageMso="HappyFace" onAction="onbtnA36"/>
            <button id="bA37" label="U-R" imageMso="HappyFace" onAction="onbtnA37"/>
            <button id="bA38" label="P-R" imageMso="HappyFace" onAction="onbtnA38"/>
            <button id="bA39" label="η-R" imageMso="HappyFace" onAction="onbtnA39"/>
            <button id="bA3A" label="晶体凝固" imageMso="HappyFace" onAction="onbtnA3A"/>
            <button id="bA3B" label="晶体熔化" imageMso="HappyFace" onAction="onbtnA3B"/>
            <button id="bA3C" label="非晶体凝固" imageMso="HappyFace" onAction="onbtnA3C"/>
            <button id="bA3D" label="非晶体熔化" imageMso="HappyFace" onAction="onbtnA3D"/>
          </menu>
          <separator id="as1" />
          <menu id="menuA4" label="场线" itemSize="large" >
            <button id="bA41" label="正电荷" imageMso="HappyFace" onAction="onbtnA41"/>
            <button id="bA42" label="负电荷" imageMso="HappyFace" onAction="onbtnA42"/>
            <button id="bA43" label="等量正" imageMso="HappyFace" onAction="onbtnA43"/>
            <button id="bA44" label="等量负" imageMso="HappyFace" onAction="onbtnA44"/>
            <button id="bA45" label="等量异" imageMso="HappyFace" onAction="onbtnA45"/>
            <button id="bA46" label="正点平板" imageMso="HappyFace" onAction="onbtnA46"/>
            <button id="bA47" label="负点平板" imageMso="HappyFace" onAction="onbtnA47"/>
            <button id="bA48" label="水平右" imageMso="HappyFace" onAction="onbtnA48"/>
            <button id="bA49" label="向里" imageMso="HappyFace" onAction="onbtnA49"/>
            <button id="bA4A" label="向外" imageMso="HappyFace" onAction="onbtnA4A"/>
          </menu>
        </group>
        <group id="BGroup" label="刻度">
          <menu id="menuB1" label="尺" itemSize="large" >
            <button id="bB11" label="刻度线" imageMso="HappyFace" onAction="onbtnB11"/>
            <button id="bB12" label="长刻度" imageMso="HappyFace" onAction="onbtnB12"/>
            <button id="bB13" label="千分尺" imageMso="HappyFace" onAction="onbtnB13"/>
            <button id="bB14" label="游标10" imageMso="HappyFace" onAction="onbtnB14"/>
            <button id="bB15" label="游标20" imageMso="HappyFace" onAction="onbtnB15"/>
            <button id="bB16" label="游标50" imageMso="HappyFace" onAction="onbtnB16"/>
          </menu>
          <menu id="menuB2" label="电表" itemSize="large" >
            <button id="bB21" label="电表盘" imageMso="HappyFace" onAction="onbtnB21"/>
            <button id="bB22" label="A表盘" imageMso="HappyFace" onAction="onbtnB22"/>
            <button id="bB23" label="V表盘" imageMso="HappyFace" onAction="onbtnB23"/>
            <button id="bB24" label="电阻箱" imageMso="HappyFace" onAction="onbtnB24"/>
          </menu>
          <menu id="menuB3" label="计时" itemSize="large" >
            <button id="bB31" label="秒表" imageMso="HappyFace" onAction="onbtnB31"/>
            <button id="bB32" label="纸带1" imageMso="HappyFace" onAction="onbtnB32"/>
            <button id="bB33" label="纸带2" imageMso="HappyFace" onAction="onbtnB33"/>
          </menu>
        </group>
        </tab>
      </tabs>
   </ribbon>
</customUI>

注意一定要另保存为"UTF-8"的格式.
可以看出来,这个XML定义了一个叫"物理画板"的选项卡,其中有各种按钮,点击时会触发对应的一个函

数。
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包文件名改为"Word2007物理画板.dotm",注意只要将后缀名".zip"改为".dotm"就可以了.
8、打开这个word文档,就可以在功能区中看到新添加的"物理画板"这个选项卡了.

说明:由于本人是一位物理教师,所以就以物理画板为例.函数的调用可以参考VBA资料或互相交流.电子邮箱:jxliudehua@163.com

TA的精华主题

TA的得分主题

发表于 2009-1-14 19:11 | 显示全部楼层
学习了。谢谢分享。

TA的精华主题

TA的得分主题

发表于 2011-2-26 15:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
怎么添加相应功能的宏代码 还不知道方在哪里 也不知道在关闭的时候能不能自动卸载

TA的精华主题

TA的得分主题

发表于 2013-9-2 23:50 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-8-10 21:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这个是什么呀?

TA的精华主题

TA的得分主题

发表于 2016-3-6 20:03 | 显示全部楼层
我想在WORD中自定义一个选项卡,代码如下,但怎么搞都不能显示选项卡,请哪位高手指点一下,问题出在哪里?
customui.xml中的代码:
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

    <ribbon startFromScratch="false">
  
        <tabs>
   
            <tab id="NewTab" visible="true" label="美化工具" insertAfterMso="TabHome" keytip="A">
   
                <group id="Group1" visible="true" label="QQ:514734691">
     
                    <menu id="menu" label="VBE风格 &#13;" imageMso="ChartTypeOtherInsertGallery"  size="large"  itemSize="large">
      
                        <button id="button1" label="关键字高亮"  imageMso="SmartArtChangeColorsGallery"  onAction="GL" />
      
                        <button id="button2" label="注释风格"  imageMso="OutlineWeightGallery"  onAction="ZS" />
      
                        <button id="button3" label="一键设置"  imageMso="GroupSmartArtQuickStyles"  onAction="YJ" />
     
                        <button id="button4" label="还原"  imageMso="FormatPainter"  onAction="HY" />
      
                        <button id="button5" label="关于"  imageMso="ObjectsSelect"  onAction="GY" />  
   
                    </menu>
   
                </group>   
   
            </tab>
  
        </tabs>

    </ribbon>

</customUI>





.rels中的代码:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
        <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
        <Relationship Id="rId8" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>       
        <Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
        <Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="word/document.xml"/>
</Relationships>



[Content_Types].xml中的代码:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Override PartName="/CustomUI/customUI.xml" ContentType="application/xml"/>
<Types xmlns="http://schemas.openxmlformats.org/package/2006/content-types"><Default Extension="rels" ContentType="application/vnd.openxmlformats-package.relationships+xml"/><Default Extension="xml" ContentType="application/xml"/><Override PartName="/word/document.xml" ContentType="application/vnd.ms-word.document.macroEnabled.main+xml"/><Override PartName="/word/styles.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.styles+xml"/><Override PartName="/word/stylesWithEffects.xml" ContentType="application/vnd.ms-word.stylesWithEffects+xml"/><Override PartName="/word/settings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.settings+xml"/><Override PartName="/word/webSettings.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.webSettings+xml"/><Override PartName="/word/fontTable.xml" ContentType="application/vnd.openxmlformats-officedocument.wordprocessingml.fontTable+xml"/><Override PartName="/word/theme/theme1.xml" ContentType="application/vnd.openxmlformats-officedocument.theme+xml"/><Override PartName="/docProps/core.xml" ContentType="application/vnd.openxmlformats-package.core-properties+xml"/><Override PartName="/docProps/app.xml" ContentType="application/vnd.openxmlformats-officedocument.extended-properties+xml"/></Types>

TA的精华主题

TA的得分主题

发表于 2017-7-4 16:19 | 显示全部楼层
用 Custom UI Editor For Microsoft Office 编辑吧,简单高效!
2017-06-26_095419.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-10 10:26 , Processed in 0.034654 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表