liuxoxo的博客

原文链接：https://blog.csdn.net/weixin_44380086/article/details/124119316。①把全部题注转换为域代码。快捷键：ALT+F9，域代码示例{STYLEREF 1 \s}，1表示自定义标题1；（1）链接：https://www.jianshu.com/p/dc75843333fe。关于批量修复原文出处：（因为全部批量修复，笔者比较谨慎，操作了一次，貌似不是很成功，，在章节第一章图片的代码域最后\s 1修改为\r 1，然后重新更新域即可。

Sub 数字全角转半角()'' 全角转半角 Macro' Dim qjsz, bjsz As String, i As Integer '定义qjsz(全角数字)、bjsz(半角数字)为字符串型，i为整数型qjsz = "０１２３４５６７８９"bjsz = "0123456789"For i = 1 To 10 '循环10次With Selection.Find.Text = Mid(qjsz, i, 1) 'mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一.