最初のページのヘッダーにある画像

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