Add Formatted Text to a Word Document

　　Demonstration script that displays formatted data in a Microsoft Word document.

复制代码代码如下:

　　Set objWord = CreateObject("Word.Application")

　　objWord.Visible = True

　　Set objDoc = objWord.Documents.Add()

　　Set objSelection = objWord.Selection

　　objSelection.Font.Name = "Arial"

　　objSelection.Font.Size = "18"

　　objSelection.TypeText "Network Adapter Report"

　　objSelection.TypeParagraph()

　　objSelection.Font.Size = "14"

　　objSelection.TypeText "" & Date()

　　objSelection.TypeParagraph()