Tony,
One method is a UserForm. For tips getting started see:
http://word.mvps.org/FAQs/Userforms/CreateAUserForm.htm
If you don't want to go that route there are several other
approaches.
1. ASK and REF Fields. ASK fields fire a prompt and
assign a bookmark name. REF fields return the bookmark
value. Say you have { ASK ProductName }{ ProductName} on
page one and {ProductName } on page 2. When ASK fields
are updated the prompt fires and REF field update. You
need one ASK field for each variable. Use as many REF
fields as necessary whereever the data needs to be
repeated.
A disadvantage of ASK and REF fields is ASK field don't
update (fire the prompt) automatically when the document
opens, and will (annoying) fire when you go to print if
File>Print>Options>Update field is checked.
You can force ASK fields to update when a document is
created and opened with the following code in AutoNew and
AutoOpen macros:
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType < wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
2. You could use existing DOCPROPERTY fields or create
your own DOCPROPERTY fields. Press
File>Properties>Summary. Type Test in the Subject field.
Go back to your docuemnt type Subject, select the word
subject and press CTRL+F9. You just created a docproperty
field. Right click it and press update field. Test
appears. Put docproperty subject fields where every you
want it repeated. Now a custom field.
File>Properties>Custom. Type ProductName in the name
field. Type A better mouse trap in the value field. CLick
OK. In the document type DOCPROPERTY ProductName. Select
it and press CTRL+F9. Right click and select update field.
Lets say you have report template that already has custom
document properties for employee name and badge number.
You can automate assigning docproperty values with a
couple of macros:
Sub AutoNew()
Dim EmpName As String
Dim BadgeNum As String
EmpName = InputBox("Enter employee
name", "Employee Name", "John Q. Sample")
BadgeNum = InputBox("Enter badge number", "Badge
Number", "0000")
ActiveDocument.CustomDocumentProperties("Employee
Name").Value = EmpName
ActiveDocument.CustomDocumentProperties("Badge
Number").Value = BadgeNum
ActiveDocument.Fields.Update
End Sub
Sub AutoOpen()
Dim Update As VbMsgBoxResult
Dim PolicyNum As String
Dim ClientName As String
On Error GoTo ExitSub
Update = MsgBox("Update Document Information?", vbYesNo)
If Update = vbYes Then
EmpName = InputBox("Enter employee name", "Employee
Name", "John Q. Sample")
BadgeNum = InputBox("Enter badge number", "Badge
Number", "0000")
ActiveDocument.CustomDocumentProperties("Employee
Name").Value = EmpName
ActiveDocument.CustomDocumentProperties("Badge
Number").Value = BadgeNum
ActiveDocument.Fields.Update
End If
ExitSub:
End Sub
HTH
