working with autotext

[rocket0612]

Say I have the following code in excel to open a word doc:

Sub inputtext()
 
Set wrd = GetObject(, "Word.Application")
 
wrd.ChangeFileOpenDirectory _
        "\\BTBEAPDAT01\DATA_BEACON_HOUSE\NCC\Tier3 RP\RP Word Temps\"
        wrd.Documents.Open FileName:="RPNB01", _
        ReadOnly:=True, AddToRecentFiles:=False
    wrd.Selection.TypeText Text:="01"
    wrd.Selection.Range.InsertAutoText
    wrd.Selection.TypeText Text:="02"
    wrd.Selection.Range.InsertAutoText
    wrd.Selection.TypeText Text:="05"
    wrd.Selection.Range.InsertAutoText
End Sub

so the word doc opens and it will insert the autotext entry called '01' which will then prompt the user for some info (eg addressee, addressline1, ....) then once done it will insert the autotext entry '02' which will then prompt the user for more info.

If the info needed for the autotext prompts all exists on excel, is there a way to add this into the code?

many thanks