'''''''''''''''''''''
''Replace Example ''
''''''''''''''''''''
dim doc = Application.NewDocument

doc.Lines.Add("New document")
doc.Lines.Add("Line A")
doc.Lines.Add("Line B")
doc.Lines.Add("Line C")
doc.Lines.Add("Line D")
doc.Lines.Add("Line E - Replace this word")
doc.Lines.Add("Line F")
doc.Lines.Add("Line G - This word too!")
doc.Lines.Add("Line H")
  
' Text to find / Text to replace with / Forward / bMatchCase / WholeWordsOnly / Global / Replace All / Re / Wrap
doc.Replace "this", "That", True,    False,   False,   False,   True,    False,   True