主题：请教袍兄

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.add
    Dim dt As DataTable = DataTables("表A")
    doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, 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))
            Dim i As Double
            If Double.TryParse(dr(dc.name),i)
                app.Selection.ParagraphFormat.Alignment = 2
            Else
                app.Selection.ParagraphFormat.Alignment = 1
            End If
            app.Selection.MoveRight(Unit:=12)
        Next
    Next
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try

            If i = dt.datarows.count-1 AndAlso j = dt.datacols.count-1
                '不做操作
            Else
                app.Selection.MoveRight(Unit:=12)
            End If

Dim tm = "d:\test.doc"
Dim bm = "test"
Dim dttable = DataTables("表A")

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(tm)
    If app.ActiveWindow.Selection.Find.Execute("" & bm & "") Then
        '插入表格,方法1或2
        Dim dt2 As DataTable = dttable
        doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, NumColumns:= dt2.DataCols.Count)
        With app.Selection.Tables(1)
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
            .Style = "网格型"
        End With
        For Each dc As DataCol In dt2.DataCols
            app.Selection.TypeText(Text:=dc.Name)
            Dim i As Double
            If Double.TryParse(dc.name,i)
                app.Selection.ParagraphFormat.Alignment = 2
            Else
                app.Selection.ParagraphFormat.Alignment = 1
            End If
            app.Selection.MoveRight(Unit:=12)
        Next
        For i As Integer = 0 To dt2.datarows.count-1
            Dim dr As DataRow = dt2.datarows(i)
           
            For j As Integer = 0 To dt2.datacols.count - 1
                Dim dc As DataCol = dt2.datacols(j)
                app.Selection.TypeText(Text:=dr(dc.Name))
                Dim d As Double
                If Double.TryParse(dr(dc.name),d)
                    app.Selection.ParagraphFormat.Alignment = 2
                Else
                    app.Selection.ParagraphFormat.Alignment = 1
                End If
                If i = dt2.datarows.count-1 AndAlso j = dt2.datacols.count-1
                Else
                    app.Selection.MoveRight(Unit:=12)
                End If
            Next
           
        Next
    End If
    app.Documents(tm).save
    app.quit
catch ex As exception
    app.Quit
finally
End try

可以用table啊，只要匹配，就可以啊。比如dt必须是table；

行的次序，你可以排序嘛。比如先用select排序得到drs集合，再循环drs。