اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

برقش

الخبراء
  • Content count

    494
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

17 Good

2 متابعين

عن العضو برقش

  • الرتبه
    خبير وورد

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    translator

Contact Methods

  • ICQ
    0

اخر الزوار

542 زياره للملف الشخصي
  1. دمج المراسلات في الوورد

    انظر هنا. ولكن استخدم في حالتك: \# "0.0" بدلاً من: \# "0.00"
  2. دمج المراسلات

    احذف «Next Record» في أسفل الصفحة.
  3. تغيير الأرقام

    أخي الكريم في الحقيقة، عالم كتابة وحدات الماكرو شاسع للغاية، والإنترنت مليء بالمواقع التي تعلّم 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 يمكنك استخدام أيّ ماكرو من الاثنين لإظهار حدود النص إن لم تكن ظاهرة، ولإخفاء حدود النص (بالماكرو نفسه) إن كانت ظاهرة.
  4. تغيير الأرقام

    في هذه الحال Sub ViewRTL() Options.DocumentViewDirection = wdDocumentViewRtl End Sub Sub ViewLTR() Options.DocumentViewDirection = wdDocumentViewLtr End Sub
  5. تغيير الأرقام

    عذراً ولكن تركت عملي حيثما كنت أستعين ببرامج الأوفيس في كمبيوتر الشركة. لا أملك أوفيس حاليا وعملي الحالي لا يستلزم الأوفيس بل أكتفي بـ الأوفيس أونلاين على الكروم وأحياناً أستعمل ليبر أوفيس. بالنسبة إلى سؤالك، نعرف أن تغيير الوورد للعرض من اليمين إلى اليسار (أو العكس) لا يتم على أساس الصفحة بل على أساس الفقرة. لذا أعتقد أنه يجب أن يتضمن الماكرو كود تحديد كامل النص أولاً ثم تغيير العرض. لجعل العرض إلى اليمين Sub ToRtl() Selection.WholeStory Selection.RtlPara End Sub لجعل العرض إلى اليسار Sub ToLtr() Selection.WholeStory Selection.LtrPara End Sub يمكن الحصول على ذلك من خلال تسجيل الماكرو.
  6. تغيير الأرقام

    استعمل الماكرو التالي لتحويل خيار الأرقام إلى "عربية": 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
  7. اختصار لتباعد الأحرف

    اعتمادا على الماكرو المنشور في هذه الصفحة https://msdn.microsoft.com/en-us/library/office/ff195646.aspx وبعد إدخال بعض التعديلات عليه، جرّب وحدتَي الماكرو أدناه لتباعد الأحرف (الأولى للزيادة والثانية للإنقاص، مع العلم أن الوحدتين هما للتباعد لا للموضع). ملاحظة: عليك اختيار النص قبل تشغيل الماكرو. إن نسيت تحديد نص وشغّلت الماكرو، فستظهر رسالة بالإنكليزية تطلب منك تحديد النص أولا. Sub IncreaseFontSpacing() If Selection.Type = wdSelectionNormal Then Selection.Font.Spacing = Selection.Font.Spacing + 0.1 Else MsgBox "You need to select some text." End If End Sub Sub DecreaseFontSpacing() If Selection.Type = wdSelectionNormal Then Selection.Font.Spacing = Selection.Font.Spacing - 0.1 Else MsgBox "You need to select some text." End If End Sub
  8. تباعد الأسطر

    أظن أنه يكفي أن نأخذ جملة من الماكرو الثالث ونضعها في وحدتي الماكرو الأولى والثانية. وهكذا تحوّل وحدتا الماكرو التباعد إلى "تام" وفي نفس الوقت يزيد/ينقص التباعد نصف نقطة. النتيجة هي التالية: Sub LineSpaceExactlyIncrease() On Error Resume Next With Selection.ParagraphFormat .LineSpacingRule = wdLineSpaceExactly .LineSpacing = .LineSpacing + 0.5 End With End Sub Sub LineSpaceExactlyDecrease() On Error Resume Next With Selection.ParagraphFormat .LineSpacingRule = wdLineSpaceExactly .LineSpacing = .LineSpacing - 0.5 End With End Sub
  9. تباعد الأسطر

    أما إذا أردت ماكرو لرقم تباعد محدد، فإليك هذا الماكرو الذي يفترض أنك تريد تباعدا تاما من 24 نقطة (يمكنك تغيير الرقم كما تشاء) Sub LS() With Selection.ParagraphFormat .LineSpacingRule = wdLineSpaceExactly .LineSpacing = 24 End With End Sub
  10. تباعد الأسطر

    لست خبيرا بالماكرو ولكن وجدت في هذه الصفحة https://social.msdn.microsoft.com/Forums/office/en-US/79855849-4809-4777-8a47-2dec56a1313c/macros-to-change-line-and-paragraph-spacing وحدتَي ماكرو قد تفيدانك. الأولى لزيادة التباعد بين الأسطر نصف نقطة والثانية لإنقاص التباعد نصف نقطة Sub IncreaseLineSpace() On Error Resume Next With Selection.ParagraphFormat .LineSpacing = .LineSpacing + 0.5 End With End Sub Sub DecreaseLineSpace() On Error Resume Next With Selection.ParagraphFormat .LineSpacing = .LineSpacing - 0.5 End With End Sub طبعا يمكنك صنع اختصار للوحدتين في شريط أدوات الوصول السريع والنقر على الزرين لزيادة / إنقاص التباعد نصف نقطة مع كل نقرة.
  11. مشكلة في بحث اقوم بتنضيده

    في مربّع البحث والاستبدال (CTRL+H)، اضغط على زر "المزيد". في أسفل المربّع المتوسّع انقر على "خاص". ومنه اختر "فاصل أسطر يدوي". ستظهر ^l في مربّع البحث. إن أردت إزالة كلّ هذه الفواصل، فعليك إبقاء خانة "استبدال بـ" فارغة ثمّ النقر على "استبدال الكل". أما إذا أردت الاحتفاظ بالفقرات، فيمكنك أن تنقر في خانة "استبدال بـ"، ثمّ تنقر من جديد على زر "خاص" مع اختيار "علامة الفقرة" هذه المرة. ستظهر عندئذ ^p في تلك الخانة. بعد ذلك انقر على "استبدال الكل". أما إذا أردت الاكتفاء بإزالة هذا الخط الطويل ولا يهمك الإبقاء على ضبط المحاذاة، فيمكنك اعتماد طريقة الأخ hat.
  12. عموما يوسّع الوورد الفراغات بين الكلمات لملء الأسطر عند اعتماد "الضبط". ويحدث أحيانا أن تبدو هذه الفراغات كبيرة جدا. الحل هو اختيار أي من الثلاثة justify low justify medium justify high (بالعربية: كشيدة صغيرة، كشيدة متوسطة، كشيدة كبيرة) من ضمن سهم زر الضبط. فبهذه الطريقة يضيف الوورد "كشيدات" (أو تطويلات) قد تفيد في جعل الفراغات أصغر
  13. افتح مربع البحث والاستبدال CTRL+H في خانة البحث (الأولى) اضغط في لوحة المفاتيح على CTRL+I دون أن تكتب شيئاً فيها. سترى عبارة توضح أن البحث هو للحروف المائلة. في خانة الاستبدال، اضغط مرتين في لوحة المفاتيح على CTRL+I أيضاً دون أن تكتب شيئاً فيها. سترى عبارة توضح أن الاستبدال هو بما ليس مائلاً إن أردت الاستبدال دفعة واحدة، فانقر على استبدال الكل
  14. كيفيه طباعة صفحتان على ورقة واحدة

    هناك عدة طرق لفعل ذلك ولكن سأشرح الطريقة التي لا تستلزم برامج مدفوعة. ليتك حددت إصدارة الأوفيس لديك. سأفترض أن الأوفيس عندك يتيح الطبع إلى PDF وسأعتمد في شرحي على الأوفيس 2013 (بالإنجليزية)، ولكن لا أعرف مدى انطباقه على الإصدارات الأسبق. افتح المستند في الوورد، انقر على File في الأعلى ثم Export. ومن هناك اختر Create PDF/XPS Document. ثم اضغط على زر Create PDF/XPS ثم Publish. وهكذا يصير عندك ملف PDF. افتح هذا الملف ببرنامج Adobe Reader. ومن القائمة File اختر Print. حدد اسم الطابعة من القائمة أمام Printer. ثم انزل إلى القسم Page Sizing & Handling واضغط على زر Multiple. مقابل Page per sheet اجعل إعداداتك هكذا: Custom 1 by 2 وأيضاً، Page order: Vertical Orientation: Portrait ثم اضغط على Page Setup في الأسفل واختر A4 من القائمة أمام Size. بعد إغلاق هذه النافذة اطبع. لا أستطيع تأكيد النتيجة لأنه لا طابعة عندي. لكن الأمر نجح معي عند الطباعة إلى PDF.
  15. أترى الزر المسمى "تظليل"، الذي له شكل دلو مائل، ضمن القسم "فقرة" في الشريط؟ حدد كامل النص وانقر على السهم إلى اليسار من ذلك الزر واختر "بلا لون".
×