word vba页码奇数页在右偶数页在左边代码

下面是一个简单的示例代码，可以实现将奇数页放在右侧，偶数页放在左侧的功能：

Sub SetOddEvenPages()
    Dim i As Integer
    
    With ActiveDocument
        For i = 1 To .Sections.Count
            With .Sections(i)
                ' 设置奇数页为右侧
                .PageSetup.OddAndEvenPagesHeaderFooter = True
                .PageSetup.OddAndEvenPagesHeaderFooter = False
                .PageSetup.OddAndEvenPagesFooter = False
                .PageSetup.OddAndEvenPagesHeader = False
                
                ' 设置偶数页为左侧
                .PageSetup.DifferentFirstPageHeaderFooter = False
                .PageSetup.OddAndEvenPagesHeaderFooter = True
                .PageSetup.OddAndEvenPagesHeaderFooter = False
                .PageSetup.OddAndEvenPagesFooter = False
                .PageSetup.OddAndEvenPagesHeader = True
            End With
        Next i
    End With
End Sub

请按照以下步骤使用此代码：

1. 打开你的 Word 文档。
2. 按下 `Alt + F11` 打开 VBA 编辑器。
3. 在 VBA 编辑器中，选择 `Insert` -> `Module`，创建一个新的模块。
4. 将上面的代码复制到新模块中。
5. 按下 `F5` 运行它。

运行后，你的文档中的奇数页将会出现在右侧，偶数页会在左侧。注意，此代码仅适用于具有多个节的文档。如果你的文档只有一个节，那么代码将不会生效。