اذهب الي المحتوي
أوفيسنا

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


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
 
 
في الخطوة الأخيرة تتحرك المشيرة مسافة واحدة للخلف لتقف على الحرف الأخير للكلمة التالية...
ما أريده هو أن تكون الحركة لمسافتين إذا وجد الحرف الأخير [ى] أو [ا]
 
أرجو ممن فتح الله عليه بالعلم والخبرة أن يتفضل مشكورًا بالفائدة...
 
جزاكم الله خيرًا..، والسلام عليكم ورحمة الله وبركاته
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information