Вставка изображения на ВСЕХ страницах текстового документа

Question

У меня есть следующий код:

    Sub ImageInsert()
Application.ScreenUpdating = False
Dim Rng As Range, Shp As Shape, StrImg As String
StrImg = "filepath"
Set Rng = Selection.Range
Rng.Collapse
Set Shp = ActiveDocument.InlineShapes.AddPicture(FileName:=StrImg, _
  SaveWithDocument:=True, Range:=Rng).ConvertToShape
With Shp
  .LockAspectRatio = True
  .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
  .Left = wdShapeRight
  .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
  .Top = wdShapeBottom
  .WrapFormat.Type = wdWrapTopBottom
End With
Set Rng = Nothing: Set Shp = Nothing
Application.ScreenUpdating = True
End Sub

Вопрос в том, что я хочу вставить изображение на ВСЕХ страницах документа, а не только на странице выбора. Я пытался изменить диапазон, но это не сработало.

Заранее спасибо!

Answer 1

Для изображений, которые вы хотите отображать на всех страницах, они должны быть помещены в область заголовка. Вам не нужен макрос для этого.