![]() |
|
#2
|
||||
|
||||
|
Try this
Code:
Sub Macro3()
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^13[0-9]{1,4}^013*[0-9]{2},[0-9]{3}^013"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| A question about format of numbers | tesoke | Excel | 3 | 03-22-2016 12:36 AM |
| Search a cell that contains words and numbers and convert the numbers to metric | Carchee | Excel Programming | 36 | 10-08-2014 03:16 PM |
Deleting a numbered section and updating subsequent numbers
|
Gnobles | Word | 4 | 12-19-2013 07:25 AM |
Deleting Page Numbers for Sections
|
MartianTom | Word | 2 | 08-15-2013 11:50 AM |
| How do I refer to page numbers, when the numbers change as I prepare the document? | StevenD | Word | 5 | 11-29-2012 12:52 AM |