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 中设置奇偶页不同的页眉或页脚，请按照以下步骤操作：

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 模板中。

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

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

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