Merhabalar,
Aşağıdaki koddaki hata nedir acaba. Teşekkürler.
Aşağıdaki koddaki hata nedir acaba. Teşekkürler.
Kod:
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