[mso] Re: Searching for Curly Quotes and Straight Quotes

  • From: "Dian D. Chapman" <dian@xxxxxxxxxxxxx>
  • To: <mso@xxxxxxxxxxxxx>
  • Date: Sun, 18 Sep 2005 22:08:53 -0500

You can use this macro to find what you want...

Sub FindCurlyQuotes()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ChrW(8220)
        .Forward = True
    End With
    Selection.Find.Execute
End Sub

The above will find the left curly quote...to find the right side, change
the code to ChrW(8221). To find straight quotes, just use the standard "
find.

I assume you know how to use the code? But just in case, here's an article
for ya...

Sharing Macros
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=166

Dian D. Chapman, Technical Consultant
Microsoft MVP, MOS Certified
Editor/TechTrax Ezine

Help Katrina's Homeless Animals: http://www.mousetrax.com/pets.html

Free Tutorials: http://www.mousetrax.com/techtrax
Optimize your business docs: http://www.mousetrax.com/consulting
Learn VBA the easy way: http://www.mousetrax.com/techcourses.html 


-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of James S. Huggins (MSO)
Sent: Sunday, September 18, 2005 7:54 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Searching for Curly Quotes and Straight Quotes


==================
So I take it you don't want to stop at each find? 
==================

Actually, I do want to stop at each find.

I'm editing text and code.

The fonts/formatting of the text and code sections are different.

So, if I could do a find on curly, and just click next, next, next, I could
step through the document. As long as I kept ending up in a text area, there
would be no problem. But if I found a curly in a code section, I'd know
instantly I had a problem.

As it is, I find both curly and text and so I have to 
a) look close to see which one it is
b) look close to see which section it is
c) engage my brain to see if that type is allowed in that section
d) repeat

Your suggestion is EXCELLENT for doing the replace. But I'd like to filter
the
FIND to make it "easier".

I'm getting the impression it is not possible to filter the find.


James S. Huggins




...

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes)
in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.1/104 - Release Date: 9/16/2005
 

-- 
This email scanned and certified clean by AVG!
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.1/104 - Release Date: 9/16/2005
 

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: