word büyük harfleri silinmesi

[solidworks]

sayfadaki cümleler arasında büyükharfli kelimeler var ben sadece büyük harfli kelimelerin silinmesini istiyorum nasıl yaparım

 

[leumruk]

Merhaba,
Verdiğim kodu deneyin. Muhtemelen isteğinizi karşılayacaktır.

Sub dene()
For Each byk In ActiveDocument.Range.Words
k = "ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZ"
If InStr(1, k, Left(byk, 1), vbTextCompare) > 0 Then
    If UCase(byk) = byk Then byk.Text = ""
End If
Next
Msgbox "İşlem tamam."
End Sub