''''''''''''''''''''''''''''''''''''''''''
'Create a new document and add some lines'
''''''''''''''''''''''''''''''''''''''''''
dim doc 

doc = Application.NewDocument

doc.Lines.Add("This new document was created")
doc.Lines.Add("using script macro.")
Application.AddOutputLine ("teste")