View Single Post
Old 15-01-2011, 12:16
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,787
Blog Entries: 11
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Center Guides

How about this? Short enough for you? :-)
Sub DocCenterGuides()
    ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(1, ActivePage.SizeHeight / 2, 0).Locked = True
    ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(ActivePage.SizeWidth / 2, 1, 90).Locked = True
End Sub
Hope it helps,

Reply With Quote