Text Input

[David R]

I have to update meeting minutes for a meeting that I
chair every week. I have structured the document with the
information in a table. Column 1 of the table has the
numbering of the item discussed, formatted as:

xx.yy where xx is the number of the meeting and yy is the
number of the item

Column 2 of the table has the text of the item under
discussion. When an item carries over from week to week,
the new information is numbered with the following
formatting:

xx.yy.zz where xx is the number of the original meeting,
yy is the number of the item and zz is the number of the
current meeting.

e.g. if during meeting 7 we are having further discussions
about the fourth item that was raised in meeting number 2,
the text would be numbered 02.04.07

I recorded the following macro to automate the numbering
procedure for new discussion items:
With Selection
.TypeParagraph
.Style = ActiveDocument.Styles("Indent")
.MoveLeft Unit:=wdCell
.Copy
.MoveRight Unit:=wdCell
.MoveDown Unit:=wdParagraph, Count:=1
.MoveUp Unit:=wdLine, Count:=1
.Paste
.TypeText Text:="."
End With

I then type the number of the current meeting and the
numbering is complete.

How can I change this macro so that when I first call the
macro, I am prompted for the current meeting number and
that it is inserted after the period which is in the
second last line of the macro? I don't want to be prompted
for the meeting number every time I call the macro, only
the first time in a typing session.

I don't want to use Autonumbering because there isn't
necessarily a new entry for every item at every meeting.

Sorry for the long winded explanation ;-)

TIA,
David