Word belgesinde yorum metninin yazı boyutu nasıl değiştirilir?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, Word belgesindeki yorum metninin yazı boyutunu büyütmek istiyorsanız ne yapabilirsiniz? Bu makale, bu sorunu çözmek için size iki yöntemi gösterecektir.

Word’de yerleşik işlevle yorumun Yazı Boyutu değiştirme

Yorumun Yazı Boyutu VBA koduyla değiştirme

---

Word’de yerleşik işlevle yorum baloncuğunun Yazı Boyutu değiştirme

Word’de Tüm Stiller bölmesinden doğrudan baloncuk metninin yazı boyutunu değiştirebilirsiniz. Aşağıdaki adımları uygulayın.

1. Ctrl+Alt+Shift+S tuşlarına basarak Stiller bölmesini açın.

2. Stiller bölmesinde, Seçenekler öğesine tıklayın. Ekran görüntüsüne bakın:

3. Açılan Stil Bölmesi Seçenekleri penceresinde, Tüm stiller seçeneğini Gösterilecek stilleri seç listesinden seçin.

4. Ardından Tamam düğmesine tıklayarak Stiller bölmesine dönün. Aşağı kaydırın, Baloncuk Metni satırını bulun, açılır liste okuna tıklayarak listeyi genişletin ve ardından Değiştir seçeneğine tıklayın. Ekran görüntüsüne bakın:

5. Stili Değiştir penceresinde, aşağıdaki ekran görüntüsünde gösterildiği gibi Biçimlendirme bölümünden ihtiyacınız olan yazı boyutunu seçin ve ardından Tamam düğmesine tıklayın.

6. Stiller bölmesini kapatın.

Böylece tüm yorum baloncuklarının yazı boyutu, belirttiğiniz şekilde değişecektir.

Not: Bu ayar, gelecekteki tüm yorumlar için geçerli olacak.

---

Yorum baloncuğunun Yazı Boyutu VBA koduyla değiştirme

Bu bölüm, Word belgesindeki yorum baloncuklarının yazı boyutunu değiştirmenize yardımcı olacak bir VBA kodunu tanıtacaktır.

1. Yorum baloncuğunun yazı boyutunu değiştireceğiniz belgede, Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Pencerede, Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Word’de yorum baloncuğunun Yazı Boyutu değiştirme

Sub SetCommentTextStyle()
'Updated by ExtendOffice 20181112
    Dim objComment As Comment
    Dim objDoc As Document
    Dim strFontName As String
    Dim strFontSize As String 
    Set objDoc = ActiveDocument
    strFontName = InputBox("Enter text font name here: ", "Font name")
    strFontSize = InputBox("Enter font size here: ", "Font size") 
    With objDoc
      For Each objComment In .Comments
        objComment.Range.Font.Name = strFontName
        objComment.Range.Style = ActiveDocument.Styles("Balloon Text Char")
      Next objComment
    End With
    ActiveDocument.Styles("Balloon Text").Font.Size = Val(strFontSize)
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın.

4. İlk olarak Kutools for Word iletişim kutusunda, yorumlarınız için yeni bir yazı tipi girin ve Tamam düğmesine tıklayın.

5. İkinci Kutools for Word iletişim kutusunda, ihtiyacınız olan yazı boyutunu girin ve Tamam düğmesine tıklayın.

Böylece tüm yorum baloncuklarının yazı boyutu, Geçerli Belge’de belirttiğiniz şekilde değişecektir.