[求助]能否用VBA将已编好的文档中的自动编号改为像手工输入一样的普通编号?

ssq1109 · 发表于 2006-2-5 11:23

WORD自动编号功能有时很省事，但当文档编好后，自动编号后的圆点或所加括号都看着不舒服，再者，对编排试卷时，时常涉及4个选项：如： 1．选择正确答案（） A．一二…… B．四五…… C．六七…… D．八九…… 如果是上面的A．B．C．D．是手工录入的，我常常将这些选项前的换行符(^p)改为人工换行符(^l)，这样再选中整个选择题，通过设置悬挂缩进得下列式样是非常容易的，因为虽然各选项前有人工换行符，但本质上它们还是属于一整段。 1．选择正确答案（） A．一二…… B．四五…… C．六七…… D．八九…… 但是如果A．B．C．D．是自动编号产生的，若再将换行符(^p)改为人工换行符(^l)，这些编号都消失了，所以我希望将已编好的WORD文档中的所有自动编号都批量改为相应的像手工输入的编号，且原来是（1）、（2）……后来也是（1）、（2）……，原来是1．、2．后来也是1．、2．，即只是本质上不再是自动编号，而形式上看上去基本无变化（如字符间距有点变化当然是可以的）。

守柔 · 发表于 2006-2-5 11:47

试试这个方法：

Sub Example()
ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub

ssq1109 · 发表于 2006-2-5 14:36

非常谢谢守柔大侠，我自认为这段时间有进步，但什么时候也能像您一样对VBA运用自如呢？

守柔 · 发表于 2006-2-5 16:22

以下是引用[I]ssq1109[/I]在2006-2-5 14:36:32的发言：[BR]非常谢谢守柔大侠，我自认为这段时间有进步，但什么时候也能像您一样对VBA运用自如呢？

学习中进步,在帮助别人的进步,在论坛中进步,在问题中进步. 祝楼主新年更进一步.

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