<?xml version="1.0" encoding="utf-16"?>
<Macro name="Color VB Comments -Omer" category="TEST" description="Changes color of text starting with a single quote (') on selected lines to green" publishDate="00-00-00T00:00:00.000Z" version="15">
  <Comment text="----------------------------------------------------------------------------------" />
  <Comment text="    Color Words" />
  <Comment text="----------------------------------------------------------------------------------" />
  <Expression>$color = "#FF0099"</Expression>
  <Comment text="Find all the selected paragraphs" />
  <ForEach var="p">
    <Array>QueryObjects("Text", GetCurrentPage())</Array>
    <Comment text="Find quotes as the beginning of a comment" />
    <Expression>$quotes = QueryText($p, "%", false)</Expression>
    <If>
      <Condition>Array_Length($quotes) == 0</Condition>
      <Continue>1</Continue>
    </If>
    <Comment text="Start coloring from the first quote " />
    <Expression>$quote = $quotes[0]</Expression>
    <Expression>$quote.fontColor = $color</Expression>
    <Comment text="Get all the text in the paragraph and color the ones that are after the first quote" />
    <ForEach var="text">
      <Array>QueryObjects("Text", $p)</Array>
      <If>
        <Condition>$text.startIndex &gt; $quote.startIndex</Condition>
        <Expression>$text.fontColor = $color</Expression>
      </If>
    </ForEach>
  </ForEach>
</Macro>