Thanks Petra. The procedure was not quite correct, but it gave me enough of a clue to work it out. 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] On Behalf Of LIVERANI Petra Sent: Wednesday, 3 December 2014 5:59 PM To: austechwriter@xxxxxxxxxxxxx Subject: atw: Re: Word macro help Hi Geoffrey, Does this help? http://answers.microsoft.com/en-us/office/forum/officeversion_other-word/how-can-i-assign-or-change-keyboard-shortcuts-to/5ea9ac54-494d-4a09-9104-91ea41f7d305 Regards, Petra Petra Liverani Technical Writer / UX Designer Transport Operations Systems Transport Management Centre Transport Services Transport for NSW T 02 8396 1617 | F 02 8396 7950 | M 0401 023 961 25 Garden St, Eveleigh NSW 2015 Use public transport... plan your trip at <http://www.transportnsw.info/> transportnsw.info _____ From: austechwriter-bounce@xxxxxxxxxxxxx [mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of Geoffrey Sent: Wednesday, 3 December 2014 5:25 PM To: austechwriter@xxxxxxxxxxxxx Subject: atw: Re: Word macro help Thanks Suzy. That works. But I wish I had a keyboard shortcut. I’m a cat when it comes to mice. 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] On Behalf Of Suzy Davis Sent: Wednesday, 3 December 2014 5:06 PM To: austechwriter@xxxxxxxxxxxxx Subject: atw: Re: Word macro help 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/> cid:image009.png@01CDD13A.353D71A0 <http://au.linkedin.com/pub/suzy-davis/6/5ba/4b1> cid:image006.png@01CDD13A.353D71A0 <http://www.facebook.com/pages/Apps-for-Office/136256423063414> cid:image007.png@01CDD13A.353D71A0 <http://twitter.com/#!/AppsForOffice> cid:image008.png@01CDD13A.353D71A0 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 Support: 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 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] 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: <http://www.abelard.com.au/> www.abelard.com.au _____ This email (including any attachments) may contain confidential and/or legally privileged information and is intended only to be read or used by the addressee(s). If you have received this email in error, please notify the sender by return email, delete this email and destroy any copy. Any use, distribution, disclosure or copying of this email by a person who is not the intended recipient is not authorised. Views expressed in this email are those of the individual sender, and are not necessarily the views of Transport for New South Wales, Department of Transport or any other NSW government agency. Transport for NSW and the Department of Transport assume no liability for any loss, damage or other consequence which may arise from opening or using an email or attachment. Please visit us at http://www.transport.nsw.gov.au or http://www.transportnsw.info