Hello JonesyTawner,
this question is open for more then 4 weeks
it is time to clean up or revitalize
if not stated otherwise
my recommendation for the moderator will be
-PAQ
-points to calacuccia
-this will be finalized by an EE Moderator
-with no further update (07.12.2002)
PLEASE DO NOT ACCEPT THIS COMMENT AS ANSWER
HAGD:O)Bruintje
posted by ToolzEE v1.0
Main Topics
Browse All Topics





by: calacucciaPosted on 2002-10-17 at 06:45:23ID: 7341047
Hi Jonesy,
1).Result = myTxt 2).Result = myTxt 3).Result = myTxt ogFileSave As).Show
A diagonal help, which should get you on the road:
- Put formfields in your template on the locations where text is to be put:
1---> View/Toolbars/Forms in the main Word menu, pop up menu appears
2---> Locate cursor on place where field is to be added and click on the 'AB|' symbol.
3---> Repeat 2 for all fields
4---> Close the 'Forms' pop up menu
- Hit Alt+F11 to open the VBA Editor, and in the Project (DocumentName) tree select 'ThisDocument'
Enter code below, to be adapted to your needs afterwards:
Private Sub Document_New()
Dim myTxt As String
myTxt = InputBox("Enter your name")
ActiveDocument.FormFields(
myTxt = InputBox("Enter profession")
ActiveDocument.FormFields(
myTxt = InputBox("Enter age")
ActiveDocument.FormFields(
Application.Dialogs(wdDial
End Sub
- Save the file as a template (*.dot) on the location you like.
Now anyone double-clicking the file will be prompted for the data and afterwards have a 'Save As' dialog to save their version. Don't forget: the user opening this will have to click 'Enable Macros' when prompted.
Alternative is to locate the file on a network templates locations, and make a new version using File/New
For slight changes, just ask.
calacuccia