title: Excluding spaces and punctuation from selection text
body: <p>I wonder if there is anyway to exclude space and puntuation from a selection text in a MS Word VBA script?</p>
  
  <p>For example, this script:</p>
  
  <pre><code>Sub MakeBoldViolet()
  Application.ScreenUpdating = False
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Replacement.Font.Bold = True
      .Replacement.Font.ColorIndex = wdPink
      .Replacement.Font.Size = 14
      .Text = Selection.Text
      .Replacement.Text = "^&amp;"
      .Forward = True
      .Wrap = wdFindContinue
      .Format = True
      .Execute Replace:=wdReplaceAll
    End With
  End With
  Application.ScreenUpdating = True
  End Sub
  
  </code></pre>
  
  <p>Thank you for your time and effort by the way!</p>