Копирование данных из Excell в Word

[Dimon_isu]

Народ, помогите!
Проблема такая, у меня в базе данных табличка,
загрузить данные из нее получается в Excell,
теперь надо их скопировать в WORD,
как это сделать через макрос, чтоб автоматически было,
очень надо.

Причем, у меня таблица в макросе меняется при изменении клиента, я создал такое кол-во документов (макетов), сколько клиентов и теперь надо их открывать и вставлять нужную таблицу.

Как открывать Excell, тоже макеты я знаю, а вот как в WORD не знаю, очень жду.

[Insainer]

Может из Access сразу в Word?

[Insainer]

Из таблицы Access программно в Word так делается:

Private Sub Кнопка22_Click()
'создание связи, объектов для ADODB
    Dim conn As ADODB.connection
    Set conn = CurrentProject.connection
    Dim recset As ADODB.Recordset
    Set recset = New ADODB.Recordset
    Dim row_num, col_num As Integer
    Dim word_doc As Object
    'Предполагается, что документ Word находится в том же каталоге,
    'если это не так - необходимо задать правильный путь
        Set word_doc = GetObject(Application.CurrentProject.Path & "\Склад.doc")
    'Получение данных из таблицы Access
        recset.Open "Select * From Складские_операции", _
            conn, adOpenKeyset, adLockOptimistic
    'Получение числа записей для использования при создании таблицы Word
        recset.MoveLast
        recset.MoveFirst
    
    With word_doc
    'Создание закладки с названием "Склад" текущее положение курсора
    .Bookmarks.Add Name:="Склад"
    'переход к закладке Word и создание таблицы
    .Bookmarks("Склад").Select
    'создание таблицы, количество строк таблицы совпадает с показанием счетчика записей
    'количество столбцов таблицы совпадает с количеством полей набора записей
    .Tables.Add Range:=Selection.Range, _
        NumRows:=recset.RecordCount, NumColumns:=recset.Fields.Count
    'последовательное заполнение таблицы данными из объекта Recordset с записями
            For row_num = 1 To recset.RecordCount
                For col_num = 1 To recset.Fields.Count
                    .Tables(.Tables.Count).Cell(row_num, col_num).Select
        'если поле пусто, то вносится пустая строка
                If IsNull(recset.Fields(col_num - 1)) Then
                Selection.TypeText Text:=Nz(recset.Fields(col_num - 1), "")
                Else
                Selection.TypeText recset.Fields(col_num - 1)
                End If
        'переход к следующему полю
            Next col_num
            'переход к следующей записи объекта Recordset
                    recset.MoveNext
            'переход к следующей строке таблицы
            Next row_num
    End With
        recset.Close
            Set recset = Nothing
            Set word_doc = Nothing
            MsgBox "Готово!"
End Sub

[Dimon_isu]

Дело в том, что над таблицей, перед тем как выгрузить в
Excell я делаю различные выборки, а уже их результаты надо в
документ, может как то можно так.

[Insainer]

Ну вы завернули, из Access в Excel, из Excel в Word немножко, чуть-чуть обратно в Access и все нажатием волшебной кнопки. Выложите хотя бы Excel файл и объясните что откуда и куда перебросить, есть множество способов, массивом зажевать нужные данные, например, затем в Word. Как? Пример есть, только чуть-чуть подработать...

[SAS888]

Посмотрите один из возможных примеров. Вместо условного шаблона "Pattern.doc" укажите ссылку на Ваш файл шаблона Word-документа. Подробные комментарии в VBA-коде вложенного файла

[Insainer]

Респект SAS888... Пробовал точно также сделать с выделением, не нашел выражения типа SendKeys "+{Insert}", True, узнал много нового...