WORD自动编号替换手动编号（只转换选中文本的方法？）

Elaine_cai

因为工作关系，经常需要几个同事一起翻译一个大文件，动辄上百页。很多文件本身的格式就不太好，自动编号没有和各级标题链接。结果导致我们整合文件时，编号经常出问题。最甚的一次，文件在整合后编号自动更新，各种样式共700多个编号从1到700依次排开（见附件，为了减少论坛负担，我把文档精减成3页）。这可苦了我们的同事，得一个个去重新编号。为了避免以后发生类似的事情，我在论坛和网上搜索了很久，但只找到一个把整份文件的自动编号转为手动编号的宏：

Sub 自动编号替换为手动编号()

ActiveDocument.Content.ListFormat.ConvertNumbersToText
End Sub

可是这个方法会把各级标题也变成手动编号，客户看到会不高兴的（汗一个。。。）

本人能力有限，不懂vba，不知道怎么修改这个宏，让它能实现：只对选中的文本执行“自动编号替换手动编号”。

或者有没有其他方法，可以保证翻译完成后，文档整合的时候编号不要更新？（难点在于文件很多，每次遇到的格式都不一样。）

所以想请论坛里的朋友帮忙看一下这个问题，小女子在此先谢过各位了！

[ 本帖最后由 Elaine_cai 于 2009-4-5 15:59 编辑 ]

sylun

楼主应该知道，自动编号是互相关联的，如果将其中一部分转换为普通文本，其后面部分的自动编号如是与之接续的，也会相应发生变化，除非它是独立的。

Elaine_cai

所以我想在刚拿到翻译原文的时候，就先选中文件里的所有带编号的段落，执行宏把它们都变成手动编号。可就是找不到这个宏:-(

sylun

要改也简单，将ActiveDocument.Content.ListFormat.ConvertNumbersToText一行改为如下代码即可，只是这样的修改也许较啰嗦。
Selection.Range.ListFormat.ConvertNumbersToText

Elaine_cai

Selection.Range.ListFormat.ConvertNumbersToText
这个我试过，可是如果选中的段落不是连续的，它就只替换最后一块。好像这是因为range属性的特点造成的？
我想知道有没有办法处理“不连续的选择范围”

也就是说，有没有一个属性或者是函数能够得到当前不连续选择的段数？
这样就可以逐段执行Selection.Range.ListFormat.ConvertNumbersToText 这一句。

[ 本帖最后由 Elaine_cai 于 2009-4-5 19:31 编辑 ]

c81

个人意见，编辑大文档时一定要使用自动编号，如果楼主所说的原文档中自动编号没有和标题链接的话可以想办法将它们链接起来（用宏、查找或批量选择等办法）。

自动编号转化为手动编号后，许多格式将丢失，如首行缩进、悬挂缩进、自动编号后制表位等，生成目录也不方便，插图表的自动题注编号还是不方便，如果有标题级别或编号错误更是要人命的事，只能肉眼人工去找~

根据需要，只有交稿最后一步才转化为手动编号比较好。

我猜很多人不喜欢自动编号的原因只因为这种东东有时变化太快，有点儿“自作主张”，其实玩转它就那么几招，知道它的变化规律后就会很轻松愉快地使用它，就会“爱”上这个东东。

我现在很难想象，一个数百页的大文档不使用自动编号日子怎么过？呵呵~

[ 本帖最后由 c81 于 2009-4-5 19:49 编辑 ]

Elaine_cai

那有没什么通用办法可以将它们链接起来呢？因为每次翻译的文件都不同，没有固定格式的。
----只能怪原作者没有应用好，害得后来编辑的人费时费力

建议在“自定义多级符号列表”中，将级别与标题样式链接，别外也可以试试查找替换法。
（不好意思，我回帖点了“编辑”，没有修改楼主的原话哟~）

[ 本帖最后由 c81 于 2009-4-5 20:05 编辑 ]

Elaine_cai

呵呵。

郁闷呀，因为文件来源不同，水平也不同，无法要求客户用最科学的办法编辑后才给我们翻译。所以只能自己修改。
而处理格式的是我的其他同事，她们不会链接级别和编号的说～
所以我想做个宏，安装到同事电脑上，一运行就搞定。

sylun

楼主可否以附件为例说说您的整体思路或实际操作是怎样的？其必要性在哪？如果不清楚整体思路，就算按目前所要求的做了出来，也许还是达不到最终目的，也就等于白干。因为从楼主所描述及附件的内容看，很难判断楼主这样做的必要性。

Elaine_cai

我一般说话都表达不清晰的，试试看这次能不能说清楚吧。

我们翻译的时候，给每个人分配任务，各个人在文件上编辑，然后发给负责整合的同事。这个同事会从翻译完的各个文件里复制，然后粘贴到其中一个文件上，这样这份文件就都翻译完了。可是在粘贴的过程中，有时候像1), a), i)之类的自动编号就会重新编号，整份文件里面应用到自动编号的段落就会不管其所在级别标题，从1开始排序到N，效果就跟1楼的附件一样（粘贴时，各个级别倒是没发生问题）。如下：
1.1.4        文文文文Training fee
                     10)        A d
                     11)        文文
1.1.5        文文文文Factory Test
                     12)        文文文文Type test
                     13)        文文文文

这个时候，我们同事就得在“ 10)”和“12)”点击右键，重新编号，才能出现如下效果：
1.1.4        文文文文Training fee
                     1)        A d
                     2)        文文
1.1.5        文文文文Factory Test
                     1)        文文文文Type test
                     2)        文文文文

可是这非常麻烦，因为身为翻译，得常常翻译来源和格式都各不相同的文件，动辄上百页。这样一个个去重新编号，很耗时。上次一个300多页的文件，同事花了3个小时。而且我们同事在格式方面也不在行，让她们手动去链接级别和编号不太现实。
所以我想能不能找到一个通用方法，适用于各种文件，避免重新编号。

[ 本帖最后由 Elaine_cai 于 2009-4-5 20:50 编辑 ]