Fix for a replacement macro

macropod · #2 03-14-2016, 04:13 PM

The problem is that you're working with paragraph breaks and inserting tabs after them, rather than working with paragraphs and inserting tabs before them. Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[!^13]@^13"
    .Replacement.Text = "^t^&"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cell replacement?	lily	Excel	1	06-07-2015 07:20 PM
Word Replacement Option	mattyra	Word	7	02-11-2015 11:13 PM
Automatic Words replacement	psychologist	Word VBA	3	11-22-2014 11:40 AM
Replacement	lostsoul62	Excel	0	04-14-2012 10:07 AM
Replacement Software	hirize	Office	0	08-28-2008 02:33 PM