VBS 操作Word

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/

 

分类: VBS