Word’de altı çizili metni italik biçimine nasıl dönüştürebilirim?

Bazı durumlarda, Word’de tüm altı çizili karakterleri italik yapmanız veya tam tersini uygulamanız gerekebilir. Peki Word’de tüm altı çizili metni hızlıca italik hâle nasıl getirebilirsiniz? Bu işlemi Word’de aşağıdaki iki pratik yöntemle kolayca gerçekleştirebilirsiniz.

Tüm altı çizili karakterleri Bul ve Değiştir ile italikle değiştirin

Tüm altı çizili karakterleri VBA ile italikle değiştirin

---

Tüm altı çizili karakterleri Bul ve Değiştir ile italikle değiştirin

Adım 1:Giriş>Değiştirseçeneğine tıklayın ya da kısayol tuşlarını kullanın Ctrl + Hve Bul ve Değiştir iletişim kutusunu açın;

Adım 2: Diğer seçenekler düğmesine tıklayarak Arama seçeneklerini görüntüleyin.

Adım 3: İmleci Bul ne kutusuna getirin, Biçim menüsünden Açılır Liste seçeneğine tıklayarak Altı çizili stilini ve altı çizili rengini seçin.

Adım 4: İmleci Değiştir neyle kutusuna getirin, Biçim menüsünden Yazı Tipi seçeneğine tıklayarak açılan listeden Yazı Tipi Stili listesindeki İtalik stilini seçin.

    

Adım 5: Tamam > Tümünü Değiştir seçeneğine tıklayın.

Not:

1. İşlemden önce, Biçimlendirmeyi Temizle seçeneğine tıklayarak Bul ne ve Değiştir neyle kutularında biçimlendirme bilgisi olmadığını doğrulayın.

2. Bu işlem yalnızca altı çizili metni italik yapar; altı çizgiyi kaldırmaz.

---

Tüm altı çizili karakterleri VBA ile italikle değiştirin

Alternatif olarak, altı çizgiyi italikle değiştirmek için VBA kullanabilirsiniz; ancak makrolarla pek aşina değilseniz bu yöntemi önermiyoruz. Aşağıdaki adımları izleyin:

Adım 1: Word'de VBA penceresini açmak için Alt+F11tuşlarına basın;

Adım 2:Modülseçeneğine Eklesekmesinden tıklayın ve VBA kodunu Modülpenceresine ekleyin;

Word'de tüm altı çizili karakterleri italikle değiştirmek için kullanılacak VBA kodu:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Adım 3: VBA kodunu uygulamak için Çalıştırdüğmesine tıklayın (veya)F5 tuşuna basın).

Not:

1. Bu kod yalnızca renksiz tek altı çizgi için uygundur. Kodda yer alan “wdUnderlineSingle” ifadesini diğer Alt Çizgi Stili türleriyle uyumlu hale getirmek için “wdUnderlineDouble” veya “wdUnderlineThick” gibi değerlere değiştirebilirsiniz.

2. Bu kod yalnızca altı çizili metni italik yapar; altı çizgiyi kaldırmaz.

---