Replace dashes between two digits without using Selection

RobiNew · #1 09-29-2023, 03:19 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
find and replace only in current selection	Bikram	Word VBA	4	11-12-2021 07:31 AM
Find and replace numbers (up to three digits)	ballpoint	Word	3	06-13-2018 08:58 AM
Search+replace all --- [3 dashes] with square wingding	imported_contiw	Word	14	10-04-2017 01:03 PM
Macro to replace digits with letters	Bananabean	Word VBA	6	09-14-2013 09:28 PM
Problems merging in last 4 digits of an account higher than 16 digits	Glynda	Mail Merge	1	04-08-2011 12:17 AM