farklı karakterli ara-bul-değiştir

[hamit70]

merhaba,
excel veya word'de iç içe yazılmış türkçe ve arapça karakterli yazıları ara-bul-değiştir özelliğini kullanarak:
1.arapça karakterleri mesela arial-15,
2.türkçe karakterleri mesela times new roman-14 yapmak istiyorum.
metin oldukça uzun kabul edelim.
tek tek biçim boyası ile yapmaktansa bunun için bir gelişmiş ara-değiştir seçeneği veya macro yapabilir miyiz?
teşekkürler.

 

[hamit70]

yardım edecek yok mu?

 

[Korhan Ayhan]

Küçük bir örnek dosya ekleyip yapmak istediğiniz işlemi açıklar mısınız?

 

[hamit70]

öncelikli olarak teşekkür ederim.
ekte dosyanın çok kısa bir bölümünü copy-paste yaptım.
sıkıntımı dile getiriyorum.
metinde bulunan arapça karakterler arial-12 formatında olduğu için üstündeki ve altındaki ْ ِ ٍ ’ , َ ً ُ ٌ gibi işaretler tam olarak görünmüyor.
benim isteğim metinde bulunan bu arapça karakterlerini başka bir formata mesela arabic typesetting ya da hasenat fonda çevirmek ve 16lık yapmak.
bilmem anlatabildim mi? teşekkürler.

 

[hamit70]

Küçük bir örnek dosya ekleyip yapmak istediğiniz işlemi açıklar mısınız?

dosya ekte.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

1000-2500 değerleri arapça karakterleri ifade ediyor. Tam kod karşılığını bilmediğim için aralığı geniş tuttum. Umarım işinize yarar.

Sub ARAPCA_KARAKTERLERI_DUZENLE()
    On Error Resume Next
    For X = 1000 To 2500
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.Font.Size = 16
        Selection.Find.Replacement.Font.Name = "Arabic Typesetting"
        With Selection.Find
            .Text = ChrW(X)
            .Replacement.Text = ChrW(X)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .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

 

[hamit70]

teşekkürler deneyeceğim.word 2013 yüklemiştim. silip 2003 ile deneyim.kolay gelsin.

 

[hamit70]

denedim.ekte iki dosya mevcut.denenmiş son ekli olan dosyada eski arapça harfler değişti ancak üstün esre gibi seslendirme işaretleri kayboldu.bu şekilde bir arap okuyabilir ancak ben okuyamam.yardımlarınızın devamını bekliyorum.teşekkürler.

 

[hamit70]

bir arkadaşıma da aynı soruyu sordum aşağıdaki makro ile işlem tamam.
Sub Makro1()
On Error Resume Next
Dim i, sayim As Integer
sayim = ActiveDocument.Content.Words.Count
For i = 1 To sayim
If ActiveDocument.Content.Words(i).LanguageID = 1025 Then
With ActiveDocument.Content.Words(i)
.Font.SizeBi = 16
.Font.NameBi = "HASENAT"
End With
End If
Next

MsgBox "İşleminiz tamamlanmıştır", vbInformation


End Sub
ilginiz için teşekkürler.

 

[Filose]

Bul Değiştir Hakkında

Korhan Bey Merhaba,

Bu sitede bulduğum Ekteki Makroyu çalıştırdığımda değiştir dediğim kelimeyi yerine koyduğu hücrenin önce tamamını silsin sonra değişecek kelimeyi yazsın.

Kısaca sadece değiştirdiği kelime hücreye konulsun.

Emeğinize şimdiden teşekkür ederim.
Saygılar,

Ahmet