[Desastor]

I developed a template used for client invoices. Upon opening the template, I am prompted to input various demographics via popup windows, which are then used to be distributed to select areas within the document via bookmarks. After entering those demographics I can then proceed to add other relevant information. After I am finished with all this I save the file into a document format and throw it onto a drive.

All this works fine.

The current problem occurs when I re-open the document for review or edit at a later point in time. The popup windows I used to complete the data entry initially show up again and again demand data to be entered. I am wondering if there is an easy way to basically stop that routine from running as it has no use at that time anymore.

Thanks in advance for any help offered.



Here is an example of one of the routines:

Sub RequestInfo()

'declare your variable

Dim strID As String

'set variable equal to whatever user types into input box

strID = InputBox("Enter Client's ID#:")

'declare a range

Dim bkID As Range

'set the range equal to your current bookmark

Set bkID = ActiveDocument.Bookmarks("bkID").Range

'pass in the info now contained in the variable (what the user typed)

bkID.Text = strID

'wrap the same bookmark around this text

ActiveDocument.Bookmarks.Add "bkID", bkID

'select all text

Selection.WholeStory

'update fields

Selection.Fields.Update

'move cursor to deselect

Selection.MoveUp Unit:=wdLine, Count:=1

End Sub