word高级替换问题

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:16:41
Word中能不能实现如下格式的替换：
原文是图3.1-12、3.1-13.......3.1-39
替换成图3.1-1、3.1-2......3.1-28
也就是把后面的编号12、13、。。。。39替换成1、2、3.。。。。。28
如果不能替换，怎么样可以实现？使用宏可以吗？期待高手！

Sub t()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
For i = 12 To 39
.Forward = True
.Wrap = wdFindContinue
.Text = "3.1-" & Trim(CStr(i))
.Replacement.Text = "3.1-" & Trim(CStr(i - 11))
.Execute
Next i
End With
End Sub
提示： 这个不要多次运行哈。。

只有在编辑里点击替换，在替换的时候把把后面一位数改成你想要的数字啦！

想了半天，没什么好方法，可以编个小程序自己完成，但是这样很费力还不如直接改呢。

查找替换→高级→特殊字符，选中1/4长划线，再输入1，替换为1/4长划线。以此类推，三次全部替换之后完成任务，应该比较节省时间。