Text_Delete
Sorry Paul,
Though, I was sure that I included the code, anyhow...
As suggested, the macro was called: Text_delete
On the second try, I got an Execution Error (Text search contains a special criteria not valid).
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Text = "^13"
.Replacement.Text = "^l"
.Execute Replace:=wdReplaceOne
.Text = "([^13]{2}[!^13]{1,})^13"
.Replacement.Text = "\1^l"
.Execute Replace:=wdReplaceAll ==== 'VBA stopped here'====
I re-send the file with hopefully the code included.
Michael
|