Работа с Word средствами VB (формирование таблиц на листе)

Формулировка задачи:

Привет всем! Такой вопрос, как заставить Word начертить таблицу, со столькими столбцами и строками которое к примеру заложено в выборе рекордсета, к примеру Data, как это можно организовать и соответственно туда впихнуть данные.

Решение задачи: «Работа с Word средствами VB (формирование таблиц на листе)»

textual
                            Листинг программы 
                        

                              ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
                        