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

Вопрос или проблема

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

    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

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

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

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

Ответ или решение

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

Способ 1: Использование кода VBA

Вы можете использовать следующий VBA-код, чтобы вставить изображение в верхний колонтитул документа:

Sub ImageInsertInHeader()
    Dim Shp As Shape
    Dim StrImg As String
    StrImg = "полный_путь_к_вашему_изображению" ' Укажите полный путь к вашему изображению

    ' Вставляем изображение в верхний колонтитул
    With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
        Set Shp = .Shapes.AddPicture(FileName:=StrImg, _
          SaveWithDocument:=True)
        With Shp
            .LockAspectRatio = True
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
            .Left = wdShapeRight
            .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
            .Top = wdShapeBottom
            .WrapFormat.Type = wdWrapTopBottom
        End With
    End With

    Set Shp = Nothing
End Sub

Способ 2: Вставка изображения вручную

  1. Откройте документ Word.
  2. Перейдите на вкладку Вставка.
  3. Нажмите на Колонтитулы и выберите Верхний колонтитул (или Нижний колонтитул, в зависимости от ваших нужд).
  4. В области колонтитула выберите Вставить > Рисунок или Изображение.
  5. Найдите и выберите изображение, которое вы хотите вставить.
  6. Отрегулируйте размеры и позицию изображения по необходимости.
  7. Закройте область колонтитула.

Используя любой из этих методов, ваше изображение будет отображаться на каждой странице документа. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!

Оцените материал
Добавить комментарий

Капча загружается...