title: VBA changing font size of one character in specific string (MSWORD MACRO)
body: <p>I am trying replace the font size of one character in specific string.</p>
  
  <p><a href="https://i.stack.imgur.com/mLMO3.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/mLMO3.jpg" alt="enter image description here"></a></p>
  
  <p>This one creates the word I want but I cannot get it incorporated with a replace function.</p>
  
  <pre><code>Sub logo()
  Selection.Collapse Direction:=wdCollapseEnd
  With Selection.Range
   .Font.Reset
   .Text = "EXAMPLE"
   .Characters(2).Font.Size = 8
  End With
  End Sub
  </code></pre>
  
  <p>This one replaces the whole word. I cannot get it incorporated with a character function.</p>
  
  <pre><code>Sub RedoFonts()
      With ActiveDocument.Content.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Forward = True
          .Wrap = wdFindContinue
          .Format = True
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
          .Text = "EXAMPLE"
          .Replacement.Text = "EXAMPLE"
          .Font.Size = 12
          .Replacement.Font.Size = 9
          .Execute Replace:=wdReplaceAll
          .ClearFormatting
          .Replacement.ClearFormatting
          .Font.Name = "Times New Roman"
          .Replacement.Font.Name = "Times New Roman"
          .Execute Replace:=wdReplaceAll
      End With
  End Sub
  </code></pre>
  
  <p>Any way to merge these two? </p>