After
[vba] Set objRange = wrdDoc.Range()[/vba]
Add
[vba]
objrange.Collapse wdCollapseEnd
[/vba]