VBS 操做Word

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/