title: Add new text to already existing text in a content control, and make the already existing text in StrikeThrough
body: <p>I have a content control that already contains text. I want to add new text, and put the previous text in StrikeThrough, my code looks like this.</p>
  <pre><code>Sub testCCrangeModifier()
  Dim CC As ContentControl
  For Each CC In ActiveDocument.ContentControls
      If CC.Title = &quot;myContentControl&quot; And CC.Tag = &quot;myContentControl&quot; Then
          CC.Range.Font.StrikeThrough = True
          CC.Range.Text = (&quot;NEWTEXT&quot; &amp; Chr(13) &amp; Chr(10) &amp; CC.Range.Text)
      End If
  Next CC
  End Sub
  </code></pre>
  <p>With this code, the result is:<br>
  <s> NEWTEXT </s><br>
  <s> OLDTEXT </s></p>
  <p>The result should look like this<br>
  <strong>Before the macro:</strong> <br>
  OLDTEXT</p>
  <p><strong>After the macro:</strong><br>
  NEWTEXT<br>
  <s> OLDTEXT </s></p>
  <p>Chr(13) &amp; Chr(10)  is the linebreak between the oldtext and newtext</p>