أساتذة الماكرو

[asad41163]

بسم الله الرحمن الرحيم

 

أريد أن أعمل ماكرو تتحرك فيه المشيرة إلى آخر الكلمة التالية كلما ضغطت على المفتاح المخصص للماكرو

 

 

بشرط إذا وجد الحرف الأخير من الكلمة [ ى ] أو  [ ا ] تتحرك المشيرة حركة واحدة للخلف..

 

لأن هذين الحرفين لا توضع عليهما علامات التشكيل...

 

 

بارك الله فيكم وشكر لكم

تم تعديل ديسمبر 16, 2014 بواسطه asad41163

[asad41163]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته:

 

سجلت هذا الكود الذي أمام حضراتكم: والذي عند كتابة الكسرة على آخر الكلمة الحالية ينتقل إلى آخر الكلمة التالية..

Sub K()

'

' K Macro

'

'

    Application.Keyboard (3073)

    selection.TypeText Text:=ChrW(1616)

    selection.MoveRight Unit:=wdWord, Count:=2

    selection.MoveLeft Unit:=wdCharacter, Count:=1

 

End Sub

 

 

في الخطوة الأخيرة تتحرك المشيرة مسافة واحدة للخلف لتقف على الحرف الأخير للكلمة التالية...

ما أريده هو أن تكون الحركة لمسافتين إذا وجد الحرف الأخير [ى] أو [ا]

 

أرجو ممن فتح الله عليه بالعلم والخبرة أن يتفضل مشكورًا بالفائدة...

 

جزاكم الله خيرًا..، والسلام عليكم ورحمة الله وبركاته