插入目录如何快速批量更改页码

asd98898

插入目录如何快速批量更改页码.rar (7.06 KB, 下载次数: 43)

2014-12-20 18:33 上传

点击文件名下载附件

loquat

1. Sub 页码修改_loquat()
   
2. Application.ScreenUpdating = False
   
3. Dim aRange As Range
   
4. With ActiveDocument
   
5.     Set aRange = .TablesOfContents(1).Range
   
6.     CountF = aRange.Fields.Count
   
7.     firstF = .Range(0, aRange.Start).Fields.Count
   
8.     For i = firstF + 1 To CountF
   
9.         If .Fields(i).Type = wdFieldPageRef Then
   
10.             .Fields(i).Result.InsertBefore "第"
    
11.             .Fields(i).Result.InsertAfter "页"
    
12.         End If
    
13.     Next i
    
14. End With
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码

asd98898

loquat 发表于 2014-12-21 14:31

老师：还有简单的办法吗？

loquat

有，但是是一次性的，需要破坏链接。。。
选中目录，Ctrl+Shift+F9
然后，Ctrl+H
勾选：更多-使用通配符
查找：(^9)([1-9]{1,})(^13)
替换：\1第\2页\3
点击替换全部，出现弹出时（是否文档其余部分balabala……），点否。。。

asd98898

loquat 发表于 2014-12-21 16:06
有，但是是一次性的，需要破坏链接。。。
选中目录，Ctrl+Shift+F9
然后，Ctrl+H

老师：这个方法很适合我的，不过我试了，可是出不来效果呀。

loquat

asd98898 发表于 2014-12-21 23:15
老师：这个方法很适合我的，不过我试了，可是出不来效果呀。

已经描述清楚了哦。我的版本的2007

asd98898

loquat 发表于 2014-12-22 09:37
已经描述清楚了哦。我的版本的2007

老师：我用的是2003，只能替换1和2。其它就没有了。

loquat

唉，你的操作方式可能有点问题 吧。不懂了。。。

loquat

唉，你的操作方式可能有点问题 吧。不懂了。。。