With ActiveDocument.Shapes(1) .RelativeVerticalPosition = wpsRelativeVerticalPositionPage .Top = InchesToPoints(1)End With