仅在第一页页眉上的图像

Question

我是 Word vba 的新手，我在一周内得到了这段代码的帮助。代码将图像插入页眉，我现在唯一的挑战是我只希望在第一页上有这个图像，但是当我运行子活动时，应该这样做，原始页面上什么都没有出现。我正在通过访问数据库运行代码，一切正常，除了这个。

Public Sub UpdateHeader(oDoc As Word.Document)
        Dim oSec As Word.Section, rng As Range
        active oDoc
        For Each oSec In oDoc.Sections
            Set rng = oSec.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
                With rng
                    .Tables.Add Range:=rng, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow
                    With .Tables(1)
                        .Borders.InsideLineStyle = wdLineStyleNone
                        .Borders.OutsideLineStyle = wdLineStyleNone
                        .Rows.SetLeftIndent LeftIndent:=15, RulerStyle:=wdAdjustNone
                        .Cell(1, 1).Range.InlineShapes.AddPicture FileName:="C:\Images\Logo.jpg", LinkToFile:=False, SaveWithDocument:=True
                    End With
                End With
        Next oSec

    End Sub

    Sub active(oDoc As Word.Document)

    oDoc.Sections.PageSetup.DifferentFirstPageHeaderFooter = True

    End Sub

Answer 1

关于 Word 中标题的一些细节。

如果您希望第一页的页眉与文档的其余部分不同，可以这样设置。

With oDoc.PageSetup
    .DifferentFirstPageHeaderFooter = True
    .OddAndEvenPagesHeaderFooter = False
End With

然后您可以通过获取wdHeaderFooterFirstPage 范围或所有其他页面的wdHeaderFooterPrimary 来添加到第一页。

最后，如果您需要清除任何现有的标题并重新开始，您可以这样做：

Private Sub ClearExistingHeaders(oDoc As Word.Document)
    Dim oSec As Word.Section, oHeader As HeaderFooter
    For Each oSec In oDoc.Sections
        For Each oHeader In oSec.Headers
            oHeader.Range.Delete
        Next
    Next
End Sub