请问下面怎们修改，能够指定插入表在WORD模板文件中的位置？

Dim app As New MSWord.Application

app.Documents.Open("c:\\foxtable\\Development\\CaseStudy\\Attachments\\统计成绩.doc")

try

    Dim doc = app.Documents.Open("c:\\foxtable\\Development\\CaseStudy\\Attachments\\统计成绩.doc")

    Dim dt As DataTable = DataTables("统计表")

    doc.Tables.Add(Range:=app.Selection.Range,NumRows:=3, NumColumns:= dt.DataCols.Count)

    With app.Selection.Tables(1)

        .ApplyStyleHeadingRows = True

        .ApplyStyleLastRow = True

        .ApplyStyleFirstColumn = True

        .ApplyStyleLastColumn = True

    End With

    For Each dc As DataCol In dt.DataCols

        app.Selection.TypeText(Text:=dc.Name)

        app.Selection.MoveRight(Unit:=12)

    Next

    For Each dr As DataRow In dt.DataRows

        For Each dc As DataCol In dt.DataCols

            app.Selection.TypeText(Text:=dr(dc.Name))

            app.Selection.MoveRight(Unit:=12)

        Next

    Next

    app.Visible = True

catch ex As exception

    msgbox(ex.message)

    app.Quit

finally

End try