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

[seqular]

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

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

Код: Выделить всё

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


Примерно такой код.

[alibek]

Ты не можешь вставлять изображение на произвольную страницу.
Меняй привязку якоря.

[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

А якорь у картинки только для чтения.