Pasted

<?xml version="1.0" encoding="utf-16"?>
<Macro name="Insert Starline1 Line" category="Horizontal Line" description="Inserts a starline horizontal line" version="18">
  <Comment text="----------------------------------------------------------------------------------" />
  <Comment text="    Insert Double Horizontal Line" />
  <Comment text="----------------------------------------------------------------------------------" />
  <ForEach var="Text">
    <Array>QueryObjects("Text", GetCurrentPage())</Array>
    <If>
      <Condition>$Text.selected</Condition>
      <Expression>$Text.value = "********************************************************"</Expression>
      <Expression>$Text.fontName = "Courier New"</Expression>
      <Expression>$Text.fontSize = 10</Expression>
    </If>
  </ForEach>
  <ForEach var="Outline">
    <Array>QueryObjects("Outline", GetCurrentPage())</Array>
    <If>
      <Condition>($Outline.selection != "none") &amp;&amp; ($Outline.width &lt; 540)</Condition>
      <Expression>$Outline.width = 540</Expression>
      <Expression>$Outline.sizeSetByUser = true</Expression>
    </If>
  </ForEach>
</Macro>