vba - 为第一页设置与其余页面不同的边距

Question

我需要为第一页设置与其余页面不同的边距。

我已经搞砸了插入分节符（据我所知，当您从“页面设置边距”选项卡中选择应用“这一点向前”时，Word 会创建一个分节符，但我似乎无法始终如一地创建第二页开始处的连续分节符。

如果不是分节符，任何其他方式都可以。需要调整边距以匹配一堆现有文档的新信头设计，因此计划在单击打印按钮时在子例程中修复边距（另一个宏的一部分）。

Answer 1

连续分节符用于在同一页面内允许多组边距。具有分节符和分页符属性的下一页分节符将允许第一页使用一组边距，并允许其后的所有页面使用另一组边距。创建它的一种方法是这样的：

Selection.InsertBreak Type:=wdSectionBreakNextPage

现在这是棘手的地方。Word 有两种不同类型的分页符：自动和手动。当文本不再适合页面并且 Word 会自动生成新页面时，会创建自动分页符。如果您通过宏重新格式化的文档具有自动分页符，则在第一页末尾插入下一页分节符将导致 Word 删除其自动分页符（使用下一页分节符保持页面分开）和您对首页所做的任何页边距更改都不会延续到后续页面。但是，如果文档在第一页和第二页之间包含手动分页符，则插入下一页分节符将创建一个空白的第二页。因此，如果这是可能的，

Answer 2

如果您只需要第一页上的其他值，那么信头布局和 Word 可能会非常困难和棘手。在我的实践中，我经常发现在第一页的右边距达到一定高度的带有图形元素的信笺抬头，例如合作伙伴名称或商业信息列表。所以在第一页上，右边距应该是 6 厘米，而在所有后续页面上，右边距应该是 2.5 厘米。使用分节符是不可能的，因为它会在用户插入文本时移动。

我使用以下方法取得了一些成功：在第一页标题中创建一个足够大以占用所需空间的文本框。设置“Text Wrapping”= Square 的属性，使文本不能与框重叠。当然，您也可以将文本框插入到文档正文中以产生这种效果。不幸的是，用户可以通过鼠标操作轻松地触摸文本框，并将其移动到另一个位置。如果你把它放在首页页眉中，它只会出现在首页，并且会出现在页面的“背景”中。用户可以在文档正文中输入文本，但它会在文本框之前停止，这模拟了第一页的右边距。