vba - 在 word 中分配偶数奇数页码

我正在尝试为 word 编写一个 vba 宏，其中文档将具有页码，但奇数页码的对齐方式将与偶数页不同。我目前正在尝试的代码正在更改奇数页和偶数页的对齐方式，这是不希望的

    ActiveDocument.Sections(i).PageSetup.OddAndEvenPagesHeaderFooter = False
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious
    ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    With ActiveDocument.Sections(i).Footers(1).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .HeadingLevelForChapter = 0
        .IncludeChapterNumber = False
        .ChapterPageSeparator = wdSeparatorHyphen
        .RestartNumberingAtSection = False
        .StartingNumber = starts
        .Add (0)
    End With
End If
ActiveDocument.Sections(i).PageSetup.OddAndEvenPagesHeaderFooter = True
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
ActiveDocument.Sections(i).Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
WordBasic.InsertAlignmentTab Alignment:=2, Relative:=0, Leader:=0

最佳答案

似乎对于奇数页和偶数页，您没有设置页码的 left 和 right 位置，但需要设置它们的 outside 和 inside 位置。

所以，试着改变这条小线:

.Add (0)

进入可能的“奇偶”位置之一:

.Add wdAlignPageNumberOutside
.Add wdAlignPageNumberInside

此外，尝试插入“tab”的最后一行不是必需的。

关于vba - 在 word 中分配偶数奇数页码，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/16079070/