Değiştirme

[Çağrıcan]

Merhaba,

Öncellikle bu hizmetiniz için sizlere çok teşekkür ederim.

Bir word dosyasında yer alan < [ $ karakterlerini sırayla ı ğ ş karakterleri olarak değiştiren bir makro programını sizden rica ediyorum.

İyi günler.

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz.

Bu tarz kodları makro kaydet yöntemini kullanarak kendinizde elde edebilirsiniz. Ben bu yöntemi kullanarak aşağıdaki kodu elde ettim. Biraz tabiri caizse traşlıyarak foruma ekledim.

Option Explicit
 
Sub Makro1()
    With Selection.Find
        .Text = "<"
        .Replacement.Text = "ı"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "["
        .Replacement.Text = "ğ"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "$"
        .Replacement.Text = "ş"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub