With ActiveDocument.Pages(1).RulerGuides
    While .Count > 0
        .Item(1).Delete
    Wend
End With

Dim i As Integer

With ActiveDocument.Pages(1).RulerGuides
    i = .Count
    While i > 0
        If .Item(i).Type = pbRulerGuideTypeHorizontal Then
            .Item(i).Delete
        End If
        i = i - 1
    Wend
End With

Dim i As Integer

With ActiveDocument.Pages(1).RulerGuides
    i = .Count
    While i > 0
        If .Item(i).Type = pbRulerGuideTypeVertical Then
            .Item(i).Delete
        End If
        i = i - 1
    Wend
End With

Dim oPageSource As Publisher.Page
Dim oPageDestination As Publisher.Page
Dim oGuide As Publisher.RulerGuide

Set oPageSource = ActiveDocument.Pages(1)
Set oPageDestination = ActiveDocument.Pages(2)
For Each oGuide In oPageSource.RulerGuides
    oPageDestination.RulerGuides.Add oGuide.Position, oGuide.Type
Next oGuide

Dim oPageSource As Publisher.Page
Dim oGuide As Publisher.RulerGuide
Dim h As Double

Set oPageSource = ActiveDocument.Pages(1)
Set oGuide = oPageSource.RulerGuides.Item(1)
h = oGuide.Position / 567 * 20
MsgBox "Le guide est à " & h & " cm du bord de la page"