请教如何用VBA批量将标题数字部分变成中文小写

多久多少 · 发表于 2016-1-21 21:33

本帖最后由多久多少于 2016-1-21 21:33 编辑

请教各位高手，想将类似附件的文档中的标题 “第？章 **” （？为1-4位阿拉伯数字）中的数字部分替换为中文小写数字。
例如：将 “第1章逃出” 替换为： “第一章逃出”

文档都比较长，标题会有两种情况：
1、数字部分会是连续的
第1章
第2章
第3章
第4章
第5章
……
2、数字部分会是若干段连续的
第一部
第1章
第2章
第3章
……
第二部
第1章
第2章
第3章
……

请问如何用VBA实现？多谢

test.zip (11.16 KB, 下载次数: 224)

Herfei · 发表于 2016-1-22 17:33

不怕麻烦就“第？章”一个一个替换，虽多1-100进行100次，
再一个就是复制到Excel里，用函数实现，这个稍微有点复杂，我给你一个附件参考一下转换的函数

多久多少 · 发表于 2016-1-24 14:25

Herfei 发表于 2016-1-22 17:33
不怕麻烦就“第？章”一个一个替换，虽多1-100进行100次，
再一个就是复制到Excel里，用函数实现，这个稍 ...

感谢您的回复。Excel里我可以用函数实现。
但是还是想知道用VBA在Word里怎么做。

eh蝴蝶效应 · 发表于 2016-1-27 21:01

用高级替换可以实现。好吧，也想看看vba如何实现？

多久多少 · 发表于 2016-2-3 16:17

有高手能帮忙解答一下吗？多谢了

xwdys · 发表于 2016-2-4 17:53

本帖最后由 xwdys 于 2016-2-4 18:04 编辑

用域的方式试一下:

Sub Test()
Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[0-9]{1,4}"
.MatchWildcards = True
End With
Do While Selection.Find.Execute
With Selection
.Fields.Add .Range, -1, "= " & .Text & "\* CHINESENUM3", False
End With
Loop
Application.ScreenUpdating = True
End Sub

复制代码

多久多少 · 发表于 2016-2-5 16:06

xwdys 发表于 2016-2-4 17:53
用域的方式试一下:

太好了，完美解决。非常非常感谢。

提前拜年啦！

xwdys · 发表于 2016-2-5 16:11

本帖最后由 xwdys 于 2016-2-5 16:28 编辑

多久多少发表于 2016-2-5 16:06
太好了，完美解决。非常非常感谢。

提前拜年啦！

改进一下，如果文中出现数字，则不替换：

Sub Test()
Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^13第[0-9]{1,4}章"
.MatchWildcards = True
End With
Do While Selection.Find.Execute
With Selection
.SetRange .Start + 2, .End - 1
.Fields.Add .Range, -1, "= " & .Text & "\* CHINESENUM3", False
End With
Loop
Application.ScreenUpdating = True
End Sub

复制代码

多久多少 · 发表于 2016-4-13 16:18

xwdys 发表于 2016-2-5 16:11
改进一下，如果文中出现数字，则不替换：

感谢感谢！
敬佩您不断改进的进取精神。

ww0000 · 发表于 2018-4-26 16:16

xwdys 发表于 2016-2-4 17:53
用域的方式试一下:

Sub Test()
  Application.ScreenUpdating = False

  Selection.HomeKey Unit:=wdStory
  Selection.Find.ClearFormatting

  With Selection.Find
.Text = "^13[0-9]{1,4}"
.MatchWildcards = True
  End With

  Do While Selection.Find.Execute
With Selection
   .Fields.Add .Range, -1, "= " & .Text & "\* CHINESENUM3", False
End With
  Loop
  Application.ScreenUpdating = True
End Sub

只替换段落开始的数字，如上，怎么改？谢谢

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

[求助] 请教如何用VBA批量将标题数字部分变成中文小写