mi sono imbattuto in questo script
codice:
Const END_OF_STORY = 6
Const MOVE_SELECTION = 0
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("c:\prova.doc")
Set objSelection = objWord.Selection
objSelection.EndKey END_OF_STORY, MOVE_SELECTION
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Size = "14"
objSelection.TypeText "testo da aggiungere"
objSelection.TypeText "testo da aggiungere"
objSelection.TypeText "testo da aggiungere"
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.Font.Size = "10"
se lo salvi come *.vbs e lo modifichi in modo opportuno mi sa che può risolvere gran parte dei tuoi problemi