Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 07-26-2011, 07:02 PM
macropod's Avatar
macropod macropod is offline different footers in 1 word template Windows 7 64bit different footers in 1 word template Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,342
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply



Similar Threads
Thread Thread Starter Forum Replies Last Post
different footers in 1 word template Template Footers and Tracked Changes soross Word 1 03-08-2011 01:48 PM
different footers in 1 word template 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

Other Forums: Access Forums

All times are GMT -7. The time now is 10:08 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft