Word document - can't add text after table

[pbassett]

I have created a Word document and populated it with text followed by a table containing data from query results, but when I try to add text after the table that text is inserted into cell(1,1) of the table!

This code follws the table creation. Any help getting it to actually start after the table is appreciated!

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
Set wrdSelection = wrdApp.Selection
Set wrdRange = wrdDoc.Range

[create table here]

Set wrdRange = wrdSelection.Tables(1).Range
wrdRange.Collapse wdCollapseEnd
wrdRange.InsertParagraph
wrdRange.Collapse wdCollapseEnd

wrdSelection.TypeText "Group A Spring 2010"

 

[jasmith4]

Right before adding the final text, add the command:

wrdSelection.EndKey Unit:=wdStory

That's the equivalent of Ctrl-End: move to end of file.