word文档目录分开打印

icit

如何做一个把Word文档的目录分开打印成一页一页的批处理？请看附件，拜谢大佬。

icit

自己顶一个

icit

顶一下

Enocheasty

你的文档只有目录吗？如果只有目录，把要重复的内容放进页眉页脚，然后将整个目录调整到你想要的字号，然后查找替换，将回车符替换为换页符，这样就每个目录行一页了，直接打印就好了啊？整个过程花不了几分钟！

limonet

Sub limonet()
    Dim Cset As New Collection, i%
    For i = 3 To ActiveDocument.Paragraphs.Count
        Cset.Add ActiveDocument.Paragraphs(i).Range.ListFormat.ListString & ActiveDocument.Paragraphs(i).Range.Text
    Next i
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=3
    Selection.EndKey wdStory, wdExtend
    Selection.Font.Size = 26
    Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
    For i = 1 To Cset.Count
        Selection.TypeText Text:=Cset.Item(i)
'        ActiveDocument.PrintOut
        Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=3
        Selection.EndKey wdStory, wdExtend
    Next i
End Sub

limonet

关键字：selection

icit

Enocheasty 发表于 2025-4-1 09:39
你的文档只有目录吗？如果只有目录，把要重复的内容放进页眉页脚，然后将整个目录调整到你想要的字号，然后 ...

感谢指导，以学习。