word da bul ve yapıştır sorunu

[aybekcan]

efendim bu yazdığım makro "=" işareti dahil sonra gelen 10 karekteri seçip,yerine tekrar "=" yapıştırması gerekiyor.ama yapıştıracağı yeri buluyor fakat üzerine "=" yapıştırmıyor.ben nerede hata yapıyorum?sizlerden yardım rica ediyorum.

With Selection.Find
.ClearFormatting
.MatchCase = False
.Execute findtext:="="
End With
Selection.MoveRight Unit:=wdCharacter, Count:=9, Extend:=wdExtend
Selection.Find.Replacement = "="

 

[leumruk]

Selamlar,
Makronuzu aşağıdaki şekilde düzenlersek istediğiniz oluyor. Daha kapsamlı bir şey istiyorsanız, ayrıntılı bilgi veriniz.

With Selection.Find
.ClearFormatting
.MatchCase = False
.Execute findtext:="="
End With
Selection.MoveRight Unit:=wdCharacter, Count:=9, Extend:=wdExtend
Selection.Text = "="

 

[leumruk]

Aşağıdaki şekilde de aradığınız ölçütlere uygun tüm verileri toplu halde değiştirirsiniz. Aramak istediğiniz karakter sayısı kadar "=" sembolünü de hesaba katarak soru işareti eklemelisiniz.

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "=?????????"
        .Replacement.Text = "="
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With

 

[aybekcan]

Hocam çok teşekkür ederim.hemen deneyeceğim.

 

[aybekcan]

Hocam tekrar çok teşekkür ederim,tam da olması gerektiği gibi çalıştı.sağ olun..

 

[leumruk]

Hocam tekrar çok teşekkür ederim,tam da olması gerektiği gibi çalıştı.sağ olun..

Rica ederim.