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/