atw: Re: Word macro help
- From: Howard Silcock <howard.silcock@xxxxxxxxx>
- To: "austechwriter@xxxxxxxxxxxxx" <austechwriter@xxxxxxxxxxxxx>
- Date: Wed, 3 Dec 2014 17:06:37 +1100
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
>
>
>
>
>
Other related posts:
