Sub Test() Dim d As Document Dim p As Page Set d = ActiveDocument Set p = d.Pages(1) p.Layers(1).CreateRectangle 0, 0, 3, 3 d.Pages(0).Layers("Guides").CreateLineSegment 0, 4, 5, 4End Sub