<?xml version="1.0" encoding="utf-16"?>
<Macro name="Color PowerShell Comments" category="Test" description="" publishDate="00-00-00T00:00:00.000Z" version="15">
  <Comment text="----------------------------------------------------------------------------------" />
  <Comment text="    Color Powershell Comments" />
  <Comment text="----------------------------------------------------------------------------------" />
  <Expression>$color = "#358000"</Expression>
  <Comment text="Find all the selected paragraphs" />
  <ForEach var="p">
    <Array>QueryObjects("Paragraph", GetCurrentPage())</Array>
    <If>
      <Condition>$p.selection == "none"</Condition>
      <Continue>1</Continue>
    </If>
    <Comment text="Find hashes as the beginning of a comment" />
    <Expression>$hashes = QueryText($p, "#", false)</Expression>
    <If>
      <Condition>Array_Length($hashes) == 0</Condition>
      <Continue>1</Continue>
    </If>
    <Comment text="Start coloring from the first hash" />
    <Expression>$hash = $hashes[0]</Expression>
    <Expression>$hash.fontColor = $color</Expression>
    <Comment text="Get all the text in the paragraph and color the ones that are after the first hash" />
    <ForEach var="text">
      <Array>QueryObjects("Text", $p)</Array>
      <If>
        <Condition>$text.startIndex &gt; $hash.startIndex</Condition>
        <Expression>$text.fontColor = $color</Expression>
      </If>
    </ForEach>
  </ForEach>
</Macro>