word vba奇偶页不同

你可以使用以下代码来使 Word VBA 奇偶页不同：

Sub OddEvenPages()
    With ActiveDocument.PageSetup
        .OddAndEvenPagesHeaderFooter = True
        .DifferentOddAndEvenPagesHeaderFooter = True
    End With
End Sub

这段代码将在文档中启用奇偶页不同，并让你可以为奇数和偶数页分别设置不同的页眉和页脚。请注意，如果你的文档中已经设置了页眉和页脚，这些设置将被保留，但你可以为奇数和偶数页分别设置不同的内容。

相关问题

word vba页码奇偶页不同

若要在 Word VBA 中设置奇偶页不同的页眉或页脚，请按照以下步骤操作：

1. 打开 Word 文档，并进入 VBA 编辑器。
2. 在 VBA 编辑器中，选择“插入”->“模块”，以创建一个新的 VBA 模块。
3. 在 VBA 代码中，使用以下代码来分别设置奇数页和偶数页的不同页眉（其中 oddHeader 和 evenHeader 是页眉的名称）：

Sub setDifferentOddEvenHeaders()
    ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True
    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "奇数页页眉"
    ActiveDocument.Sections(1).Headers(wdHeaderFooterEvenPages).Range.Text = "偶数页页眉"
End Sub

4. 运行该代码，以设置奇数页和偶数页的不同页眉。

请注意，这只会影响到当前文档中的页眉或页脚，如果您需要在所有文档中应用此设置，则需要将该代码添加到 Word 模板中。