Sub Demo()
Dim Rng As Range, i As Long, Shp As Shape, ImageName As String
ImageName = "M:\1.png" ' ϸ
With ActiveDocument
Set Rng = .Range(0, 0)
For i = 1 To .ComputeStatistics(wdStatisticPages) ' 1
Set Rng = Rng.GoTo(What:=wdGoToPage, Name:=i)
Rng.Collapse wdCollapseStart
Set Shp = .InlineShapes.AddPicture(FileName:=ImageName, SaveWithDocument:=True, Range:=Rng).ConvertToShape
With Shp
.Left = 0 ' ġ
.Top = 0 ' ġ
.Width = 100 ' ũ
.Height = 100 ' ũ
End With
Next
End With
End Sub