title: VBA Word: Update Find Format with current selection
body: <p>I'd like the have <strong>Find</strong> in Word automatically populate its formatting based on the text I've selected. I.e. if I have my cursor on text that's <strong><em>bold and italic</em></strong>, I'd like to be able to find all text that match this format without having to actually go through the manual process of selecting these formats in the <strong>Format</strong> -> <strong>Font</strong> window in the <strong>Find</strong> dialog.</p>
  
  <p>With some help of Word's macro recording function, I've come to a working solution:</p>
  
  <pre><code>Sub FindFormat()
      Selection.Find.ClearFormatting
      Selection.Find.Replacement.ClearFormatting
      With Selection.Find.Font
          .Size = Selection.Font.Size
          .Bold = Selection.Font.Bold
          .Italic = Selection.Font.Italic
          .Underline = Selection.Font.Underline
          .StrikeThrough = Selection.Font.StrikeThrough
          .DoubleStrikeThrough = Selection.Font.DoubleStrikeThrough
          .Hidden = Selection.Font.Hidden
          .SmallCaps = Selection.Font.SmallCaps
          .AllCaps = Selection.Font.AllCaps
          .Color = Selection.Font.Color
          .Superscript = Selection.Font.Superscript
          .Subscript = Selection.Font.Subscript
      End With
  End Sub
  </code></pre>
  
  <p>I could technically use it and be done. The problem is it's not that intuitive, as it's hard to see the formatting it has applied, the comma delimited list under the <strong>Find</strong> field is never ending and gets cuts off the window with ellipses, rendering it impossible to read all formatting applied: </p>
  
  <p><img src="https://i.stack.imgur.com/Rxg0O.jpg" alt="Microsoft Word Find"></p>
  
  <p>So, to cut to the chase, how do I have VBA only change the formatting options that is different than neutral, and cut the rest, i.e. <strong>No Underline, Font color: Auto</strong>, etc. should not be changed in <strong>Find</strong>'s <strong>Format</strong> (leaving its checkbox in a neutral state)?</p>
  
  <p>In addition, how do I call the <strong>Find</strong> dialog to open with all these settings without any actual find execution (so I can manually add text or change any formatting as desired, for example)?</p>
  
  <p>With appreciation.</p>