Word’de düz tırnak işaretlerini kıvrımlı tırnaklara nasıl dönüştürürsünüz?

Normalde Microsoft Word, yazarken düz tırnak işaretlerini otomatik olarak kıvrımlı (akıllı veya tipografik) tırnak işaretlerine dönüştürür. Ancak bu özellik devre dışıysa, hem tek hem de çift tırnak işaretleri belgenizde düz olarak görünebilir. Word’de düz tırnakları kıvrımlıya ya da tam tersini yapmak için size bazı pratik ipuçları sunuyoruz.

Düz tırnak işaretlerini Bul ve Değiştir ile kıvrımlı tırnak işaretlerine dönüştürme

Düz tırnak işaretlerini VBA ile kıvrımlı tırnak işaretlerine dönüştürme

---

Düz tırnak işaretlerini Bul ve Değiştir ile kıvrımlı tırnak işaretlerine dönüştürme

Bul ve Değiştir uygulamadan önce, Bul ve Değiştir bölümünden Otomatik Düzeltme Seçenekleri’ne gidip "Düz tırnak işaretlerini akıllı tırnak işaretleriyle değiştir" seçeneğinin onay kutusundaki işaretini kaldırmanız gerekir.

Adım 1. Dosya > Seçenekler > Dilbilgisi ve Yazım > Otomatik Düzeltme Seçenekleri > Yazarken Otomatik Biçimlendir sekmesine tıklayın ve "Düz tırnak işaretlerini akıllı tırnak işaretleriyle değiştir" seçeneğinin onay kutusunu işaretleyin. Ekran görüntüsüne bakın.

Adım 2. Giriş > Değiştir düğmesine Düzenleme grubundan tıklayın ya da Ctrl + H tuşlarına basarak Bul ve Değiştir iletişim kutusunu açın. Ardından ‘ veya ‘’ ifadelerini Bul kutusuna; ‘ veya ’’ ifadelerini ise Değiştir kutusuna yazın. Ekran görüntüsü:

Adım 3. Tümünü Değiştir'e tıklayın.

Not: Tüm kıvrımlı tırnak işaretlerini düz tırnak işaretleriyle değiştirmek istiyorsanız, lütfen "Düz tırnak işaretlerini akıllı tırnak işaretleriyle değiştir" seçeneğinin işaretini kaldırın (Onay Kutusu).

---

Düz tırnak işaretlerini VBA ile kıvrımlı tırnak işaretlerine dönüştürme

Word'de tüm düz tırnak işaretlerini VBA kullanarak 2010 kıvrımlı tırnak işaretlerine dönüştürmek için öncelikle aşağıdaki gibi Dosya > Seçenekler > Dilbilgisi ve Yazım bölümüne gidip Otomatik Düzeltme Seçenekleri penceresini açın ve "Düz tırnak işaretlerini akıllı tırnak işaretleriyle değiştir"seçeneğini işaretleyin. ()Not: Tüm kıvrımlı tırnak işaretlerini düz tırnak işaretleriyle değiştirmek istiyorsanız lütfen "Düz tırnak işaretlerini akıllı tırnak işaretleriyle değiştir" seçeneğinin işaretini kaldırın.)

Adım 1: Microsoft Visual Basic for Applications penceresini açmak için “Alt-F11” tuşlarına basın;

Adım 2:Modülseçeneğine Eklesekmesinden tıklayın ve aşağıdaki VBA kodunu Modülpenceresine kopyalayıp yapıştırın;

Adım 3: Ardından VBA'yı uygulamak için Çalıştır düğmesine tıklayın.

Aşağıdaki VBA kodu, düz tırnak işaretlerini kıvrımlı tırnak işaretlerine dönüştürür:

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

Aşağıdaki VBA kodu, kıvrımlı tırnak işaretlerini düz tırnak işaretlerine dönüştürür:

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

---