different footers in 1 word template

macropod · #4 07-26-2011, 07:02 PM

Hi Niels,

There are various ways of approaching this, using a 'Document_New' macro in the template's 'This Document' module. For example, if you just want text such as a name & address:

Code:

Private Sub Document_New()
Dim Rslt
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
  While Not Rslt Like "[1-5]"
  Rslt = InputBox("Which company's details should appear?" & vbCr & "Please input the corresponding number." & vbCr & _
      "1: Company A" & vbCr & _
      "2: Company B" & vbCr & _
      "3: Company C" & vbCr & _
      "4: Company D" & vbCr & _
      "5: Company E")
  Wend
  Select Case Rslt
    Case 1: .Text = "Company A Name" & vbCr & "Company A Address"
    Case 2: .Text = "Company B Name" & vbCr & "Company B Address"
    Case 3: .Text = "Company C Name" & vbCr & "Company C Address"
    Case 4: .Text = "Company D Name" & vbCr & "Company D Address"
    Case 5: .Text = "Company E Name" & vbCr & "Company E Address"
  End Select
End With
End Sub

Additional code would be required to add a graphic from a file, but the idea is the same.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Template Footers and Tracked Changes	soross	Word	1	03-08-2011 01:48 PM
Word page numbers and footers.	drenriza	Word	5	01-27-2011 12:47 AM
Headers and Footers	OverAchiever13	Word	1	05-27-2010 01:30 PM
Having trouble with footers in Word 2004	RRae	Word	0	02-26-2010 06:39 AM
How to type on the back of word template receipts through word ???	Qintex Solutions llc	Word	3	10-02-2009 07:52 AM