主题：点击按钮在word文本输入日期和周数

1、http://www.foxtable.com/help/topics/2292.htm

2、往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:="123456")
       app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try