Microsoft Office Forums - View Single Post - Replace dashes between two digits without using Selection

RobiNew · 09-29-2023, 08:31 AM

Please ignore the word 'Selection'. What I need is a modification of the code below so as to replace each m-dash with an n-dash.

Code:

Sub DASHES()
'Testo e Note: Sostituisce m-dash con n-dash
Dim mStory As Range 'Nel testo e nelle note
Dim mRange As Range
For Each mStory In ActiveDocument.StoryRanges 'Ranges = testo e note
mStory.Find.Execute FindText:="^#" & Chr(150) & "^#", ReplaceWith:=Chr$(45)
Next mStory
Set mStory = Nothing
End Sub