Вопрос или проблема
У меня есть следующий код:
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: Вставка изображения вручную
- Откройте документ Word.
- Перейдите на вкладку Вставка.
- Нажмите на Колонтитулы и выберите Верхний колонтитул (или Нижний колонтитул, в зависимости от ваших нужд).
- В области колонтитула выберите Вставить > Рисунок или Изображение.
- Найдите и выберите изображение, которое вы хотите вставить.
- Отрегулируйте размеры и позицию изображения по необходимости.
- Закройте область колонтитула.
Используя любой из этих методов, ваше изображение будет отображаться на каждой странице документа. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!