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