在MS-Word中，VBA如何拆分插入分節符和段落標記的表

Question

wdSectionBreakNextPage不帶有尾隨段落標記

我有一張巨大的桌子，我從excel復制到整個自制字段PAGEX和SECTIONX中的單詞。 我的宏會將這些更改為分頁符和分節符，為每個分頁符（我想要的）拆分表。 但是分頁符在表和分節符之前沒有結尾的段落標記。 我試圖在分節符后插入段落標記的嘗試總是以表格內的段落標記結尾。

我的目標是在節和分頁符斷開之后，在標題和表的開頭之間保持相同的距離。 我想我只是希望宏在我的部分中斷后插入一個段落標記，類似於wdPageBreak的工作方式（即，在中斷和表之間）。 但我願意提出建議。

也許需要進一步澄清，手動執行此操作需要在分節符之后創建一個新行，然后將該行轉換為文本（對於我正在查看的計數來說，這是不切實際的）。

    Do While .Execute
        Selection.Delete
        Selection.InsertBreak Type:=wdSectionBreakNextPage
    Loop

Answer 1

嘗試：

ActiveDocument.Compatibility(wdSplitPgBreakAndParaMark) = False

Answer 2

感謝免費和宏。 我可能應該注意到我是vba新手（主要是剪切粘貼）。 我認為最簡單的方法是在每個分節符之后插入一個分頁符，然后用^ p替換^ m ^ p。

這對我來說是有效的，但如果其他人不希望丟失已有的分頁符，則不適用於其他閱讀本文的人。

GJ