İstenmeyen karakter

[ilhanx]

Merhaba

Elimde 400 sayfalık bir yazı var,içerisi istenmeyen bir çok karakter dolu [%% ,^,&,/,',=,} v.b]
Ayrı,ayrı bul değiştir yap zaman alıyor ve hata da yapabiliyorum
Tek sefer de hepsini bulup silebileceğim bir makro varmı?


İlginize şimdiden teşekkürler

 

[Korhan Ayhan]

Merhaba,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu kullanabilirsiniz. Dizideki karakterlere istediğiniz kadar ekleme yapabilirsiniz.

Option Explicit
 
Sub DEĞİŞTİR()
    Dim Eski_Karakter(), X
 
    Eski_Karakter = Array("%", "^", "&", "/", "'", "=", "?")
 
    For X = 0 To UBound(Eski_Karakter)
        With Selection.Find
            .Text = Eski_Karakter(X)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ilhanx]

Merhaba,

Forumumuza hoşgeldiniz.

Aşağıdaki kodu kullanabilirsiniz. Dizideki karakterlere istediğiniz kadar ekleme yapabilirsiniz.

Option Explicit
 
Sub DEĞİŞTİR()
    Dim Eski_Karakter(), X
 
    Eski_Karakter = Array("%", "^", "&", "/", "'", "=", "?")
 
    For X = 0 To UBound(Eski_Karakter)
        With Selection.Find
            .Text = Eski_Karakter(X)
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

İlgilerinize emeklerine teşekkürler,sağolun