1.新建Word文档
\'使用Add方法
Dim ObjWD,ObjDOC
Set ObjWD=CreateObject("Word.application")
Set ObjDOC=ObjWD.Documents.Add
\'使用完毕需要关闭doc和word程序
ObjDOC.SaveAs("C:/Test.docx")
ObjDOC.close
ObjWD.Quit
2.打开Word文档
\'使用Open方法
Set ObjDOC=ObjWD.Documents.Open("C:/Test.docx")
3.插入文本
\'selection对象代表窗口或窗格中的当前所选内容。所选内容代表文档中被选定（或突出显示的）的区域，若文档中没有所选内容，则代表插入点。每个文档窗格只能有一个活动的 Selection对象，并且整个应用程序中只能有一个活动的 Selection对象
Set ObjSelection=ObjWD.selection
\'font方法设置插入的字体的样式
ObjSelection.font.Size=14
ObjSelection.font.Bold=true
ObjSelection.Font.TextColor.RGB=RGB(0,0,255)
\'使用TypeText插入文本
ObjSelection.TypeText("test")
\'使用TypeParagraph方法插入换行符
ObjSelection.TypeParagraph
4.插入图片
\'使用AddPicture方法插入图片
ObjSelection.InlineShapes.AddPicture("C:/test.png")
5.插入表格
\'新建3*3的表格
ObjDOC.Tables.Add ObjWD.selection.Range,3,3
Set ObjTable=ObjDOC.Tables(1)
\'设置表格样式
ObjTable.Range.Style="Table Contemporary"
\'填写表格的值 Cell对象，下标 从1开始
ObjTable.Cell(1,1).Range.Text="hello"
ObjTable.Cell(1,2).Range.Text="hi"
ObjTable.Cell(1,3).Range.Text="how are you"
\'Movedown可以使光标向下移，同理Moveright,Moveleft,Moveup
ObjSelection.Movedown
‘在（2，1）处填值，（新建表格光标默认在（1，1）处）
ObjSelection.TypeText("i am fine")
更多用法可以参考：http://www.feiesoft.com/vba/