first character NOT Alpha numeric or Tilde (~) delete.

macropod · #1 03-15-2014, 05:15 AM

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  .InsertBefore vbCr
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13[A-Za-z0-9~]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
    .Text = "^13[!A-Za-z0-9~] "
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
  End With
  .Characters.First = vbNullString
End With
Application.ScreenUpdating = True
End Sub

If the above doesn't do what you want, please attach a document to a post with some representative before and after data (delete anything sensitive). You do this via the paperclip symbol on the 'Go Advanced' tab - don't simply post more code that doesn't work.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to do an alpha numeric Sort By?	Opul3nce	Excel	1	10-15-2012 11:11 PM
Unique 3 char Alpha Numberic column	mauricioaglr	Excel	7	03-09-2012 06:45 PM
Word 2007 TOC Section Number w/Alpha Prefix?	Gwen Butler	Office	2	09-29-2011 06:10 AM
Place pages in alpha order.	Wskip49	Word	5	08-28-2011 07:54 PM
[How To] Generate Alpha Numeric Values in Excel 2010	stnicholas81	Excel	1	07-25-2011 01:31 AM