Vai al contenuto principale

Come cambiare le virgolette semplici in virgolette ricce in parole?

Normalmente Microsoft Word cambierà automaticamente le virgolette alle citazioni ricci (smart ortypographer) durante la digitazione. Ma se la funzione è disattivata, sia le virgolette singole che le virgolette doppie potrebbero apparire direttamente nel documento. Ecco alcuni suggerimenti per modificare le virgolette semplici in virgolette ricci e viceversa in Word.

Cambia virgolette semplici in virgolette ricci con Trova e sostituisci

Cambia virgolette semplici in virgolette ricci con VBA

Strumenti di produttività consigliati per Word

Kutools for Word: Integrazione dell'intelligenza artificiale 🤖, oltre 100 funzionalità avanzate consentono di risparmiare il 50% del tempo di gestione dei documenti.Scarica gratis

Office Tab: introduce le schede simili a browser in Word (e altri strumenti di Office), semplificando la navigazione tra più documenti.Scarica gratis


freccia blu freccia destra Cambia virgolette semplici in virgolette ricci con Trova e sostituisci

Scheda Office: porta le interfacce a schede in Word, Excel, PowerPoint...
ot parola centrale annuncio 100
Migliora il tuo flusso di lavoro ora.      Scopri di più       Scarica gratis

Prima di applicare Trova e sostituisci, dovresti andare a Opzioni di correzione automatica per deselezionare il file "Virgolette semplici" con "virgolette intelligenti" Casella di controllo.

In Word 2003, Opzioni di correzione automatica è sotto il Strumento bar. E in Word 2007, applicando Opzioni di correzione automatica cliccando  > Opzioni > proofing > Opzioni di correzione automatica. Qui prendiamo Word 2010/2013 per esempio:

Passo 1. Clic  > Opzione > proofing > Opzioni di correzione automatica > Formattazione automatica durante la digitazionee selezionare "Virgolette semplici" con "virgolette intelligenti" casella di controllo. Vedi screenshot :

Passo 2. Clic Casa > sostituire nel Editing gruppo o premere Ctrl + H da visualizzare Trova e sostituisci finestra di dialogo e inserisci 'or '' in Trova quello che casella e inserisci ' or ''in Sostituire con scatola. Vedi screenshot:

Passo 3. Clic Sostituisci tutto.

Nota: se si desidera sostituire tutte le virgolette inglesi con virgolette semplici, deselezionare "Virgolette semplici" con "virgolette intelligenti" casella di controllo).


freccia blu freccia destra Cambia virgolette semplici in virgolette ricci con VBA

Per sostituire tutte le virgolette semplici con virgolette ricci in Word 2010 utilizzando VBA, fare clic su Compila il > Opzione > proofing e fare clic su Correzione automatica Opzioni e seleziona la "Virgolette semplici" con "virgolette intelligenti" casella di controllo come segue prima. (Note:: se si desidera sostituire tutte le virgolette inglesi con virgolette semplici, deselezionare la casella "virgolette semplici" con "virgolette intelligenti").

Passaggio 1: premere "Alt-F11"Per aprire la finestra di Microsoft Visual Basic for Application;

Passo 2: fare clic Moduli sul inserire scheda, copia e incolla il seguente codice VBA nel file Moduli finestra;

Passaggio 3: quindi fare clic su Correre pulsante per applicare il VBA.

Il seguente VBA consiste nel modificare le virgolette semplici in virgolette ricci:

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 VBA serve a modificare le virgolette inglesi in virgolette semplici:

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

I migliori strumenti per la produttività in ufficio

Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!

🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto  /  Riscrivere il testo  /  Riepilogare i documenti  /  Richiedi informazioni sulla base del documento, tutto all'interno di Word

📘 Padronanza dei documenti: Pagine divise  /  Unisci documenti  /  Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...)  /  Converti in batch in PDF  /  Esporta pagine come immagini  /  Stampa più file contemporaneamente...

Modifica dei contenuti: Trova e sostituisci in batch su più file  /  Ridimensiona tutte le immagini  /  Trasporre righe e colonne della tabella  /  Converti tabella in testo...

🧹 Pulito senza sforzo: Spazza via Spazi extra  /  Interruzioni di sezione  /  Tutte le intestazioni  /  Caselle di testo  /  Collegamenti ipertestuali  / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...

Inserti creativi: Inserisci Mille separatori  /  Caselle di controllo  /  Pulsanti di scelta  /  QR Code  /  Codice a barre  /  Tabella della linea diagonale  /  Didascalia dell'equazione  /  Didascalia immagine  /  Didascalia  /  Immagini multiple  / Scopri di più nella Inserisci gruppo...

???? Selezioni di precisione: Individuare pagine specifiche  /  con tabelle  /  forme  /  paragrafi di intestazione  / Migliora la navigazione con Scopri di più Seleziona funzionalità...

Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo  /  inserire automaticamente testo ripetitivo  /  passare senza problemi da una finestra all'altra del documento  /  11 strumenti di conversione...

👉 Vuoi provare queste funzionalità? Kutools per Word offre a Prova gratuita 60-day, senza limitazioni! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations