This example sets the horizontal position of the active window to 100 points.
With ActiveDocument.ActiveWindow
.WindowState = wdWindowStateNormal
.Left = 100
.Top = 0
End With
This example sets the horizontal position of the first shape in the active document to 1 inch from the left edge of the page.
With ActiveDocument.Shapes(1)
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
.Left = InchesToPoints(1)
End With
This example sets the horizontal position of the first and second shapes in the active document to 1 inch from the left edge of the column.
With ActiveDocument.Shapes.Range(Array(1, 2))
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
.Left = InchesToPoints(1)
End With