Hmm, this I don't understand! It worked fine for me (and in essence is the same as Suzy's). Did you copy and paste it into your VB Editor? (I'm wondering if there may be a typo introduced.) Howard On 3 December 2014 at 17:26, Geoffrey <geoffrey@xxxxxxxxxxxxxx> wrote: > Hi Howard, > > > > Thanks for the code, but it just deletes the text I have selected. More > MS mischief, perhaps? > > > > Cheers > > > > 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 > > > > *From:* austechwriter-bounce@xxxxxxxxxxxxx [mailto: > austechwriter-bounce@xxxxxxxxxxxxx] *On Behalf Of *Howard Silcock > *Sent:* Wednesday, 3 December 2014 5:07 PM > > *To:* austechwriter@xxxxxxxxxxxxx > *Subject:* atw: Re: Word macro help > > > > Hi Geoffrey > > > > I may be a poor businessman, but I don't think it's worth a fee. (But keep > me in mind if you have something more substantial!) > > > > Sub WrapLaTexCodes() > With Selection.Range > .Text = "\(" & .Text & "\)" > End With > End Sub > > > > Howard > > > > > > On 3 December 2014 at 16:43, Geoffrey <geoffrey@xxxxxxxxxxxxxx> wrote: > > Hi Howard > > > > Is it possible with VBA to wrap selected text in some specified characters? > > > > The background is this: I have a lot of mathematics that is partially > Latex-compliant, but I need to insert the opening Latex characters (\() and > the closing Latex characters {\)). For example, I have 3^x-2 in the > manuscript and I want quickly change that to \(3^x-2\). It would be good if > I could just select 3^x-2, press a key combination and get \(3^x-2\). > > > > Is this do-able? What fee would you charge for designing the macro? > > > > Cheers > > > > 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 > > > > *From:* austechwriter-bounce@xxxxxxxxxxxxx [mailto: > austechwriter-bounce@xxxxxxxxxxxxx] *On Behalf Of *Howard Silcock > *Sent:* Wednesday, 3 December 2014 10:06 AM > *To:* austechwriter@xxxxxxxxxxxxx > *Subject:* atw: Re: Word macro help > > > > Try replacing .Wrap = wdFindAsk with .Wrap = wdFindStop > > > > Howard > > > > On 3 December 2014 at 09:23, Geoffrey <geoffrey@xxxxxxxxxxxxxx> wrote: > > Hi austechies > > > > I’m stuck with a Word macro. All I want to do is have = replaced by &= > 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 = "&=" > > .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 &= 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 > > > > > > >