Hi Geoffrey Not wanting to do Howard out of paid work, but copy this macro to your Normal template Try this… Macros: Click on the Developer tab (if you can’t see it, you can make it visible via File > Options) Click on Record macro, give it a name, and click Keyboard to assign keystroke Click OK Stop it. Doesn’t matter what you do. This will create it in the Visual Basic area. Press Alt+F11 will open the VB area Under Normal you will see Modules>New Macros Double-click this, and you will see that it has created a Sub [your macro name] – the one you just recorded. In between the Sub and End Sub Paste this. Dim myString as String myString = Selection.Range Selection.Range = “\(“ & myString & “\)” Let’s say your macro is called “Test” Now go into File > Options (assuming you are using Word 2010 or 2013) Select Quick Access Toolbar Select Macros in the Choose Commands from box Select your macro in the list This will add it to the QAT. I don’t work with keyboard shortcuts, so hopefully someone can Kind regards Suzy Suzy Davis Microsoft Word Templates, Apps for Microsoft Office & Documentation Projects <http://www.appsforoffice.com/> <http://au.linkedin.com/pub/suzy-davis/6/5ba/4b1> <http://www.facebook.com/pages/Apps-for-Office/136256423063414> <http://twitter.com/#!/AppsForOffice> www. <http://www.appsforoffice.com/> appsforoffice.com If you spend 80% of your document time on formatting, instead of writing and perfecting The APPS FOR OFFICE system has been designed for you: apps FREE - quick easy formatting shortcuts (it’s free) apps WorkSmart - try for 30 days (includes report & proposal templates) www.appsforoffice.com/wp-html/products.html <http://www.appsforoffice.com/wp-html/products.html> Support: support@xxxxxxxxxxxxxxxxx <mailto:support@xxxxxxxxxxxxxxxxx> Forum: http://appsforoffice.freshdesk.com/support/discussions PO Box 404 Brighton VIC 3186 (Melbourne) Australia Direct +61 3 9593 6568 Mobile +61 433 489 989 Email suzy.davis@xxxxxxxxxxxxxxxxx <mailto:suzy.davis@xxxxxxxxxxxxxxxxx> From: austechwriter-bounce@xxxxxxxxxxxxx [mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of Geoffrey Sent: Wednesday, 3 December 2014 4:44 PM To: austechwriter@xxxxxxxxxxxxx Subject: atw: Re: Word macro help 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: <http://www.abelard.com.au/> www.abelard.com.au From: austechwriter-bounce@xxxxxxxxxxxxx <mailto:austechwriter-bounce@xxxxxxxxxxxxx> [mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of Howard Silcock Sent: Wednesday, 3 December 2014 10:06 AM To: austechwriter@xxxxxxxxxxxxx <mailto: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 <mailto: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: <http://www.abelard.com.au/> www.abelard.com.au