标准VBS控制Word

标准VBS控制Word

'感觉本论坛还没有关于用 VBS操作Word的帖子其实 VBS能很轻松的来操作WORD
'注意需要安装微软的WORD才可以正常使用
welText="本 脚本运行后将在WORD种显示一些计算机的信息"
MsgBox welText
' 定义Word.application变量
Dim ObjWD
Dim ObjDOC
Dim counti
Set WshNetwork=CreateObject("WScript.Network")
'启动Word
Set ObjWD=CreateObject("Word.application")
' 设置Word为可视
ObjWD.Visible=True
'增加一个文档
ObjWD.Documents.Add
Set ObjDOC=ObjWD.ActiveDocuments
'设置格式为剧中对齐
ObjWD.selection.ParagraphFormat.Alignment=wdAlignParagraphCenter
ObjDOC.Range 0,0
ObjWD.selection.TypeText "计算机信息一览表"+Chr(13)
'增加一张四行二列的表格
ObjDOC.Tables.Add ObjWD.selection.Range,4,2
ObjWD.selection.TypeText "类别"
ObjWD.selection.Moveright
ObjWD.selection.TypeText "值"
'循环填写表格内容
For counti=1 To 3
ObjWD.selection.MoveDown
ObjWD.selection.MoveLeft
Select Case counti
Case 1
ObjWD.selection.TypeText "域名"
ObjWD.selection.MoveRight
ObjWD.selection.TypeText WshNetwork.UserDomain
Case 2
ObjWD.selection.TypeText "计算机名"
ObjWD.selection.MoveRight
ObjWD.selection.TypeText WshNetwork.ComputerName
Case 3
ObjWD.selection.TypeText "用户名"
ObjWD.selection.MoveRight
ObjWD.selection.TypeText WshNetwork.UserName
End Select
Next
'将WORD 窗口最大化
ObjWD.WindowState=1
'选中全部文档
ObjWD.selection.WholeStory
'设置字体
ObjWD.selection.font.Name="宋体"
'设置字号
ObjWD.selection.font.Size=14
'设置对齐方式为居中
ObjWD.selection.ParagraphFormat.Alignment=1
'取消全部选中
ObjWD.selection.MoveDown
'上面有什么不懂的可以跟贴问我!很希望能和大家一起探讨VBS技术
'VBS的 功能其实很强大的我个人感觉VB在没有运用API的情况下 功能
'可能还没有VBS强大(个人感觉呵呵....)
'不知道有没有 高手可以 解决标准VBS的无条件跳转GoTo我研究了半天
'老是有 问题~!不知道哪位高手可以赐教!