Word Begesindeki tümü büyük harfli kelimeleri kalın yapmak

[dumanibo]

Merhaba,

Word belgesindeki metindeki tümü BÜYÜK harflerden oluşan kelimeleri arayıp bulacak ve bunların fontunu kalın ve renkli yapacak bir makro nasıl yazılabilir?

(Mesela yukarıdaki paragraftaki BÜYÜK kelimesini kalın ve kırmızı renkte yapacak).

 

[veyselemre]

[vb:1:6e1104edea]Sub tumuyle_buyukharflikelimeleri_bold_kirmizi_yap()
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i).Case = wdUpperCase Then
ActiveDocument.Words(i).Bold = True
ActiveDocument.Words(i).Font.Color = wdColorRed
End If
Next
End Sub[/vb:1:6e1104edea]

 

[dumanibo]

Teşekkürler sayın veyselemre

 

[tirvana]

sn. veyselemre

siyah olmayan yazıların tümü kırmızı olsun (farklı renklendirmeler yapılmış.) şeklinde biçimlendirme için ne yapabiliriz. makro kodu nasıl değişir.

 

[ALPEN]

[vb:1:0299d30964]Sub siyah_olmayanlari_kirmizi_yap()
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i).Font.Color <> wdColorBlack Then
ActiveDocument.Words(i).Font.Color = wdColorRed
End If
Next
End Sub[/vb:1:0299d30964]

 

[tirvana]

teşekkürler sn alpen

 

[tamer42]

[vb:1:6e1104edea]Sub tumuyle_buyukharflikelimeleri_bold_kirmizi_yap()
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i).Case = wdUpperCase Then
ActiveDocument.Words(i).Bold = True
ActiveDocument.Words(i).Font.Color = wdColorRed
End If
Next
End Sub[/vb:1:6e1104edea]

Merhabalar,
buradaki işlemin tersi; "tümü bold harfli kelimeleri büyük harfle yapmak" için nasıl düzenleme yapılabilir?

Teşekkürler, iyi çalışmalar.

 

[Murat OSMA]

Sn. ALPEN artık aramızda değil sanırım.

Olmasını istediğinizi daha açık ve net bir biçimde anlatabilir misiniz ? :dusun:

Şu an tüm harfler; KALIN + BÜYÜK + KIRMIZI görünüyor.

 

[ÖmerBey]

anladığım şeyi istiyorsanız if sorgusu ters çevirilirse istediğiniz olur.

Sub kalinlari_buyut()
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i).Bold = True Then
ActiveDocument.Words(i).Case = wdUpperCase
End If
Next
End Sub

 

[tamer42]

Teşekkürler....

 

[ÖmerBey]

Bu isteğiniz için Word içerisinde bulunan Bul-Değiştir menüsünü kullanabilirsiniz.
Ctrl+H ile bul-değiştir menüsünü açın, Tüm seçenekler diyerek detaylı arama kısmını açın.
Aranan kutucuğunu seçip imleç oradayken en altta yer alan biçim butonuna tıklayıp yazıtipi seçeneğini seçin.
Açılan menüden yazıtipi içerisinden başlıkları seçip tamamı tıklayın.
Yeni değer kısmını seçin.
Yine aşağıdaki biçim içerisinden yazıtipi seçeneğini tıklayın.
Açılan menüden yazıtipi seçeneğinden kırmızı rengi ayarlayın, efektler kısmından da Tümü büyük seçeneğine tik koyup kapatınız.
Tümünü değiştir dediğiniz zaman word programında başlık olarak ayarlanmış tüm metinler kırmızı ve büyük olacaktır.

İkinci isteiğinizde de aranan kısmına "ozan:" yeni değer kısmına da "ozan:" yazıp yeni değer kısmını yukarıdaki şekilde biçim kısmından değiştirerek istediğiniz rengi almasını sağlayabilirsiniz.

 

[ÖmerBey]

Bir konu açıp, örnek dosyayla sorunuzu desteklerseniz yardım edebilecek birileri olacaktır.