How to add text to MS word Document - in VB

     Sub mecro1()

Selection.TypeText "www.automateexcel.com"

 MsgBox "You need to select some text."

    End Sub

    

ref:-  https://www.automateexcel.com/vba/word/macro-examples