Вставка изображения на определенную страницу.

[Seqular]

Нужно написать процедуру, которая вставляет в документ изображение на определенную страницу. Передаются три параметра: номер страницы и Left и Top изображения. В общем вроде бы все просто, но что бы я не делал - вставляется все только на первую страницу.

Фрагмент процедуры:

        With ActiveDocument.Shapes.AddPicture(Word.ActiveDocument.Path & "\img.bmp")
        .Left = ParamLeft
        .Top = ParamTop
        End With

Примерно такой код.
Как вот только указывать на какую именно страницу вставлять?

[viter.alex]

Как-то так

Sub AddPictureToSpecifiedPage(sPicPath As String, iPage As Integer, iTop As Single, iLeft As Single)
  Dim oRng As Range 'диапазон для страницы, на которую нужно вставить картинку
  Dim oShp As Shape 'переменная для картинки вне текста
  Dim oInShp As InlineShape 'переменная для картинки в тексте
  'Переходим на указанную страницу
  Set oRng = ActiveDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, iPage)
  'Добавляем в текст этой страницы картинку
  Set oInShp = oRng.InlineShapes.AddPicture(sPicPath, False, True, oRng)
  'Убираем картинку из текста
  Set oShp = oInShp.ConvertToShape
  'Ставим для картинки заданные координаты
  oShp.Top = iTop: oShp.Left = iLeft
  Set oRng = Nothing: Set oShp = Nothing: Set oInShp = Nothing
End Sub

[Seqular]

Спасибо! Проблема решена!