![]() |
|
#1
|
||||
|
||||
![]()
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
soross | Word | 1 | 03-08-2011 01:48 PM |
![]() |
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 |