atw: Word macro help

  • From: "Geoffrey" <geoffrey@xxxxxxxxxxxxxx>
  • To: <austechwriter@xxxxxxxxxxxxx>
  • Date: Wed, 3 Dec 2014 09:23:46 +1100

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:  <http://www.abelard.com.au/> www.abelard.com.au

Other related posts:

  • » atw: Word macro help - Geoffrey
  1. Home
  2. austechwriter
  3. Archive
  4. 12-2014