DemonstrationscriptthatdisplaysformatteddatainaMicrosoftWorddocument.

复制代码 代码如下:

SetobjWord=CreateObject("Word.Application")

objWord.Visible=True

SetobjDoc=objWord.Documents.Add()

SetobjSelection=objWord.Selection

objSelection.Font.Name="Arial"

objSelection.Font.Size="18"

objSelection.TypeText"NetworkAdapterReport"

objSelection.TypeParagraph()

objSelection.Font.Size="14"

objSelection.TypeText""&Date()

objSelection.TypeParagraph()