当前位置: 首页 > news >正文

(宏) Word图片题注“图一-1”转化为“图1-1”

功能

如果word标题为“第一章”,让图片题注从“图一-1”转化为“图1-1”。
此前毕设验证可用。

VBA代码

Sub 插入图片标题()
Dim ZH1 As String, ZH2 As String
Dim TH As StringSelection.TypeText "图"ZH1 = "QUOTE ""一九一一年一月日"" \@ ""D"""
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=ZH1
Selection.EndKeyActiveWindow.View.ShowFieldCodes = True
Selection.MoveLeft , 11ZH2 = "STYLEREF 1 \s"
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=ZH2
Selection.EndKeySelection.TypeText "-"TH = "SEQ 图 \* ARABIC \s 1"
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=THActiveWindow.View.ShowFieldCodes = False
Selection.WholeStory
Selection.Fields.UpdateEnd Sub

备注

2022年3月8日:

1)建议另起一行插入题注,然后运行改脚本,将“图一-1”转化为“图1-1”。

2)后续插入图片题注时,不直接使用word的插入题注功能,而是复制之前得到的“图1-1”,然后 Ctrl+A 选中全文,按F9更新域,就会变成“图1-2”之类的。

2022年3月9日(2022年3月18日更新):

直接分享word文档:https://www.aliyundrive.com/s/EkBtkrWuhmy。已转好,直接复制题注即可使用。

2022年3月18日:

如何拓展至“表1-1”等相似题注?

首先,复制“图1-2”题注,然后右键“切换域代码”
在这里插入图片描述
在这里插入图片描述
再把域代码里面的“图”改为“表”,然后选中全部域代码,右键“切换域代码”换回去:
在这里插入图片描述
在这里插入图片描述
这时,再Ctrl+A 选中全文,按F9更新域,就会变成“表1-1”:
在这里插入图片描述
更新到分享的word里面了 😄


http://www.taodudu.cc/news/show-6105729.html

相关文章:

  • app性能测试怎么做
  • PCB布局和绘制的关键操作
  • 什么是CAD的模型和布局?
  • 阿里巴巴矢量图标库icon图标在线引用
  • 精灵随着鼠标的移动而移动
  • 【cocos2D-X】Plist使用 实现 移动精灵多图片动画
  • 移动设备上“精灵图”的制作适配
  • cocos2dx 精灵的移动(2)
  • Cocos2d-x 2.0 百例精讲:如何让一个精灵跟随触点移动
  • 在屏幕的任意位置拖拽,控制精灵移动
  • 精灵的移动效果,旋转效果
  • 【JavaScript】实现移动小精灵
  • 让视角随着精灵移动
  • 移动设备上“精灵图”的制作
  • 移动端精灵图的使用
  • Cocos2d-x随记(2)-精灵移动
  • buntu22.04安装WPS中文版(一百一十八)
  • 数数
  • 视网膜数据集(2)Messidor
  • realsense 相机的部分信息获取
  • Linux线程数和系统线程数查看
  • 数的表示与运算
  • 如何判断一个数是否是NaN
  • SQLite获取查询结果数
  • 用while循环写四叶玫瑰数(自幂数)
  • 【算法讲20:Dsu on Tree】树上数颜色 | Lomsat gelral
  • Deep_Learn关于数组和数的操作
  • codeforces1670F Jee, You See?(DP/位运算/前缀和/组合数)
  • SEEM~
  • SEE