复制代码 代码如下:
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()
