Wordde türkce karakterleri kaldırmak istiyorsunuz yada arapca metinleri cıkarmak istiyorsunuz asağıdaki makro komutunu kullanarak yapabilirsiniz.

Sub buldegistir()
'
' buldegistir Makro
'
'
    
    Dim Bul(), Duzelt()
    Bul = Array("a", "b", "c", "ç", "d", "e", "f", "g", "ğ", "h", "ı", "i", "j", "k", "l", "m", "n", "o", "ö", "p", "r", "s", "ş", "t", "u", "ü", "v", "y", "z", "â", "î", "û", "İ")
    
    Duzelt = Array("")
    Application.DisplayAlerts = False

    Dim i As Integer
    i = 0
    
    For Each Value In Bul
            With ActiveDocument.Content.Find
            .Text = Bul(i)
            .Replacement.Text = Duzelt(0)
            .Execute Replace:=wdReplaceAll
        End With
        i = i + 1
        Next


    Application.DisplayAlerts = True


End Sub