如何用vba设置word文档页眉页脚的首页不同和奇偶页不同？

要用vba设置word文档页眉页脚的首页不同和奇偶页不同，需要用到PageSetup对象。

要设置页眉页脚的首页不同，设置PageSetup对象的DifferentFirstPageHeaderFooter属性。

要设置页眉页脚的奇偶页不同，用PageSetup对象的OddAndEvenPagesHeaderFooter属性。

由于不同的节可以有不同的页眉页脚，所以要设置整个文档的页眉页脚的首页不同和奇偶页不同，要遍历所有的节。

以下代码遍历了所有节，然后设置所有节的页眉页脚的首页不同和奇偶页不同：

Sub QQ1722187970()
    Dim oSection As Section
    For Each oSection In Word.ActiveDocument.Sections
        With oSection.PageSetup
            .DifferentFirstPageHeaderFooter = True
            .OddAndEvenPagesHeaderFooter = True
        End With
    Next
End Sub