Replace dashes between two digits without using Selection

RobiNew · #1 09-28-2023, 09:15 AM

Hi! I'm trying to replace m-dashes with n-dashes between two digits (text and footnotes) without using Selection. How can I modify this code? Thanks!

Sub DASHES()
Dim mStory As Range
Dim mRange As Range
For Each mStory In ActiveDocument.StoryRanges
mStory.Find.Execute FindText:="^#" & Chr(150) & "^#", ReplaceWith:=Chr$(45), Replace:=wdReplaceAll
Next mStory
Set mStory = Nothing
End Sub

RobiNew · #2 09-28-2023, 09:17 AM

Hi! I'm trying to replace m-dashes with n-dashes between two digits (text and footnotes) without using Selection. How can I modify this code? Thanks!

Quote:

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

rollis13 · #3 09-28-2023, 09:44 AM

What's your issue ? the code does its job.

RobiNew · #4 09-28-2023, 01:35 PM

Many thanks for your interest, Rollis13! The code seems perfect, the only trouble is that it rarely works. In most attempts it runs correctly through each line but without changing what it is expected to change.

rollis13 · #5 09-28-2023, 01:48 PM

With "^#" & Chr(150) & "^#" it only works if it finds a m-dash between two numbers (and no spaces in between); ^# is jolly for a number.

RobiNew · #6 09-28-2023, 11:26 PM

Thanks! I'm well aware of that. I was just asking: how can I modify this code to make it replace m-dashes between two digits without using Selection?

rollis13 · #7 09-29-2023, 12:02 AM

In your macro you are using function .Find, I don't see any .Select. Or, do you want to prevent users from selecting.

RobiNew · #8 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

rollis13 · #9 09-29-2023, 03:33 AM

I can't be of any other help: you're not using Selection in your macro. Otherwise, explain better what you mean by "Selection".

RobiNew · #10 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

vivka · #11 09-29-2023, 09:30 AM

Hi, RobiNew! If undersatand correctly what you want, try the following. But note that m-dash has code 151 and n-dash has code 150.

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
    mStory.Find.Execute FindText:="([0-9])" & Chr(151) & "([0-9])", _
    ReplaceWith:="\1" & Chr(150) & "\2", _
    MatchWildcards:=True, _
    Replace:=wdReplaceAll
  Next mStory
End SUb

rollis13 · #12 09-29-2023, 10:58 AM

Em-dash is Chr$(151) while En-dash is Chr$(150) so change your line of code to this:

Code:

mStory.Find.Execute FindText:="([0-9])" & Chr$(151) & "([0-9])", ReplaceWith:="\1" & Chr$(150) & "\2", MatchWildcards:=True, Replace:=wdReplaceAll

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