VBS控制word

1、 新建Word文档

Option Explicit
'******************声明变量******************
Dim objWord,objDoc
Set objWord=CreateObject("Word.application")
Set objDoc=objWord.Documents.Add
objWord.visible=true

2、打开

Set objDoc=objWord.Documents.Open("C:\Users\chuhe\Desktop\新建文件夹\test.docx")

3、保存

• 脚本字符编码最好使用ANSI，如果用的是UTF-8且保存路径有中文的话，可能会因为乱码导致保存失败。

objDoc.SaveAs("C:\Users\chuhe\Desktop\新建文件夹\test.docx")

4、关闭

objDoc.close
objWord.Quit

5、插入文本

• selection对象代表窗口或窗格中的当前所选内容。
• 所选内容代表文档中被选定（或突出显示的）的区域，若文档中没有所选内容，则代表插入点。
• 每个文档窗格只能有一个活动的 Selection对象，并且整个应用程序中只能有一个活动的 Selection对象

Set objSelection=objWord.selection

5.1、设置字体格式

objSelection.font.Size=50
objSelection.font.Bold=true
objSelection.font.TextColor=RGB(255,0,0)

5.2、插入文本

objSelection.TypeText("50号红色加粗字体")

5.3、插入换行

ObjSelection.TypeParagraph

或

objSelection.TypeText(""+Chr(13) & Chr(10))

或

objSelection.TypeText(vbCrlf)

5.4、设置标题

objSelection.Style="标题 1"

6、插入图片

ObjSelection.InlineShapes.AddPicture("C:\test.jpg")

7、插入表格

'*************插入3*3表格
Dim objTable
objDoc.Tables.Add objWord.selection.Range,3,3
set objTable=objDoc.Tables(1)'文档中的第一个表格
set objTable=objDoc.Tables(1)
'*************单元格赋值
objTable.cell(1,1).Range.Text="test"‘
objTable.cell(1,2).Range.Text="test"
objTable.cell(1,3).Range.Text="test"
'*************表格样式
objTable.Range.Style="网格型"

8、光标移动

• 踩过的坑：光标移动后如有异常试下wsCript.sleep(500)

objSelection.Movedown
objSelection.Moveup
objSelection.Moveleft
objSelection.Moveright