怎么让带顿号的中文数字，另起一行，谢谢！

常扬帆 · 发表于 2022-10-7 15:31

本帖最后由常扬帆于 2022-10-7 18:33 编辑

请教：怎么才能把带顿号的红色序号另起一行

不要红色，红色是为了说明问题而加上去的

(衷心感谢！)

一、我们。二、你们。三、他们。一百〇三、它们。五、你们的。一千〇七十八、认真看书学习，弄通马克思主义。七、回程车配货信息怎么找,上58同城!全国专线直达。五十五、如何在word中查找以汉字数字开头的段落。八千九百一十、干干净净。九千九百六十七、认认真真。一百〇五、一百〇五岁的他红光满面。

段末还有的是？、.、！、……等等。

良良 · 发表于 2022-10-7 20:19

首先在每个句号后按回车键，然后全选正文，点右键，选择编号样式。再删除红色字体。

413191246se · 发表于 2022-10-7 20:29

Sub a1007_replace()
ActiveDocument.Content.Find.Execute "([一二三四五六七八九十百千万零〇○Oo0０Ｏｏ]@)(、)", , , 1, , , , , , "^p\1\2", 2
End Sub

复制代码

常扬帆 · 发表于 2022-10-7 20:43

本帖最后由常扬帆于 2022-10-7 20:45 编辑

良良发表于 2022-10-7 20:19
首先在每个句号后按回车键，然后全选正文，点右键，选择编号样式。再删除红色字体。

谢谢您的关注，费心了。可能是我没说清楚，我的目的是：我带顿号的序号数不能变，我只是要它们另起一行，并且行数相当多，不能按回车键。再次感谢！

minchar · 发表于 2022-10-7 21:44

打开查找替换对话框，勾选通配符，查找内容输入:[〇一二三四五六七八九十百千万亿]{1,}、
替换内容：^13^&
全部替换

limonet · 发表于 2022-10-7 21:59

还是不用代码

常扬帆 · 发表于 2022-10-7 22:03

minchar 发表于 2022-10-7 21:44
打开查找替换对话框，勾选通配符，查找内容输入:[〇一二三四五六七八九十百千万亿]{1,}、
替换内容：^13^& ...

谢谢您，不知为什么，就“一百五”不听话。衷心感谢！

常扬帆 · 发表于 2022-10-7 22:15

limonet 发表于 2022-10-7 21:59
还是不用代码

完美！衷心感谢您！
代码我会用了。可惜是不会写。您给赐一个？再次谢谢您！

wdpfox · 发表于 2022-10-8 08:00

常扬帆发表于 2022-10-7 22:03
谢谢您，不知为什么，就“一百五”不听话。衷心感谢！

有坑————

413191246se · 发表于 2022-10-8 12:34

我 3 楼的代码，楼主看到没有？

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

[求助] 怎么让带顿号的中文数字，另起一行，谢谢！