atw: Re: Word macro help
- From: "Geoffrey" <geoffrey@xxxxxxxxxxxxxx>
- To: <austechwriter@xxxxxxxxxxxxx>
- Date: Wed, 3 Dec 2014 17:25:20 +1100
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
Other related posts:
