atw: Re: Word macro help

  • From: Rhonda Bracey <rhonda.bracey@xxxxxxxxxxxxxxxx>
  • To: "austechwriter@xxxxxxxxxxxxx" <austechwriter@xxxxxxxxxxxxx>
  • Date: Wed, 3 Dec 2014 06:41:19 +0800

Try getting rid of the .ExecuteReplace line and add this instead at the end, 
AFTER 'End With':
Selection.Find.Execute Replace:=wdReplaceAll

Rhonda.bracey@xxxxxxxxxxxxxxxx<mailto:Rhonda.bracey@xxxxxxxxxxxxxxxx>
Website: http://cybertext.com.au
Blog: http://cybertext.wordpress.com

From: austechwriter-bounce@xxxxxxxxxxxxx 
[mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of Geoffrey
Sent: Wednesday, 3 December 2014 6:24 AM
To: austechwriter@xxxxxxxxxxxxx
Subject: atw: Word macro help

Hi austechies

I'm stuck with a Word macro. All I want to do is have = replaced by &amp;= in a 
selection of text. This is the code that the record macro command generates:

Sub equals()
'
' equals Macro
'
'
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "="
        .Replacement.Text = "&amp;="
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll
End With
End Sub

The problem is that this macro replaces = with &amp;= throughout the entire 
rest of the document, not just in the text selected. That's not what I want.

Any ideas?


Geoffrey Marnell
Principal Consultant
Abelard Consulting Pty Ltd
P: 03 9596 3456
M: 0419 574 668
F: 03 9596 3625
Web: www.abelard.com.au<http://www.abelard.com.au/>

Other related posts:

  1. Home
  2. austechwriter
  3. Archive
  4. 12-2014