RulerGuides Property

expression.RulerGuides

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates horizontal and vertical ruler guides every half inch on the first page of the active publication.

Sub SetRulerGuides()
    Dim intCount As Integer
    Dim intPos As Integer
    With ActiveDocument.Pages(1).RulerGuides
        For intCount = 1 To 16
            intPos = intPos + 36
             .Add Position:=intPos, Type:=pbRulerGuideTypeVertical
        Next intCount
        intPos = 0
        For intCount = 1 To 21
            intPos = intPos + 36
             .Add Position:=intPos, Type:=pbRulerGuideTypeHorizontal
        Next intCount
    End With
End Sub