Question

我是Word vba的新手，本周我得到了这段代码的帮助。代码将图像插入到标题中，我现在唯一的挑战是我只想在第一页上显示此图像，但是当我运行sub active时，应该这样做，原始页面上没有任何内容。我通过访问数据库运行代码，一切正常，除此之外。

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中标题的一些详细信息。

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

mockB

然后，您可以通过获取With oDoc.PageSetup .DifferentFirstPageHeaderFooter = True .OddAndEvenPagesHeaderFooter = False End With范围添加到第一页，或者为所有其他网页添加wdHeaderFooterFirstPage。

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

wdHeaderFooterPrimary

仅在第一页标题上显示图像

1 个答案: