Add en-dash as the beginning of every paragraph

nonno · #1 02-22-2025, 11:26 AM

I have some macros that are update the paragraph style, but now need a macro that can place an en-dash at the beginning of every paragraph.

Italophile · #2 02-22-2025, 12:38 PM

No need for VBA, you can do that with Find. Find paragraph marks and replace with a paragraph followed by an en-dash.

nonno · #3 02-22-2025, 02:49 PM

As I mentioned, I'm going to incorporate this with other macros, so it would be nice to do this with a macro as well.

I recorded a macro and updated it to get this, but it skips the very first paragraph of the Word document.

Code:

Sub Macro9()
    
    Selection.HomeKey Unit:=wdStory, Extend:=wdMove
    
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^p"
        .Replacement.Text = "^p ^= "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

macropod · #4 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

nonno · #5 02-22-2025, 06:16 PM

Thank you Paul. Works great.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Bold text at beginning of paragraph	Shelley Lou	Word VBA	6	11-18-2024 03:15 PM
Replace paragraph with style and add an em dash	jeffreybrown	Word VBA	1	05-08-2021 04:01 PM
Space tab at the beginning of each paragraph in a chapter	village	Word	3	07-20-2018 01:48 AM
Need Word to change -- (dash,dash) into one long dash.	Bobosmite	Word	2	05-06-2011 04:21 AM
Dash in the beginning of a new line	Wakinyan	Word	0	07-11-2010 07:10 AM