如何在单词的所有页面上插入图像(使用 VBA 宏)?

如何在单词的所有页面上插入图像(使用 VBA 宏)?

我尝试在每个字页中插入一张图片。

我知道该命令是 for 循环中的 Next,但是使用该循环对其进行编程对我来说很困难。

这是我的代码:

Sub InsertImage()
Dim oILS As InlineShape, oShp As Shape
Set oILS = Selection.InlineShapes.AddPicture(FileName:= _
 "C:\Users\" & LCase(Environ("UserName")) & "\Desktop\SubEscritorio3\Ejercicios Matemáticas\Barra.png", LinkToFile:=False, _
 SaveWithDocument:=True)
Set oShp = oILS.ConvertToShape
With oShp
  .WrapFormat.Type = wdWrapBehind
  .Left = -55
  .Top = 471.1
  .Height = 21.5
  .Width = 522

  
End With
End Sub

你能帮我解决这个问题吗?

答案1

好吧,我在所有页面上都找到了实现此方法的方法。如果它对任何人有帮助,请看这里:

Sub Demo()
Dim Rng As Range, i As Long, Shp As Shape, ImageName As String
ImageName = "C:\Users\" & LCase(Environ("UserName")) & "\Desktop\SubEscritorio3\Ejercicios Matemáticas\Barra.png"
With ActiveDocument
Set Rng = .Range(0, 0)
For i = 1 To .ComputeStatistics(wdStatisticPages)
Set Rng = Rng.GoTo(What:=wdGoToPage, Name:=i)
Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
Rng.Collapse wdCollapseStart
Set Shp = .InlineShapes.AddPicture(FileName:=ImageName, SaveWithDocument:=True, Range:=Rng).ConvertToShape
With Shp
.Left = -55
.Top = 471.1
.Width = 522
.Height = 21.5
.WrapFormat.Type = wdWrapBehind

End With
Next
End With
End Sub

相关内容