bold yapma

[deppocu]

Arkadaşlar çok basit gelebilir ama ben bir türlü beceremedim epeydirde forumda arıyorum bu akdar basit bir konuyu hiç kimse yazmamış sanırı. bana worddeki bir kelimiyi kalın yapmaya yarayan bir kod lazım. ama çok acemiyim bu konuda.

"deneme" yazısını makroya hangi kodu yazarak kalın yapabilirim.

teşekkürler

 

[Yakut]

Sub yazi_kalin_yap()

Selection.Font.Bold = True
End Sub

kalin yapmaya bir cesit kod

 

[deppocu]

Sub yazi_kalin_yap()

Selection.Font.Bold = True
End Sub

kalin yapmaya bir cesit kod

Valla söylediğim gibi ben acemiyim fazlasıyla. Ekte bi word dosyası var ordaki bir kelimeyi bularak kalın yapma kodunu makroya yazabilirseniz çok sevinirim

 

[Yakut]

Sub Taurus_bold()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.Text = "Taurus"

.MatchCase = True
.MatchWholeWord = True
.Format = True

.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub

 

[SER973]

Sn.Deppocu

Word'e bunun için Koda Gerek Yok Diye Düşünüyorum.. BUL-DEĞİŞTİR özelliğini kullanarak yapabilrisiniz. Kısa Yolu CTRL+H tuşlarına basınız Gelen Ekranda

ARANAN : Kısmına Koyu yapmak istediğini Kelimeyi Girin.....
YENİ DEĞER : Kısmınada Aynı Kelimeyi Girdikten sonra...

BİÇİM Sekmesine Tıklayın... Açılan pencereden Yazı Tipini Seçin Menüsünü seçin... Karşınıza Gelen Ekranda Yazı Tipi seçin Karşınıza Gelen Yeni Ekranda ise Stilini Kalın Seçin (BOLD) ve tamam tuşuna tıklayın.. Tekrar ilk Ekrana Gelecek ondan sonra TÜMÜNÜ DEĞİŞTİR'i Tıklarsanız... Sormadan Hepsini değiştirir... DEĞİŞTİr'e tıklarsanız.. Tek Tek Sorarak Değiştirir...

 

[deppocu]

Arkadaşlar bu işimi gördü teşekkür ediyorum. Ayrıca CTRL H olayını biliyorum fakat bu işime yaramayacaktı onun için buna ihtiyacım vardı. Tekrar teşekkürler