Microsoft Office Forums - View Single Post

rsrasc · 03-30-2014, 05:51 AM

My preference would be to encode in a macro because I need it for approximately 60 documents that I'm editing.

Anyway, I tested but doesn't work. Would you please show me what I did wrong?

Thanks in advance!!
Cheers!

Code:

Sub Demo2()
Application.ScreenUpdating = False
With ActiveDocument.Range
  .InsertBefore " "
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Text = ".([0-9]{1,3}.)"
    .Replacement.Text = ". \1"
    .Execute Replace:=wdReplaceAll
    .Text = " ([a-e].)"
    .Replacement.Text = "^p\1"
    .Execute Replace:=wdReplaceAll
    .Replacement.Style = "Strong"
    .Text = " ([!1-9])[0]{1,}([0-9]{1,})"
    .Execute Replace:=wdReplaceAll
  End With
  .Characters.First.Delete
End With
Application.ScreenUpdating = True
End Sub