Рамка на листе

[CORBA]

Нарисовал я на листе рамку след. образом:

Код: Выделить всё


With ActiveDocument.PageSetup
       
        .PaperSize = wdPaperA4

        .LeftMargin = CentimetersToPoints(2#)
        .RightMargin = CentimetersToPoints(0.5)
        .TopMargin = CentimetersToPoints(0.5)
        .BottomMargin = CentimetersToPoints(0.5)

        ActiveDocument.Shapes.AddLine(.LeftMargin, .TopMargin, _
                                      .PageWidth - .RightMargin, _
                                      .TopMargin).Select
        ActiveDocument.Shapes.AddLine(.PageWidth - .RightMargin, .TopMargin, _
                                      .PageWidth - .RightMargin, .PageHeight - .BottomMargin).Select
        ActiveDocument.Shapes.AddLine(.PageWidth - .RightMargin, .PageHeight - .BottomMargin, _
                                      .LeftMargin, .PageHeight - .BottomMargin).Select
        ActiveDocument.Shapes.AddLine(.LeftMargin, .TopMargin, .LeftMargin, .PageHeight - .BottomMargin).Select
        ActiveDocument.Select
    End With


Трабла в том что эта рамка двигается вместе с перемещением текста по нажатию на enter. А хотелось бы чтобы она всё время оставалась на одном месте. Как это сделать?

ЗЫ
Думается что надо юзать параметр Anchor, но я совершено не понимаю как с ним работать.

[alibek]

Не совсем так.
Anchor -- это "якорь", от которого позиционируется фигура.
Т.е. ты можешь установить Anchor в ту точку (тот абзац), который не будет меняться. А может просто сменить режим позиционирования с относительного (относительно символа или абзаца) на абсолютный (относительно полей страницы) и отключить опцию "смещать вместе с текстом".