Change straight quotes to curly

[nickel]

Όπως είπαμε σ' ένα άλλο νήμα: όταν γράφουμε στο Word, έχουμε ενεργοποιημένη την επιλογή Replace Straight Quotes with Smart Quotes στα δύο AutoFormat του AutoCorrect. Έτσι, όταν γράφουμε στο αγγλικό πληκτρολόγιο, το " γίνεται “ ή ” ανάλογα με τη θέση που μπαίνει το " και, όταν γράφουμε στο ελληνικό πληκτρολόγιο, το " γίνεται « ή ».

Επίσης το ' γίνεται ‘ ή ’ και στα δύο πληκτρολόγια, ανάλογα με τη θέση. Ένα πρόβλημα προκύπτει με την απόστροφο της αφαίρεσης (να ’ρθει), όπου το έξυπνο πρόγραμμα επιμένει να βάζει ‘. Η πιο γρήγορη λύση είναι να πατάμε δύο φορές ', το οποίο γίνεται ‘’, και να σβήνουμε το πρώτο.

Ένα άλλο πρόβλημα προκύπτει όταν το πρόγραμμα (λόγω προβλημάτων μνήμης;) αρνείται να αλλάξει τα ' ή ". Ίσως διορθώνεται αν σώσουμε και κλείσουμε και ξανανοίξουμε το Word (δεν το έχω ψάξει). Τις περισσότερες φορές μού αρκεί να βάλω ελληνικά εισαγωγικά με Control-Alt-{ ή }.

Συχνά αντιγράφω κείμενα από το διαδίκτυο ή άλλες πηγές και τα εισαγωγικά είναι ' ή ". Στα κείμενά μου (ακόμα κι αυτά που ανεβάζω εδώ) μου αρέσει να τα διορθώνω, οπότε Find & Replace.

Εφόσον είναι ενεργοποιημένα τα Replace Straight Quotes with Smart Quotes, αντικαθιστούμε τα ' με ' και τα φτιάχνει μόνο του. Αν το κείμενο είναι ελληνικό, κάνουμε μετά μια αναζήτηση για διάστημα και ‘ για να εντοπίσουμε τα ‘ρθει που πρέπει να γίνουν ’ρθει.

Το ίδιο κάνουμε και με τα ". Find ", replace with ". Στο δικό μου Word τα κάνει όλα « ή », ανάλογα με τη θέση. Τι κάνουμε όταν είναι το κείμενο αγγλικό;

Ακυρώνουμε προσωρινά τα Replace Straight Quotes with Smart Quotes στα AutoFormat. Και κάνουμε τις αντικαταστάσεις:
« with “
» with ”
Επανενεργοποιούμε τα AutoFormats.

Έφτιαξα και μια όμορφη μακροεντολή και ηρέμησα.

Sub Straight2Curly()
'
' Straight2Curly Macro
' Macro recorded 3/6/2008 by n
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = """"
        .Replacement.Text = """"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With AutoCorrect
        .CorrectInitialCaps = False
        .CorrectSentenceCaps = False
        .CorrectDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .ReplaceTextFromSpellingChecker = True
        .CorrectKeyboardSetting = False
        .DisplayAutoCorrectOptions = True
        .CorrectTableCells = False
    End With
    With Options
        .AutoFormatAsYouTypeApplyHeadings = False
        .AutoFormatAsYouTypeApplyBorders = True
        .AutoFormatAsYouTypeApplyBulletedLists = False
        .AutoFormatAsYouTypeApplyNumberedLists = False
        .AutoFormatAsYouTypeApplyTables = True
        .AutoFormatAsYouTypeReplaceQuotes = False
        .AutoFormatAsYouTypeReplaceSymbols = True
        .AutoFormatAsYouTypeReplaceOrdinals = False
        .AutoFormatAsYouTypeReplaceFractions = True
        .AutoFormatAsYouTypeReplacePlainTextEmphasis = False
        .AutoFormatAsYouTypeReplaceHyperlinks = True
        .AutoFormatAsYouTypeFormatListItemBeginning = True
        .AutoFormatAsYouTypeDefineStyles = False
        .TabIndentKey = True
    End With
    With Options
        .AutoFormatApplyHeadings = True
        .AutoFormatApplyLists = True
        .AutoFormatApplyBulletedLists = True
        .AutoFormatApplyOtherParas = True
        .AutoFormatReplaceQuotes = False
        .AutoFormatReplaceSymbols = True
        .AutoFormatReplaceOrdinals = True
        .AutoFormatReplaceFractions = True
        .AutoFormatReplacePlainTextEmphasis = True
        .AutoFormatReplaceHyperlinks = True
        .AutoFormatPreserveStyles = True
        .AutoFormatPlainTextWordMail = True
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "«"
        .Replacement.Text = ChrW(8220)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "»"
        .Replacement.Text = ChrW(8221)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With AutoCorrect
        .CorrectInitialCaps = False
        .CorrectSentenceCaps = False
        .CorrectDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .ReplaceTextFromSpellingChecker = True
        .CorrectKeyboardSetting = False
        .DisplayAutoCorrectOptions = True
        .CorrectTableCells = False
    End With
    With Options
        .AutoFormatAsYouTypeApplyHeadings = False
        .AutoFormatAsYouTypeApplyBorders = True
        .AutoFormatAsYouTypeApplyBulletedLists = False
        .AutoFormatAsYouTypeApplyNumberedLists = False
        .AutoFormatAsYouTypeApplyTables = True
        .AutoFormatAsYouTypeReplaceQuotes = True
        .AutoFormatAsYouTypeReplaceSymbols = True
        .AutoFormatAsYouTypeReplaceOrdinals = False
        .AutoFormatAsYouTypeReplaceFractions = True
        .AutoFormatAsYouTypeReplacePlainTextEmphasis = False
        .AutoFormatAsYouTypeReplaceHyperlinks = True
        .AutoFormatAsYouTypeFormatListItemBeginning = True
        .AutoFormatAsYouTypeDefineStyles = False
        .TabIndentKey = True
    End With
    With Options
        .AutoFormatApplyHeadings = True
        .AutoFormatApplyLists = True
        .AutoFormatApplyBulletedLists = True
        .AutoFormatApplyOtherParas = True
        .AutoFormatReplaceQuotes = True
        .AutoFormatReplaceSymbols = True
        .AutoFormatReplaceOrdinals = True
        .AutoFormatReplaceFractions = True
        .AutoFormatReplacePlainTextEmphasis = True
        .AutoFormatReplaceHyperlinks = True
        .AutoFormatPreserveStyles = True
        .AutoFormatPlainTextWordMail = True
    End With
End Sub