调用WORD就可以了

可以在窗体上直接放入WORD

在工程->引用中选中 Microsoft Word XX.XX Object Library
即可引用Word

Dim AppWord As New Word.Application
即可使用WORD
例如
   Dim xDoc As Document
    Dim xRange As Range
    AppWord.ShowMe
    AppWord.Visible = True
    Set xDoc = AppWord.Documents.Open(App.Path + "doc1.doc")

已经举了例子了，你自己要多想想，多试试

xDoc.Words.Last.Text = "asdfsdf"

自己多想想吧，多试试吧，你离成功就差一点点了。
你的方法已经对了，就是多试两次就可以了。