如何将指定范围的大写数字批量转换为阿拉伯数字？

zhanglei1371 · 发表于 2012-10-13 13:23

请教个问题：
在一个很长的文章中我想实现如下的替换：
第六百九十四章替换为第694章
第六百九十五章替换为第695章
第六百九十六章替换为第696章

但同时其他段落内的大写数字不变，该如何实现？该用什么代码？

qy1219no2 · 发表于 2012-10-13 13:36

word还是EXCEL？

zhanglei1371 · 发表于 2012-10-13 15:58

是word ，很长的文章

ALPHAS · 发表于 2012-10-13 16:55

本帖最后由 ALPHAS 于 2012-10-13 17:01 编辑

1

1

2

3

4CtrlA
5F9
6ctrlShiftF9

huguifang · 发表于 2012-10-13 19:40

不错，学习了。

zhanglei1371 · 发表于 2012-10-13 21:46

完美的方法！

ALPHAS · 发表于 2012-10-14 00:25

谢谢版主。嘿嘿，好高兴啊！！向版主及各位老前辈致敬！！

ph378 · 发表于 2020-9-6 10:16

学习学习了，收藏

cuanju · 发表于 2020-9-6 10:45

根据 ALPHAS 老师的方法，写如下代码：
==============================
Sub d()
Rem 第X章大写数字批量转换为阿拉伯数字
Set oRng = ActiveDocument.Range(0, 0)
With oRng
      .Fields.Add Range:=ActiveDocument.Range(0, 0), Text:="AUTONUM  \* Arabic"
      .End = .End + 1
      .Select
      .Cut
End With
ActiveDocument.Content.Find.Execute FindText:="<第[!章]{1,5}章(*^13)", ReplaceWith:="第^c章\1", Replace:=wdReplaceAll, MatchWildcards:=True
ActiveDocument.Content.Fields.Unlink '域代码转为值
End Sub

补充内容 (2020-9-21 10:40):
如果希望对第X条有效，只要在代码的所有“章”都改成“条”即可

		自动登录	找回密码
密码			免费注册

[求助] 如何将指定范围的大写数字批量转换为阿拉伯数字？

评分

评分