在单词中分配偶数奇数页码 [英] Assign even odd page numbers in word

问题描述

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

I am trying to write a vba macro for word, where the document will have page numbers, but the alignment of odd page number will be different from the even page. The code that I am presently trying is changing the alignment of both the odd and even pages,which is not desired

    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它们的位置.

It seems that for odd and even pages you don't set left and right positions of page numbers but you need to set outside and inside positions of them.

因此，尝试更改这一行:

So, try to change this tiny line:

.Add (0)

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

into one of possible 'odd-even' positions:

.Add wdAlignPageNumberOutside
.Add wdAlignPageNumberInside

此外，然后没有必要尝试插入"tab"的最后一行.

Moreover, last line which is trying to insert 'tab' is not necessary then.

这篇关于在单词中分配偶数奇数页码的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！