Sub Procedure_1()
 
    Dim myShape As Word.Shape
    Dim myLeft As Double, myTop As Double
    Dim i As Long
    
       For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    
        ActiveDocument.InlineShapes(i).Select
        myLeft = Selection.Information(wdHorizontalPositionRelativeToPage)
        myTop = Selection.Information(wdVerticalPositionRelativeToPage)
        
        Set myShape = ActiveDocument.InlineShapes(i).ConvertToShape
        
        myShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        myShape.RelativeVerticalPosition = wdRelativeVerticalPositionPage

        myShape.Left = myLeft
        myShape.Top = myTop
        
    Next i
 
End Sub