3

ドキュメントにページ番号が含まれる単語用の 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
4

1 に答える 1

2

奇数ページと偶数ページの場合、ページ番号の位置leftと位置を設定しないようですが、それらの位置と位置rightを設定する必要があります。outsideinside

したがって、この小さな行を変更してみてください。

.Add (0)

可能性のある「奇偶」位置の1つに：

.Add wdAlignPageNumberOutside
.Add wdAlignPageNumberInside

また、「タブ」を挿入しようとしている最後の行は必要ありません。

于 2013-04-18T12:44:52.030 に答える