تغيير الأرقام

[مصطفى شاهين]

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

تغيير الأرقام في وورد تأخذ عدة مراحل (ملف، خيارات، خيارات متقدمة، تبويب إظهار محتوى المستند، الأرقام ومن ثم اختيار [عربية، هندية، سياق، نظام].

سؤالي: هل يمكن بضغطة زر التحكم في اختيار الأرقام.

مع فائق الاحترام والتقدير

 

[برقش]

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "عربية":

Sub NumeralToArabic()
Options.ArabicNumeral = wdNumeralArabic
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "هندية":

 

Sub NumeralToHindi()
Options.ArabicNumeral = wdNumeralHindi
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "سياق":

Sub NumeralToContext()
Options.ArabicNumeral = wdNumeralContext
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "نظام":

Sub NumeralToSystem()
Options.ArabicNumeral = wdNumeralSystem
End Sub

 

[مصطفى شاهين]

غمرتني بلطفك عزيزي برقش

وفقكم الله لعمل الخير

دعاؤنا لله سبحانه وتعالى أن يَمنَّ عليكم بوافر الصحة والعافية

دمتم بخير

[مصطفى شاهين]

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

هل يمكن بنفس الطريقة (كود) تغيير عرض صفحة الوورد من اليمين لليسار ومن اليسار لليمين.

مع الاحترام والتقدير

[مصطفى شاهين]

بانتظار الرد بخصوص تغيير عرض صفحة الوورد.

مع الاحترام والتقدير

[برقش]

عذراً ولكن تركت عملي حيثما كنت أستعين ببرامج الأوفيس في كمبيوتر الشركة. لا أملك أوفيس حاليا وعملي الحالي لا يستلزم الأوفيس بل أكتفي بـ الأوفيس أونلاين على الكروم وأحياناً أستعمل ليبر أوفيس.

بالنسبة إلى سؤالك، نعرف أن تغيير الوورد للعرض من اليمين إلى اليسار (أو العكس) لا يتم على أساس الصفحة بل على أساس الفقرة. لذا أعتقد أنه يجب أن يتضمن الماكرو كود تحديد كامل النص أولاً ثم تغيير العرض.

لجعل العرض إلى اليمين

Sub ToRtl()
    Selection.WholeStory
    Selection.RtlPara
End Sub

لجعل العرض إلى اليسار

Sub ToLtr()
    Selection.WholeStory
    Selection.LtrPara
End Sub

يمكن الحصول على ذلك من خلال تسجيل الماكرو.

[مصطفى شاهين]

بداية، دعاؤنا لله سبحانه وتعالى أن يعوضكم خيراً، والأرزاق جميعها من عند الله سبحانه وتعالى، وإن شاء الله خير لكم.

أشكرك على ردكم، ولكن المطلوب كما هو موضح بالرسم.

مع الاحترام والتقدير

[برقش]

في هذه الحال

Sub ViewRTL()
Options.DocumentViewDirection = wdDocumentViewRtl
End Sub

Sub ViewLTR()
Options.DocumentViewDirection = wdDocumentViewLtr
End Sub

 

[مصطفى شاهين]

هذا هو المطلوب بالضبط.

أشكرك يا عزيزي

تمنياتنا لكم بدوام الصحة والعافية.

مع جزيل الاحترام والتقدير

[مصطفى شاهين]

أسعد الله أوقاتكم بكل خير

على نفس الأسلوب السابق، هل يمكن بضغطة زر التحكم في اختيار إظهار وإخفاء حدود النص.

وإن لم يكن لديكم مانع بإطلاعي على الموقع الذي تستندون إليه لأستفيد في أمور أخرى.

مع فائق الاحترام والتقدير

[Yasser Fathi Albanna]

في ٢٦‏/١٠‏/٢٠١٥ ٩،٠٢،٥٥, برقش said:

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "عربية":

Sub NumeralToArabic()
Options.ArabicNumeral = wdNumeralArabic
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "هندية":

 

Sub NumeralToHindi()
Options.ArabicNumeral = wdNumeralHindi
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "سياق":

Sub NumeralToContext()
Options.ArabicNumeral = wdNumeralContext
End Sub

استعمل الماكرو التالي لتحويل خيار الأرقام إلى "نظام":

Sub NumeralToSystem()
Options.ArabicNumeral = wdNumeralSystem
End Sub

 

[برقش]

أخي الكريم

في الحقيقة، عالم كتابة وحدات الماكرو شاسع للغاية، والإنترنت مليء بالمواقع التي تعلّم VBA وكتابة الماكرو. كذلك توجد كتب متخصصة كثيرة حول هذا الموضوع. جرّبت في الماضي تعلّم VBA ولكن وجدت نفسي أنسى ما أتعلمه لعدم استعمالي إياه مطلقا. فعملي لا يتطلب مني تعلمه، وبرنامج الوورد هو هواية عندي فحسب.

لكي أجد ما تطلبه، اكتفيت بالبحث في غوغل عن:
toggle show text boundaries word vba
وإذا به يعطيني الجواب في أول نتيجة بحث على هذه الصفحة:
https://msdn.microsoft.com/en-us/library/office/ff604039(v=office.14).aspx

وهي تتضمن طريقتين لكتابة هذا الماكرو:
Sub ToggleTextBoundaries1()
ActiveDocument.ActiveWindow.View.ShowTextBoundaries = Not ActiveDocument.ActiveWindow.View.ShowTextBoundaries
End Sub

Sub ToggleTextBoundaries2()
    With ActiveDocument.ActiveWindow.View
        .ShowTextBoundaries = Not .ShowTextBoundaries
    End With
End Sub

يمكنك استخدام أيّ ماكرو من الاثنين لإظهار حدود النص إن لم تكن ظاهرة، ولإخفاء حدود النص (بالماكرو نفسه) إن كانت ظاهرة.

[مصطفى شاهين]

مع فائق الاحترام والتقدير لك أخي برقش

أشكرك على حُسن تعاونك الدائم معي.

دمتم بخير

[الحدادي]

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

 

اخي مصطفى شاهين

سؤال:  ممكن نتعلم منك، لماذا هذه الاسئلة عن الاكواد وما الغرض منها؟

[مصطفى شاهين]

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

الغرض من معرفة الأكواد هي اختصار الوقت في الوصول إلى غرضي، بمعنى أنني أضع اختصار للكود على شريط الأدوات وبضغطة زر أصل لما أريد.

دمتم بخير