Отчет в Word и рисунки

Добрый день. У меня проблема. Я выбрасываю отчет в Word и там при необходимости редактирую. Теперь я поменяла форму отчета, вставив туда рисунок. В итоге рисунок в Word не переходит. Рисунок стоит как объект OLE. И еще когда выбрасываю отчет в Word весь его вид мегко говоря меняется, все перескакиевает, т.е. еще надо порядочно редактировать. Прошу вас помочь, может модно сделать некие настройки. Если можно все разжувать, так как я экономист.

Заранее прошу прощее за "разжувать" :) и прочее

Заранее прошу прощее за "разжувать" :) и прочее

Чай_ник, прошу прощения, уважаемая.
Вот вы пишете, что формируете отчёт в Word. Я так понял, из Аксесса. В каком формате сделан шаблон отчёта? Рекомендую создать dot-файл (шаблон). Затем в коде на основе шаблона создавать отчёты.
Далее, вы что-то говорили про рисунки. Я не понял, рисунок статичен или меняется в зависимости от данных? Если статичен, то тут снова никаких проблем - вставляете его прямо в шаблон и там же сохраняете.
Третье: как вы вставляете данные в Word? Традиционно используется 2 способа: через закладки (Bookmarks) и поля (Fields, Variable). При применении обоих методов ни рисунки, ни другие объекты Word'а не затираются и не переезжают.
Подробнее рассказать?

Спасибо за ответ. Я создаю отчет, который в основном состоит из текста, т.е. это приказ предприятия. Из рисунков это только логотип и две полоски. Но мне достаточно много бывает надо редактировать, т.е. выбрасывать в Word обязательно.
Подскажите а где это мне указать чтобы по умолчанию использовался мой шаблон.

Может пригодится Несколько советов по созданию документов в Word из Access

О, какие люди! 2 человека из Минска - это круто ;)

    Dim oWord As Object, oDoc As Object, oTable As Object

    Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    'создание документа на основе шаблона
    Set oDoc = oWord.Documents.Add(Application.CurrentProject.Path & "\Шаблоны\ВашШаблон.dot")

    oDoc.Bookmarks("date").Range.Text = Format(Date, "dd.mm.yyyy") 'это вставка в закладку "date" текущей даты
    Set oTable = oDoc.Tables(1) 'обращение к первой таблице
    With oTable
          .Cell(1, 1).Range.Text = "Какой-то текст"
          .Rows.Add
    End With

    Set oTable = Nothing
    Set oDoc = Nothing
    Set oWord = Nothing

%)
Спасибо.

Создала модуль, вставила туда, но пишет ,что не может найти объект. Может можно еще куда выбрасывать, чтобы были рисунки и можно было редактировать.

Как говорится - пример в студию.
=================================================================
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?