使用VBScript创建word文档示例

Windows中有很多COM(组件对象模型)。

Microsoft Office提供了可以轻松编程的COM自动化对象。

下面是windows中使用脚本创建doc文档的示例:

test.vbs:

' create word object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
' add a document
Set objDoc = objWord.Documents.Add()
' obtain selection handler
Set objSelection = objWord.Selection
' set the font and add a text paragraph
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText " 示例文本 "
objSelection.TypeParagraph()
' set the font and add a text paragraph
objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()
' bring to front
objWord.Application.Activate
objWord.Application.WindowState = wdWindowStateMaximize
CreateObject("WScript.Shell").AppActivate objDoc.Name
日期:2020-07-07 20:55:01 来源:oir作者:oir