Word文档建目录并链接

dajiahaoxinku12

lujkhua 发表于 2014-4-20 11:41
我的不是空白\新建,   我是已经有1千多页的文档,   在开始没这样做,    现在这样还可以这样做?

事先和事后一样的，事后可以用刷子

lujkhua

谢谢,知道怎么做了,就是手工做这1千多页好麻烦!

wfc0537

Sub 批分1()
    ''批量依据段首字符特征进行标题分级-科技类
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim sngStart As Single
    sngStart = Timer
    括号
    Do While Selection.Start <> ActiveDocument.Content.End - 1
        段落分级2
        Selection.Paragraphs(1).Next.Range.Select
        ActiveDocument.UndoClear '遍免WORD使用大量内存去保存撤消操作所致的提示
    Loop
    Application.ScreenUpdating = True
    Debug.Print "耗费时间: " & Format((Timer - sngStart) * 1, "0.000") & "秒"
    'MsgBox "批量标题分级" & "耗费时间: " & Format((Timer - sngStart) * 1, "0.000") & "秒"
End Sub