Word - Array komutu ile bul değiştir.

[necati]

Merhabalar,

Aşağıdaki koddaki hata nedir acaba. Teşekkürler.

Sub Hataduzelt()
Dim Bul, Duzelt As Variant

Bul = Array(ç, ğ, ı, ö, ş, ü)
Duzelt = Array(c, g, i, o, s, u)
For i = 0 To 6
    With Selection.Find
        Bul , ReplaceWith:=Duzelt, Format:=True, _
        Replace:=wdReplaceAll
    End With

Next i
End Sub

 

[Haluk]

Sub Hataduzelt_R()
    Dim Bul(), Duzelt()
    Bul = Array("ç", "ğ", "ı", "ö", "ş", "ü")
    Duzelt = Array("c", "g", "i", "o", "s", "u")
    Application.DisplayAlerts = False
    For i = 0 To 5
        With ActiveDocument.Content.Find
            .Text = Bul(i)
            .Replacement.Text = Duzelt(i)
            .Execute Replace:=wdReplaceAll
        End With
    Next
    Application.DisplayAlerts = True
End Sub

 

[necati]

Teşekkürler...

 

[fatihsun]

@Haluk
With ActiveDocument.Content.Find satırında takılıyor.
Örnek yükler misin?

 

[necati]

Merhabalar,
Ben word 2007 de herhangi bir türkçe belgede denedim, hiçbir problem döndürmedi.
Kolay gelsin..

 

[fatihsun]

Ben Excell'de denediğim için hata veriyor.
Haklısınız macro Word için yazılmış.
Denedim bende de çalışıyor.

Teşekkürler.