Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Curly quotes to French Quotes
How can I replace all curly quotes with French (dagger or duck's feet) quotes?
When I use the unicode characters (eg 00AB) in "Replace," it simply replaces the curly quotes with curly quotes again. I can enter the French quotes manually, but this is laborious. |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Curly quotes to French Quotes
You know, I thought that if the text were tagged as French, then both a
replace operation and a Format | AutoFormat would switch to the correct quotation marks, assuming the AutoFormat options were set up right. But this is not working on my machine either, although if I type new marks, it does. Perhaps someone else will know. The semi-manual alternative--two Find and Replaces. #1) Find opening quotation ³, typed via alt-[. Replace with opening French quotation mark, copied into Replace box using control-C or typed via alt-\. #2) Find closing quotation ², typed via alt-shift-[ . Replace with closing French quotation mark, copied into Replace box using control-C or typed via alt-shift-\. This should not be so laborious. I always recommend making a COPY before doing a Replace All. On 12/8/06 9:13 PM, "DFT" wrote: How can I replace all curly quotes with French (dagger or duck's feet) quotes? When I use the unicode characters (eg 00AB) in "Replace," it simply replaces the curly quotes with curly quotes again. I can enter the French quotes manually, but this is laborious. -- Daiya Mitchell, MVP Mac/Word Word FAQ: http://www.word.mvps.org/ MacWord Tips: http://word.mvps.org/Mac/WordMacHome.html What's an MVP? A volunteer! Read the FAQ: http://mvp.support.microsoft.com/ |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Curly quotes to French Quotes
Setting the language to French and running autoformat with the smart quote
option works for me. However, it won't work if the quotes are already converted from straight quotes to smart quotes in another language. If that was the case you would have to replace them with plain quotes first. The following macro will do that for English smart quotes: Sub ReplaceList() Dim vFindText As Variant Dim vReplText As Variant Dim i As Long vFindText = Array(Chr(145), Chr(146), Chr(147), Chr(148)) vReplText = Array(Chr(39), Chr(39), Chr(34), Chr(34)) With Selection.Find .Forward = True .Wrap = wdFindContinue .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Format = True .MatchCase = True For i = LBound(vFindText) To UBound(vFindText) .Text = vFindText(i) .Replacement.Text = vReplText(i) .Execute replace:=wdReplaceAll Next i End With End Sub Though if taking the macro approach, you could simply insert the required characters in the vReplText array. By adding all possible combinations to find and replace, you can cater for any eventuality. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Daiya Mitchell wrote: You know, I thought that if the text were tagged as French, then both a replace operation and a Format | AutoFormat would switch to the correct quotation marks, assuming the AutoFormat options were set up right. But this is not working on my machine either, although if I type new marks, it does. Perhaps someone else will know. The semi-manual alternative--two Find and Replaces. #1) Find opening quotation ³, typed via alt-[. Replace with opening French quotation mark, copied into Replace box using control-C or typed via alt-\. #2) Find closing quotation ², typed via alt-shift-[ . Replace with closing French quotation mark, copied into Replace box using control-C or typed via alt-shift-\. This should not be so laborious. I always recommend making a COPY before doing a Replace All. On 12/8/06 9:13 PM, "DFT" wrote: How can I replace all curly quotes with French (dagger or duck's feet) quotes? When I use the unicode characters (eg 00AB) in "Replace," it simply replaces the curly quotes with curly quotes again. I can enter the French quotes manually, but this is laborious. |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Curly quotes to French Quotes
Thanks. This does the trick. The key is the warning in the second sentence:
start with straight quotes in English. (I'm also glad to have the macro.) "Graham Mayor" wrote: Setting the language to French and running autoformat with the smart quote option works for me. However, it won't work if the quotes are already converted from straight quotes to smart quotes in another language. If that was the case you would have to replace them with plain quotes first. The following macro will do that for English smart quotes: Sub ReplaceList() Dim vFindText As Variant Dim vReplText As Variant Dim i As Long vFindText = Array(Chr(145), Chr(146), Chr(147), Chr(148)) vReplText = Array(Chr(39), Chr(39), Chr(34), Chr(34)) With Selection.Find .Forward = True .Wrap = wdFindContinue .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Format = True .MatchCase = True For i = LBound(vFindText) To UBound(vFindText) .Text = vFindText(i) .Replacement.Text = vReplText(i) .Execute replace:=wdReplaceAll Next i End With End Sub Though if taking the macro approach, you could simply insert the required characters in the vReplText array. By adding all possible combinations to find and replace, you can cater for any eventuality. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Daiya Mitchell wrote: You know, I thought that if the text were tagged as French, then both a replace operation and a Format | AutoFormat would switch to the correct quotation marks, assuming the AutoFormat options were set up right. But this is not working on my machine either, although if I type new marks, it does. Perhaps someone else will know. The semi-manual alternative--two Find and Replaces. #1) Find opening quotation ³, typed via alt-[. Replace with opening French quotation mark, copied into Replace box using control-C or typed via alt-\. #2) Find closing quotation ², typed via alt-shift-[ . Replace with closing French quotation mark, copied into Replace box using control-C or typed via alt-shift-\. This should not be so laborious. I always recommend making a COPY before doing a Replace All. On 12/8/06 9:13 PM, "DFT" wrote: How can I replace all curly quotes with French (dagger or duck's feet) quotes? When I use the unicode characters (eg 00AB) in "Replace," it simply replaces the curly quotes with curly quotes again. I can enter the French quotes manually, but this is laborious. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Smart quotes and index codes | Formatting Long Documents | |||
Why do curly quotes "reverse"? | Microsoft Word Help | |||
Curly Quotes and Index of Terms | Microsoft Word Help | |||
Can Word be set-up to change curly quotes to straight quotes when. | Microsoft Word Help | |||
French (dagger) to English (curly) quotation marks | Microsoft Word Help |