Microsoft Office Forums - View Single Post - [Solved] Add en-dash as the beginning of every paragraph

macropod · 02-22-2025, 03:25 PM

Simple:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Execute FindText:="[!^13]@^13", ReplaceWith:="^=^&", _
    MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub