Sorry, but I don't understand what you mean. As I wrote before, I'm trying to replace m-dashes with n-dashes between two digits (text and footnotes) without using Selection. Hope to get some help to modify this code. Thanks!
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), Replace:=wdReplaceAll
Next mStory
Set mStory = Nothing
End Sub