在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