在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