将序号带点的句子另起一行

常扬帆 · 发表于 2022-9-27 21:03

将序号带点的句子另起一行的宏，如：
1.面对历史罕见的冲击，我们在“六稳”工作基础上，明确提出“六保”任务，特别是保就业保民生保市场主体，以保促稳、稳中求进。2.立足国情实际，既及时果断又保持定力，坚持不搞“大水漫灌”，科学把握规模性政策的平衡点。……
变成：
1.面对历史罕见的冲击，我们在“六稳”工作基础上，明确提出“六保”任务，特别是保就业保民生保市场主体，以保促稳、稳中求进。
2.立足国情实际，既及时果断又保持定力，坚持不搞“大水漫灌”，科学把握规模性政策的平衡点。
……

1000.或更多

衷心感谢！

413191246se · 发表于 2022-9-28 10:30

Sub a0928_test()
ActiveDocument.Content.Find.Execute "([0-9]@)[、.．]", , , 1, , , , , , "^p\1．", 2
End Sub

复制代码

limonet · 发表于 2022-9-28 10:35

全部替换。

limonet · 发表于 2022-9-28 10:41

排除了一些字符

蜀中草莽 · 发表于 2022-9-28 16:13

查找红色数字就好了

413191246se · 发表于 2022-9-28 17:00

楼上两位朋友：你们好！不能替换为“^13”，这样会产生假回车符，造成排版困扰，前几天我就吃亏了！要替换成“^p”。

limonet · 发表于 2022-9-28 17:48

413191246se 发表于 2022-9-28 17:00
楼上两位朋友：你们好！不能替换为“^13”，这样会产生假回车符，造成排版困扰，前几天我就吃亏了！要替换 ...

没有毛病，你试试。

常扬帆 · 发表于 2022-9-28 20:19

413191246se 发表于 2022-9-28 10:30

您好：带点的元，带点的百分率也跟上了。

常扬帆 · 发表于 2022-9-28 20:24

limonet 发表于 2022-9-28 10:41
排除了一些字符

谢谢，您的很好，符合题目要求，衷心感谢！

常扬帆 · 发表于 2022-9-28 21:16

limonet 发表于 2022-9-28 10:41
排除了一些字符

您的完全达到了题目的要求，衷心感谢！

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

[求助] 将序号带点的句子另起一行