Loncat ke daftar isi utama

Bagaimana cara mengubah kutipan langsung menjadi kutipan keriting dalam kata?

Biasanya Microsoft Word akan secara otomatis mengubah tanda kutip lurus untuk kutipan keriting (ahli ortypographer pintar) saat Anda mengetik. Namun jika fitur tersebut dimatikan, tanda petik tunggal dan ganda dapat langsung muncul di dokumen Anda. Berikut adalah tip bagi Anda untuk mengubah tanda kutip lurus menjadi tanda kutip keriting dan sebaliknya di Word.

Ubah kutipan langsung menjadi kutipan keriting dengan Temukan dan Ganti

Ubah kutipan langsung menjadi kutipan keriting dengan VBA


panah gelembung kanan biru Ubah kutipan langsung menjadi kutipan keriting dengan Temukan dan Ganti

Tab Office: Menghadirkan antarmuka tab ke Word, Excel, PowerPoint...
atau kata tengah iklan 100
Tingkatkan alur kerja Anda sekarang.      Baca Selengkapnya       Free download

Sebelum melamar Cari dan Ganti, kamu harus pergi ke Opsi Koreksi Otomatis untuk menghapus centang "Kutipan langsung" dengan "kutipan cerdas" kotak centang

Di Word 2003, Opsi Koreksi Otomatis berada di bawah Alat Bantu batang. Dan di Word 2007, menerapkan Opsi Koreksi Otomatis dengan mengklik  > Opsi > Proofing > Opsi Koreksi Otomatis. Di sini kami mengambil Word 2010/2013 sebagai contoh:

Langkah 1. Klik  > pilihan > Proofing > Opsi Koreksi Otomatis > Format Otomatis Saat Anda Mengetik, Lalu pilih “Kutipan langsung" dengan "kutipan cerdas" kotak centang. Lihat tangkapan layar :

Langkah 2. Klik Beranda > menggantikan dalam Mengedit kelompok atau tekan Ctrl + H menampilkan Cari dan Ganti dialog, dan masuk 'or '' in Temukan apa kotak, dan masuk ' or ''in Ganti dengan kotak. Lihat tangkapan layar:

Langkah 3. Klik Ganti Semua.

Catatan: jika Anda ingin mengganti semua tanda kutip keriting dengan tanda kutip lurus, harap jelaskan "Kutipan langsung" dengan "kutipan cerdas" kotak centang).


panah gelembung kanan biru Ubah kutipan langsung menjadi kutipan keriting dengan VBA

Untuk mengganti semua tanda kutip lurus dengan tanda kutip keriting di Word 2010 dengan menggunakan VBA, silakan klik File> pilihan > Proofing dan klik AutoCorrect Opsi Dan pilih "Kutipan langsung" dengan "kutipan cerdas" centang kotak sebagai berikut pertama. (Note: jika Anda ingin mengganti semua kutipan keriting dengan tanda kutip lurus, kosongkan kotak centang "Kutipan lurus" dengan "Kutipan cerdas").

Langkah 1: Tekan "Alt-F11”Untuk membuka jendela Microsoft Visual Basic for Application;

Langkah 2: Klik Modul pada Menyisipkan tab, salin dan tempel kode VBA berikut ke file Modul jendela;

Langkah 3: Lalu klik Run tombol untuk menerapkan VBA.

VBA berikut ini mengubah kutipan langsung menjadi kutipan keriting:

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

 

VBA berikut adalah mengubah kutipan keriting menjadi kutipan lurus:

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

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus ...

Pengeditan Isi: Temukan dan Ganti Batch di Banyak File   /  Ubah Ukuran Semua Gambar   /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks ...

🧹 Bersih dengan MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

Sisipan Kreatif: Menyisipkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  /  Temukan lebih lanjut di Grup Sisipkan kami

🔍 Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. 👉 Unduh dengan uji coba 30 hari Sekarang 🚀.

 
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