word 2010如何在数字题号前批量添加相同文字

wanghung728 · 发表于 2018-6-22 23:18

7. 《都嘟》中写道:“1918年的数据是,当时日货占中国所有进口货的44%，1920年降到24%,
近乎腰斩了。这是百年来规模最大的一次抵制日货运动。”这次抵制日货运动发生在

A.曱午中日战争时期 B.八国联军侵华时期

C.五四运动时期 D.北伐战争时期

8. 有研究表明：中国十四年抗战直接伤亡人口在4100万以上，加上战时失踪、被俘等项
数字，人口损失则超过4500万。材料中的“十四年抗战”开始于

A.九一八事变 B.华北亊变

C.西安事变 D.七七亊变

想在题号前加上（2018湖南邵阳），是批量添加，大量试卷要处理，请问如何批量添加相同的文字：（2018湖南邵阳）。只在题号前添加；如何用替换功能完成？

如：

（2018湖南邵阳）7. 《都嘟》中写道:“1918年的数据是,当时日货占中国所有进口货的44%，1920年降到24%,

近乎腰斩了。这是百年来规模最大的一次抵制日货运动。”这次抵制日货运动发生在

A.曱午中日战争时期 B.八国联军侵华时期

C.五四运动时期 D.北伐战争时期

附件是另一个文件。

413191246se · 发表于 2018-6-23 01:09

查找框粘贴下面代码：
(^13)([0-9]{1,}[.．、])
替换为框粘贴下面代码：
\1（2018湖南邵阳）\2
勾选“使用通配符”，再点击“全部替换”，OK！
楼主未说明自己会不会使用宏？

wanghung728 · 发表于 2018-6-23 21:24

多謝幫忙，你可以將宏代碼粘貼出來，我嘗試下執行宏

wanghung728 · 发表于 2018-6-23 21:44

刚试过，为什么有点题号前没有加上（2018湖南邵阳），有的题加上了。

413191246se · 发表于 2018-6-24 00:39

楼主，你的题每个段落结尾，有可能是有假段落标记，但是它是回车符（^13）；也有可能是人工换行符（^11）；也有可能段前段后有空格（半角/全角/不间断空格/制表符）；或其它不可见字符，这需要你自己处理一下。我用的是 Word2003，只能提供查找和替换方法了，有时间请看一下 tangqingfu兄编辑的《Word查找和替换实例64例》，会有收获的；至于 2010 上的循环遍历文件夹宏我倒不会，等待高人吧！

413191246se · 发表于 2018-6-24 00:47

忘了一种情况：数字是自动编号的情况。开始以为楼主用的是2010，我用的是2003，帮不上忙的。结果，楼主竟然提供了 2003 格式文档，那么，问题就解决了！请试用下面代码：

Sub test()
With ActiveDocument.Content.Find
.Execute "^13", , , 0, , , , , , "^p", 2
.Execute "^11", , , 0, , , , , , "^p", 2
.Parent.ListFormat.ConvertNumbersToText
.Execute "(^13)([0-9]{1,}[.．、])", , , 1, , , , , , "\1（2018湖南邵阳）\2", 2
End With
End Sub

复制代码

ming0018 · 发表于 2018-6-25 08:31

楼上代码很棒！

飞驰的椒麻鸡 · 发表于 2019-9-19 17:11

413191246se 发表于 2018-6-24 00:47
忘了一种情况：数字是自动编号的情况。开始以为楼主用的是2010，我用的是2003，帮不上忙的。结果，楼主竟然 ...

老大，你代码中的正则表达式能不能解释下，谢谢

413191246se · 发表于 2019-9-19 23:37

老大不敢当！——正则其实我也不会，如果说 [0-9]{1,} 是正则，意思是0-9中任意一个数字出现次数至少1次时的情况。

阿宝剑见 · 发表于 2020-4-8 15:59

学习了，厉害

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

[求助] word 2010如何在数字题号前批量添加相同文字