title: How to get hold of the string inside a specific font color (to add something to the text, NOT changing the color) Find.Text empty
body: <p>this is my first post in this forum and I am also doing my first steps in word VBA, so please be patient with a poor latin teacher.
  This is what I want to do:</p>
  <p>In my active document I select a text with several words (or parts of words) formatted red. These words are the correct solutions for a CLOZE question (fill in the blank). Here is an example (red = bold):</p>
  <p>Galli ad oppidum <strong>venerunt</strong>.
  Caesar Q. Pedium legatum in Galliam <strong>misit</strong>.</p>
  <p>This should become:</p>
  <ol>
  <li>Romani ad oppidum (veniunt) {1:SHORTANSWER:=venerunt}.</li>
  <li>Caesar Q. Pedium legatum in Galliam (mittit) {1:SHORTANSWER:=misit}.</li>
  </ol>
  <p>So what I have to do is:</p>
  <ol>
  <li>Find all  red text snippets,</li>
  <li>Foreach found red textsnippet insertBefore &quot;{1:SHORTANSWER:=}&quot; and insertAfter &quot;}&quot;.</li>
  </ol>
  <p>I tried to work with Selection.Find.Font.Color = wdColorRed, but then, how do I get hold of each 'instance' and how do I loop through it? The Find-Object has a property Text, but that is always empty :-(</p>
  <p>Can you help me please?</p>
  <p>Kind regards
  Thomasina</p>