Greg
I took
My program creates a Word doc
to mean that the document was being created from another application, otherwise of course your version is all that is required.

Chiroman
Change
Set objSelection = objWord.Selection
to
Set objSelection = objDoc.Range(0,0)
or
Set objSelection = objDoc.Range
objSelection.Collapse 1