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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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