Word给自动生成的目录页码添加括号
一些学校的毕业论文格式要求中,要求目录的页码需要加括号如下:
[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-kW5SI4pw-1582034649079)(C:\Users\weixin\AppData\Roaming\Typora\typora-user-images\image-20200218214156664.png)]
而Word自动生成的目录格式中并没有这一选项,因此很多人是自己手动一个一个输上去的,要了老命。
而网上也有相关教程,但看来看去原理都是一样,并不完美。
我们先来看看现有教程是怎么搞的。
1.选中目录内容
2.按ctrl+h,弹出替换框
3.在查找内容中填入“([0-9]{1,})”,而替换内容中填入“(\1)“,并且选中“使用通配符”选项,如下所示:
一顿操作后点全部替换,悲剧就出现了:
目录中所有的数字全部替换成了带括号的,而事实上我们只希望右边那一排带括号。
下面开始本教程的内容。
1.第一步我们完全照抄上面的做法,得到上面那个悲剧的结果。
2.观察这个结果我们可以发现,右边那串括号的左右均没有字符,因此我们直接将左右有字符的括号全部替换掉,操作同上,只是查找内容改成“)(?)”及“(?)(”,替换内容改为“\1”,如下:
分别运行后结果如下:
可以看到只剩下左边这个括号是我们不想要的了。
4.这个时候我们再观察可以看到左边这个括号的右边是数字字符,之后是一个“.”,因此我们可以将查找内容改成“(([0-9]{1,}).”替换内容改为“\1.”,再次替换,就得到完美的结果了!!!
当然这需要四步操作是比较烦的事情,有人可能觉得还不如直接输入方便,那我们把上面的操作直接写成宏代码,只需要选中目录然后点一下就搞定,代码如下:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([0-9]{1,})"
.Replacement.Text = "(\1)"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(?)("
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ")(?)"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(([0-9]{1,})."
.Replacement.Text = "\1."
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop