请问关于WORD 要将新增表格放在报价单后面怎么写

WOLE=CREATEOBJ('WORD.APPLICATION')
WOLE.VISIBLE=.T.
WOLE.DOCUMENTS.ADD
WOLE.ActiveDocument.Range(0,0).text='                                    报价单'+CHR(13)
WOLE.Documents(1).Tables.Add(WOLE.Selection.Range,1,8,1)