Create a Word Document with VBA

macropod · #17 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I create an index of every word in a document?	jbengal	Word	5	11-23-2022 02:17 PM
Can I create word wizards with Word 2016 to automate document creation?	OkiDoki	Word	4	09-30-2016 11:41 AM
Word 2010 - How to create a fillable document from a boilerplate document	sheaters	Word	2	05-04-2016 01:57 PM
How to create a special TOC in word document?	gn4619	Word VBA	5	04-29-2015 04:25 PM
How to identify whether Word 2007 was used to create a document saved as Word 2003	noviceatwork	Word	0	03-08-2012 06:40 AM