word vba奇数偶数页码不同

您可以使用以下代码来判断当前页码是奇数或偶数，并相应地进行处理：

Sub OddEvenPages()

    If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Then
        '在页脚中
        If ActiveDocument.Bookmarks.Exists("\page") Then
            currentPageNumber = ActiveDocument.Bookmarks("\page").Range.Information(wdActiveEndAdjustedPageNumber)
            If currentPageNumber Mod 2 = 0 Then
                '偶数页码
                '在此添加您想要执行的代码
            Else
                '奇数页码
                '在此添加您想要执行的代码
            End If
        End If
    End If

End Sub

您可以根据需要在代码中添加处理奇数或偶数页码的代码，例如，您可以在奇数页码的页脚中添加一个文本框，而在偶数页码的页脚中添加另一个文本框。

相关问题

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

以下是在Word VBA中插入页码，让奇数页码出现在右侧，偶数页码出现在左侧的代码：

Sub InsertPageNumbers()
   '获取当前文档
   Dim doc As Document
   Set doc = ActiveDocument
   
   '设置页码起始页数
   doc.PageSetup.FirstPageTray = wdPrinterLowerBin
   
   '设置页码样式
   doc.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add _
      PageNumberAlignment:=wdAlignPageNumberRight, _
      FirstPage:=True
   
   '循环设置各节页码
   Dim sec As Section
   For Each sec In doc.Sections
      '跳过第一节
      If sec.Index > 1 Then
         '判断是奇数还是偶数节
         If sec.Index Mod 2 = 0 Then
            '偶数节，页码左对齐
            sec.Headers(wdHeaderFooterPrimary).PageNumbers.Add _
               PageNumberAlignment:=wdAlignPageNumberLeft, _
               FirstPage:=True
         Else
            '奇数节，页码右对齐
            sec.Headers(wdHeaderFooterPrimary).PageNumbers.Add _
               PageNumberAlignment:=wdAlignPageNumberRight, _
               FirstPage:=True
         End If
      End If
   Next sec
End Sub

在这个代码中，我们首先获取当前文档，然后设置起始页数和页码样式。接下来，我们使用循环设置每个节的页码，根据节的奇偶性来设置页码的对齐方式。具体来说，如果是偶数节，我们将页码左对齐，否则将页码右对齐。

请注意，这个代码假定您的文档只有一个节。如果您的文档有多个节，那么您可能需要对代码进行调整以确保每个节都被正确处理。

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` 运行它。

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