microsoft.public.word.vba.general

A-HA! Perfect! Thank you so much!

In gratitudinous thankfulhood,
-Lynne


"Jay Freedman" wrote:

> Elessvie wrote:
> > Hi, everyone!
> >
> > I'm not a developer or professional programmer, just a budding
> > amateur one at best, wanting to learn more. (I am familiar with
> > basic programming concepts.) In trying to improve our lives here in
> > Word, I searched for and found the following code in a post in this
> > discussion group and thought I'd try it out. It would do exactly
> > what we need, but the procedure doesn't run after being copied into a
> > NewMacros module. Can anyone please help me, or set me in the right
> > direction to figure out why it won't run? I get no error messages.
> >
> > We are using Word 2003 (11.8202.8132) SP2.
> >
> > Any help or any feedback at all on this would be very very very
> > appreciated.
> >
> > Thank you!
> >
> > -Lynne
> >
> >
> > Here's the code:
> >
> > Sub FindAndUnderlineTextInQuotes()
> >
> > 'Underlines text exclusive of the quotes marks
> >
> > Set oRng = ActiveDocument.Content
> >
> > With oRng.Find
> > .ClearFormatting
> > .Text = """<*>"""
> > .Forward = True
> > .Wrap = wdFindStop
> > .MatchWildcards = True
> > Do While .Execute
> > If oRng.Find.Found = True Then
> > With oRng
> > .MoveEnd Unit:=wdCharacter, Count:=-1
> > .MoveStart Unit:=wdCharacter, Count:=1
> > .Font.Underline = True
> > .Collapse wdCollapseEnd
> > End With
> > End If
> > Loop
> > End With
> > End Sub
>
> The macro really does run, but it doesn't find anything in the document
> because it doesn't consider the possibility that the quote marks in your
> document could be "curly" quotes (what Word calls smart quotes).
>
> Change the .Text line to this, and try again:
>
> .Text = "[^0034^0147]<*>[^0034^0148]"
>
> In this expression, ^0034 is the decimal ASCII code for a straight quote
> character, ^0147 is the code for an opening curly quote, and ^0148 is the
> code for a closing curly quote.
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
> Email cannot be acknowledged; please post all follow-ups to the newsgroup so
> all may benefit.
>
>
>