在MS-Word中，VBA如何拆分插入分节符和段落标记的表

Question

wdSectionBreakNextPage does not come with a trailing paragraph mark

I have a massive table i copy from excel to word sprinkled throughout with homemade fields PAGEX and SECTIONX. My macro will change these to page and section breaks, splitting the table for each (what I want). But page breaks come with a trailing paragraph mark before the table and section breaks do not. My feeble attempts to insert a paragraph mark after a section break always ends up with the paragraph mark inside the table.

My goal is to get the same gap between my header and the beginning of the table after both section breaks and page breaks. I think I simply want a macro to insert a paragraph mark after my section breaks similar to the way wdPageBreak works (ie, between the break and the table). But I'm open to suggestions.

As perhaps further clarification, doing this manually involves creating a new row after a section break, then converting that row to text (quite impractical for the counts I'm looking at).

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

Answer 1

尝试：

ActiveDocument.Compatibility(wdSplitPgBreakAndParaMark) = False

Answer 2

thanks free and macro. i probably should have noted that i'm a vba novice (cut-and-paste mostly). i decided it was easiest to just insert a page break after each section break, and then do a replace of ^m^p by ^p.

this works in my case, but won't work for others reading this if they have existing page breaks they don't want to lose.

GJ