QueryObjects("Text", GetCurrentPage()) $Text.selected $Text.value = "********************************************************" $Text.fontName = "Courier New" $Text.fontSize = 10 QueryObjects("Outline", GetCurrentPage()) ($Outline.selection != "none") && ($Outline.width < 540) $Outline.width = 540 $Outline.sizeSetByUser = true