段落编号用vba 手动输入对话框数字后vba自动生成的方法求助

1047425893

Sub 段落编号01()
    Selection.Fields.Add Range:=Selection.Range, Text:="= 1 \* GB2"
End Sub

1、word有很多没有标序号的段，自己在word中录的一段宏，每次把光标移到段落前，都要事先把“Text:="= 1 \* GB2"”这段vba中的数字改成自己想输入的数字编号。有没有可能在word中运行录制的这段宏时，出现一个对话框，然后输入想定义的数字，在光标所在的位置就自动生成段落的编号。
2、如果高手能编一个遍历文档，然后根据段落实际数目，自动生成段落编号的vba则不胜感激！
高手见附件文档：