This Works! THANKS

T

ThomasJColby

Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = "(<[0-9]{5})([0-9])"
.ClearFormatting
.MatchWildcards = True
With .Replacement
.Text = "\1-\2"
.ClearFormatting
End With
.Execute Replace:=wdReplaceAll
End With
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Change a great number of words in word files, with a macro as short as possible. 5
Match style 0
CleanUpPastedText() 1
Loop until end 1
Word Macro for multiple searches, incl. in footnotes 2
Select Text to End of Footnote 9
Convert old wordbasic code into VBA that will run now 0
Word macro that can call cells out of Excel for a find and replace 0

Top