Помогите с Word

[Marvel]

У меня есть две страницы в ворде. В каждую из них надо вставить рисунок.

DocWord.Application.ActiveDocument.Shapes.AddPicture(App.Path & "\Test.jpg", , , , , 100, 100).Select

Здесь получается, что вставляется рисунок только в первую страницу

[Shurrik]

Дело а том, что нужно перейти на нужную страницу.
Попробуй такой код.
Sub AddPict()
' Получить количество страниц в документе
n = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ns = 2 ' номер страници, куда вставим ресунок
Selection.GoTo wdGoToPage, , , ns ' переход на нужную страницу
x = CentimetersToPoints(10): y = CentimetersToPoints(4) ' Координаты вставки
ActiveDocument.Shapes.AddPicture "С:\PICT.BMP", False, True, x, y, , , Selection.Range
' обязательно в конце (Selection.Range), т.е. выделенное место
End Sub