Belli karakterden öncekileri büyük harfe çevirme

[dumanibo]

Merhaba,

Bir Word dosyasında belli bir karakterden (mesela "(" karakteri) önceki karakterleri büyük harfe çevirmek için bir makro istiyorum? Böyle bir makroyu nasıl yazabiliriz?

 

[dumanibo]

Cevabı da kendim vereyim. Aşağıdaki makro her paragraftaki ":" karakterinden önceki karakterleri seçer ve büyük harfe çevirir.


Sub Karakter_Buyuk_Harf()

i = 1
j = ActiveDocument.Paragraphs.Count

For i = 1 To j
ActiveDocument.Paragraphs(i).Range.Select
Selection.Find.Execute FindText:=":"
charmoved = Selection.StartOf(Unit:=wdLine, Extend:=wdExtend)
Selection.Range.Case = wdUpperCase

Next i
End Sub