VBA (Word) 如何在段落处插入分页符？

Question

我试图在特定段落插入分页符，但它总是在文档的第一行/段落插入分页符，我不明白为什么。 有任何想法吗？

With Word.ActiveDocument
    .Paragraphs(15).Range.Collapse Direction:=wdCollapseEnd
    .Paragraphs(15).Range.InsertBreak WdBreakType.wdPageBreak
    'or this way (Is there a differece): .Paragraphs(15).Range.InsertBreak Type:=wdPageBreak
End With

谢谢朱利叶斯

Answer 1

我看到了一些不同的东西：对我来说，它用分页符替换了指定的段落，如帮助主题中所述。

在任何情况下，关键是使用特定的Range对象。 不可能“折叠”整个第 15 段 - 该方法没有任何动作。 段落Range需要分配给一个独立的Range对象，可以折叠，然后在那个Range对象处插入分页符。

例如：

Sub TestInsertPageBreak()
    Dim paraRange As Word.Range

    With ActiveDocument
        Set paraRange = .Paragraphs(15).Range
        paraRange.Collapse Direction:=wdCollapseEnd
        paraRange.InsertBreak WdBreakType.wdPageBreak
    End With
End Sub