Sub Test() ActiveDocument.ReferencePoint = cdrTopRight ActiveSelectionRange.SetPosition ActivePage.SizeWidth, ActivePage.SizeHeightEnd Sub