DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhabalar,[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]
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