türkçe karakter olmasın

[KuTuKa]

yahoo mail da yazı yazarken türkçe karakter kullanıldığında çok bzuk bir şekilde gönderiliyor karşı taraf bunu okuyamıyor.word metni yapıştırsak ve makroyu yapıştırsak türkçe karakterleri yok etse ?

bu şekilde elinde word makrosu olan varmı



Saygılar
Halil Kutuka

 

[Haluk]

Eski bir kodumu bu iş için revize ettim (MS Word - VBA kodu)

Sub Test()

'// Word dokumanında Find - Replace (Bul - Degistir)  //
'//              Raider® - Haziran 2004               //


Dim No As Integer, x As Integer, i As Integer
Dim Msg2 As String
Dim MyArr1()
Dim MyArr2()
MyArr1 = Array("Ğ", "Ü", "Ş", "İ", "Ö", "Ç", "ğ", "ü", "ş", "ö", "ç")
MyArr2 = Array("G", "U", "S", "I", "O", "C", "g", "u", "s", "o", "c")
    Application.ScreenUpdating = False
    For i = LBound(MyArr1) To UBound(MyArr1)
        With Selection.Find
            .ClearFormatting
                .Replacement.ClearFormatting
                       .Text = MyArr1(i)
                            .Replacement.Text = MyArr2(i)
                        .Forward = True
                    .Wrap = wdFindContinue
                .MatchCase = True
                If .Execute Then x = x + 1
            .Execute Replace:=wdReplaceAll
         End With
    Next
    Application.ScreenUpdating = True
    Msg2 = x & " adet  degistirme yapildi."
    MsgBox Msg2, vbInformation, "Rapor !"
End Sub

 

[KuTuKa]

tam bir çeviri yapamadım ama bu makroyu geliştirebilirim.

teşekkürler

 

[Mehmet Şahin]

text değiştirme

Merhaba arkadaşlar, bu koda benimde ihtiyacım oldu. Çalışıyor ancak replace formu açılıyor. Word'de bu form açılmadan bu kod çalışamaz mı? Saygılar...

 

[Mehmet Şahin]

konu çözülmüştür, sağolun.