主题：请教，在word文档当前位置写入文本的代码。

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:=date.Today)
     app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try