Replace dashes between two digits without using Selection

		Microsoft Office Forums > Microsoft Word > Word VBA
Replace dashes between two digits without using Selection

FAQ

Thread Tools

Display Modes

09-28-2023, 09:15 AM

RobiNew

Windows 10 Replace dashes between two digits without using Selection

Office 2016

Competent Performer

Join Date: Sep 2023

Posts: 200

Replace dashes between two digits without using Selection

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

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 06:18 AM.