word编号格式“图一-1”改为“图 1-1”

一、使用插件——论文抽屉

官网：毕业论文模板|学位论文模板|论文模板|图加软件「论文抽屉」-主页 (tujiastudio.com)

优点：国产，对于域的操作很方便；
缺点：需要付费使用；

二、编辑域——使用宏

原理见：编号格式“图一.1”改为“图1.1”编号以阿拉伯数字显示 - 懵懂的菜鸟 - 博客园 (cnblogs.com)

这里只是将上述原理使用宏实现自动操作，先上代码：

Sub 题注正则替换()
'
' 题注正则替换 宏
'
'ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodesSelection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _PreserveFormatting:=FalseSelection.TypeText Text:="SEQ seq \h"Selection.MoveRight Unit:=wdCharacter, Count:=2Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "^d SEQ seq \c".Replacement.Text = "SEQ seq \c".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = "SEQ seq \c-".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = "STYLEREF 1 \s".Replacement.Text = "SEQ seq \c".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodesSelection.WholeStorySelection.Fields.Update
End Sub

Sub 题注正则替换【更新】()
'
' 题注正则替换【更新】 宏
'
'ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodesSelection.Delete Unit:=wdCharacter, Count:=1Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _PreserveFormatting:=FalseSelection.TypeText Text:="SEQ seq \h"Selection.MoveRight Unit:=wdCharacter, Count:=2Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "^d SEQ seq \c".Replacement.Text = "SEQ seq \c".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = "SEQ seq \c-".Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllWith Selection.Find.Text = "STYLEREF 1 \s".Replacement.Text = "SEQ seq \c".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodesSelection.WholeStorySelection.Fields.Update
End Sub

食用方法：

1. 创建宏，将上述代码分别创建宏；

2. 将光标移至一级标题末尾，运行“题注正则替换”；

→结果：

3. 插入新图片后，将光标移至一级标题末尾，运行“题注正则替换【更新】”；

→结果：

word编号格式“图一-1”改为“图 1-1”相关推荐

图标题中的汉字序号改为阿拉伯序号，如“图二-1改为图2-1”
学位论文的章节标题一般要求汉字序号,如第一章.第二章--,对应的图标题就会变成"图一-1","图二-1"-- [解决办法]:利用日期转换的域代码,将汉字转换为阿 ...
word2013图表题注：将图一-1改为图1-1
引用链接:https://blog.csdn.net/buaazt/article/details/70257619?depth_1-utm_source=distribute.pc_relevant ...
Word 自动更改题注章节编号格式“图一.1”为“图1.1”
转贴: http://hi.baidu.com/yybear505/blog/item/04508e9810be07026f068c24.html word无MathType见题注编号格式" ...
Word论文中关于章、节、图、表、公式自动编号及引用
1. 章.节自动编号首先定义新的列表样式可以对定义的样式重新命名(如:自动编号),找到格式---->编号,进行编号设置之后就是定义编号的级别,与对应的标题进行链接(如级别1-----标题1 ...
在Word2016及以上版本中，如何统一查看文章全部的脚注内容？个别脚注被增删，脚注顺序错乱怎么办？从一个Word复制到另一个Word中后，原文中脚注序号的格式变大了如何改回正常？
一.在Word2016及以上版本中统一查看文章全部的脚注内容操作:视图--草稿视图--引用--显示备注效果如下: 二.个别脚注被增删,脚注顺序错乱怎么办操作:在上一步操作基础上,光标停在脚注区 ...
word为双栏格式mathtype公式和编号格式调整
word为双栏格式mathtype公式和编号格式调整一.双栏格式如何设置 1.如果需要将整个word文档都变为双栏格式,选择布局->栏->双栏即可. 2.如果需要在word中部分变为双栏 ...
word 自定义编号格式
选择"定义新编号格式" 设置"编号格式"
计算机二级 word 论文格式,(计算机二级word练习3.doc
(计算机二级word练习3 文档:Visio介绍对正文进行排版,其中: 章名使用样式"标题1",并居中:编号格式为:第X章,其中X为自动排序. 小节名使用样式"标题2& ...
Word题注带一级标题，由图一.1变为图1.1
目录图一.1变为图1.1 图目录或表目录图一.1变为图1.1 这篇博客简单介绍了题注和交叉引用的使用 Word添加题注.域的使用_z6q6k6的博客-CSDN博客_word题注域目录添加题注交叉 ...

word编号格式“图一-1”改为“图 1-1”

word编号格式“图一-1”改为“图 1-1”相关推荐

最新文章

热门文章

word编号格式“图 一-1”改为“图 1-1”

word编号格式“图 一-1”改为“图 1-1”相关推荐

最新文章

热门文章

word编号格式“图一-1”改为“图 1-1”

word编号格式“图一-1”改为“图 1-1”相关推荐