Set word = CreateObject( "Word.Application" )

word.Visible = True

Set doc = word.Documents.Add()

Set selection = word.Selection

With selection

   .Font.Name = "Arial"

   .Font.Size = "18"

   .TypeText "Network Adapter Report"

   .TypeParagraph()

   .Font.Size = "14"

   .TypeText "" & Date()

   .TypeParagraph()

End With