uzun bir metin

[seyficetin]

merhaba arkadaşlar,
word ile yazılmış oldukça uzun bir metinde düzenleme yaparken sadece büyük harflerle yazılmış ara başlıkları bold+14 yapmak istiyorum.
bu konuda bilgi verecek arkadaşlara şimdiden teşekkür ederim.

 

[Haluk]

Hazırladığım aşağıdaki kod, sorununuzu çözecektir.

Sub Test()
    ' Raider ®
    For i = 1 To ActiveDocument.Paragraphs.Count
        If ActiveDocument.Paragraphs(i).Range.Case = wdUpperCase Then
            With ActiveDocument.Paragraphs(i).Range
                .Bold = True
                .Font.Size = 14
            End With
        End If
    Next
End Sub