Come si fa a sostituire le virgolette dritte con quelle curvilinee in Word?

Normalmente, Microsoft Word trasforma automaticamente le virgolette dritte in virgolette curvilinee (virgolette tipografiche o «smart») durante la digitazione. Tuttavia, se questa funzione è disattivata, sia le virgolette singole che quelle doppie potrebbero apparire dritte nel documento. Ecco alcuni suggerimenti utili per convertire le virgolette dritte in virgolette curvilinee — e viceversa — direttamente in Word.

Cambia le virgolette dritte in virgolette curvilinee con Trova e sostituisci

Cambia le virgolette dritte in virgolette curvilinee con VBA

---

Cambia le virgolette dritte in virgolette curvilinee con Trova e sostituisci

Prima di applicare Trova e sostituisci, è necessario andare su Opzioni correzione automatica e deselezionare la casella di controllo «Virgolette dritte» con «virgolette tipografiche».

Passaggio 1. Fare clic su File > Opzioni > Strumenti di correzione > Opzioni correzione automatica > Formattazione automatica durante la digitazione e selezionare la casella di controllo «Virgolette dritte» con «virgolette tipografiche». Vedere lo screenshot.

Passaggio 2. Fare clic su Home > Sostituisci nel gruppo Modifica oppure premere Ctrl + H per visualizzare la finestra di dialogo Trova e sostituisci. Quindi, digitare ‘ oppure ‘’ nella casella Trova e inserire ‘ oppure ’’ nella casella Sostituisci con. Vedere lo screenshot:

Passaggio 3. Fai clic su Sostituisci tutto.

Nota: se si desidera sostituire tutte le virgolette curvilinee con virgolette dritte, deselezionare l’opzione «Virgolette dritte» con «virgolette tipografiche» (Casella di controllo).

---

Cambia le virgolette dritte in virgolette curvilinee con VBA

Per sostituire tutte le virgolette dritte con virgolette curvilinee in Word 2010 utilizzando VBA, fare clic su File > Opzioni > Strumenti di correzione, quindi su Correzione automatica > Opzioni e selezionare la casella di controllo «Virgolette dritte» con «virgolette tipografiche», come indicato di seguito. ()Nota: se si desidera sostituire tutte le virgolette curvilinee con virgolette dritte, deselezionare la casella di controllo «Virgolette dritte» con «virgolette tipografiche»).

Passaggio 1: premere «Alt-F11» per aprire la finestra di Microsoft Visual Basic, Applications Edition;

Passaggio 2: fare clic su Modulonella scheda Inserisci, quindi copiare e incollare il seguente codice VBA nella finestra del Modulo;

Passaggio 3: fare quindi clic sul pulsante Esegui per applicare il codice VBA.

Il seguente codice VBA trasforma le virgolette dritte in virgolette curvilinee:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
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
End Sub

Il seguente codice VBA trasforma le virgolette curvilinee in virgolette dritte:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---