Microsoft Office Forums - View Single Post

macropod · 03-09-2020, 12:42 AM

You don't need:

Code:

Dim oSec As Section
Dim oHeaderFooter As HeaderFooter

All you need is something like:

Code:

Const wdAlignTabRight As Long = 2
Dim oLogo As Object
'….
  With .Sections.First.Footers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
    .Text = "Footer Note" & vbTab
    .Paragraphs(1).TabStops.Add wdApp.InchesToPoints(7.5), wdAlignTabRight
    Set oLogo = .InlineShapes.AddPicture("C:\FORMS\1-Seal.jpg", False, True, .Characters.Last)
    With oLogo
      .Height = 75
      .Width = 100
    End With
  End With