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

Thread: Replace dashes between two digits without using Selection

View Single Post

Old

09-29-2023, 10:58 AM

rollis13

rollis13 is offline

rollis13 uses Windows 11

Windows 11 rollis13 uses Office 2016

rollis13 uses Office 2016

Office 2016

Competent Performer

Join Date: Jan 2021

Location: Cordenons

Posts: 143

rollis13 will become famous soon enough

Default

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

__________________
Difficult is not to know but to share what you know (Han Fei Tzu reworked)

Reply With Quote