Saturday, March 6, 2010

VBScript - Appending text to a word file and saving it

VBScript - Appending text to a word file and saving it

'Opening an existing word document and appending text to it and saving it

Const END_OF_STORY = 6
Const MOVE_SELECTION = 0

set word = createobject("word.application")
word.visible=true
Word.Documents.Open "C:\Documents and Settings\sachin\My Documents\abc.docx"

Set objectSelection = Word.Selection
objectSelection.EndKey END_OF_STORY, MOVE_SELECTION
objectSelection.TypeParagraph()
objectSelection.TypeText "This is sample text"
objectSelection.TypeParagraph()
word.documents.save

Also See:

Opening a new word document
Opening an existing word document
Opening a new word document and writing text to it
Opening an existing word document and appending text to it at the end.
Opening an existing word document and appending text to it at the beginning.
Saving a new word file
Writing formatted text to a word file
Formatting all content, formatting specific paragraphs or finding and formatting specific text in a word document
Inserting images/pictures to a word file
Creating table in a word document, adding text to cells, adding rows to table
Printing a word file