atw: Re: Word macro help
- From: "Geoffrey" <geoffrey@xxxxxxxxxxxxxx>
- To: <austechwriter@xxxxxxxxxxxxx>
- Date: Wed, 3 Dec 2014 17:41:44 +1100
Thanks for your efforts Howard. With a client breathing down my neck, I haven’t
time to explore this. I’m running with what works and when I have a second to
scratch my derriere I might return to the issue. Then again, I might count the
hairs on my head and decide not to!
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 5:36 PM
To: austechwriter@xxxxxxxxxxxxx
Subject: atw: Re: Word macro help
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: <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 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: <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:
