Нужен макрос. Авто размещение направляющих.

Sub Macros_Napr()
' Recorded 12.06.2013
'
' Description:
' napravl
Dim s1 As Shape
Set s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0#, 0#, 90#)
s1.Outline.SetProperties Color:=CreateRGBColor(0, 0, 255)
ActiveDocument.ReferencePoint = cdrCenter
s1.SetPosition -3#, 0#
Dim s2 As Shape
Set s2 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0#, 0#, 90#)
s2.Outline.SetProperties Color:=CreateRGBColor(0, 0, 255)
s2.SetPosition 0#, 0#
Dim s3 As Shape
Set s3 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0#, 0#, 90#)
s3.Outline.SetProperties Color:=CreateRGBColor(0, 0, 255)
Windows.FindWindow("Безымянный-1").ActiveView.SetViewPoint 0#, 0#, 200
s3.SetPosition 3#, 0#
End Sub

Public Sub border203()
    ' Recorded 30.12.2012
    '
    ' Description:
    '     Макрос расстановки направляющих:
    '     -2 мм, 0 мм, 3 мм - с каждой стороны
    
    Dim dblSteps#()
    Dim intStepCount%
    Dim putGdlns As clsPutGuidLines
    Dim varStep As Variant
    Dim varSteps() As Variant
    
    ' задаем массив направляющий (от края к центру)
    varSteps() = Array(-2#, 0#, 3#)
    
    ' инициируем переменную
    intStepCount = 0
    
    ' обходим строковый массив расстояний и передаем корректные данные
    For Each varStep In varSteps()
        ReDim Preserve dblSteps#(intStepCount)
        dblSteps(intStepCount) = CDbl(varStep)
        intStepCount = intStepCount + 1
    Next varStep
    
    ' получаем экземпляр класса
    Set putGdlns = New clsPutGuidLines
    
    ' расставляем направляющие
    Call putGdlns.PutGuidLinesCommandGroup(dblSteps())
    
    ' удаляем ссылку на экземпляр класса
    Set putGdlns = Nothing
End Sub

Public Sub border203()
    ' Recorded 30.12.2012
    '
    ' Description:
    '     Макрос расстановки направляющих
    '     -2 мм, 0 мм, 3 мм - с каждой стороны
    
    Dim dblSteps#()
    Dim intStepCount%
    Dim putGdlns As clsPutGuidLines
    Dim varStep As Variant
    Dim varSteps() As Variant
    
    ' задаем массив направляющий (от края к центру)
    varSteps() = Array(-2#, 0#, 3#)
    
    ' инициируем переменную
    intStepCount = 0
    
    ' обходим строковый массив расстояний и передаем корректные данные
    For Each varStep In varSteps()
        ReDim Preserve dblSteps#(intStepCount)
        dblSteps(intStepCount) = CDbl(varStep)
        intStepCount = intStepCount + 1
    Next varStep
    
    ' получаем экземпляр класса
    Set putGdlns = New clsPutGuidLines
    
    ' расставляем направляющие
    Call putGdlns.PutGuidLinesCommandGroup(dblSteps())
    
    ' удаляем ссылку на экземпляр класса
    Set putGdlns = Nothing
End Sub

Public Sub AreaSm5()
    ' Recorded 30.12.2012
    '
    ' Description:
    '     Макрос расстановки направляющих
    '     -2 см, 0 см, 3 см - с каждой стороны
    
    Dim dblSteps#()
    Dim intStepCount%
    Dim putGdlns As clsPutGuidLines
    Dim varStep As Variant
    Dim varSteps() As Variant
    
    ' задаем массив направляющий (от края к центру)
    varSteps() = Array(-2#, 0#, 3#)
    
    ' инициируем переменную
    intStepCount = 0
    
    ' обходим строковый массив расстояний и передаем корректные данные
    For Each varStep In varSteps()
        ReDim Preserve dblSteps#(intStepCount)
        dblSteps(intStepCount) = CDbl(varStep)
        intStepCount = intStepCount + 1
    Next varStep
    
    ' получаем экземпляр класса
    Set putGdlns = New clsPutGuidLines
    
    ' расставляем направляющие
    Call putGdlns.PutGuidLinesCommandGroup(dblSteps())
    
    ' удаляем ссылку на экземпляр класса
    Set putGdlns = Nothing
End Sub

Public Sub AreaArbitrarily()
    ' Recorded 30.12.2012
    '
    ' Description:
    '     Макрос расстановки направляющих в произвольном месте
    '     с каждой стороны. Указывать в мм через точку с запятой (;).
    
    Dim dblSteps#()
    Dim intStepCount%
    Dim putGdlns As clsPutGuidLines
    Dim strStepsLine As String
    Dim strSteps() As String
    Dim varStep As Variant
    
    ' задаем запрос
    strStepsLine = InputBox("Укажите расположение направляющих через точку с запятой, " _
                        & "в миллиметрах." & vbCrLf & vbCr _
                        & "Например: -2;0;3" & vbCrLf & vbCr _
                        & "Направляющие будут расставлены со всех сторон страницы." _
                        , "Произвольное расположение направляющих")
    
    ' проверка полученных данных
    If (strStepsLine = "") Then
        MsgBox "Вы ни чего не указали. Выполнение команды не возможно." _
                , vbExclamation, "Произвольное расположение направляющих"
        Exit Sub
    End If
    
    ' инициируем переменную
    intStepCount = 0
    
    ' получаем строковый массив расстояний
    strSteps() = Split(strStepsLine, ";")
    
    ' обходим строковый массив расстояний и передаём корректные данные
    For Each varStep In strSteps()
        If Not IsNull(varStep) Then
            If Not (varStep = "") Then
                ReDim Preserve dblSteps#(intStepCount)
                dblSteps(intStepCount) = CDbl(varStep)
                intStepCount = intStepCount + 1
            End If
        End If
    Next varStep
    
    ' получаем экземпляр класса
    Set putGdlns = New clsPutGuidLines
    
    ' расставляем направляющие
    Call putGdlns.PutGuidLinesCommandGroup(dblSteps())
    
    ' удаляем ссылку на экземпляр класса
    Set putGdlns = Nothing
End Sub