word全文有条件字符转换

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:43:23
我自己汇编了考试需要用的多部法条，现希望把word文档内的如“第一二三”这样的字符全部换成如“第123”这样，即中文数字转换成英文数字。查找/替换方式不太可行，因为有几千个，且数字都不太一样。忘高人指点。方法简单可行的送50分！
2楼的大哥 您的宏运行了貌似没效果啊 是不是我太笨了……

Sub Macro1()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
For i = 1 To 100
With Selection.Find
.Text = "第" + CStr(chnumstr(CStr(i)))
.Replacement.Text = "第" +CStr(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then