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

البحث في الموقع

Showing results for tags 'الخطوط'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 1 نتيجه

  1. إخوتي الفضلاء نحتاج أحياناً للتعرف على أنواع الخطوط الموجودة على جهاز كل منا ، للحصول على قائمة بأسماء الخطوط المتاحة على جهازك برمجيا مع مثال نصي لنوع الخط ضمن جدول في مستند يتم إنشاؤه حديثا ، نقدم اليوم هذا الحلّ البرمجي. كيفية الاستخدام: فتح مستند Word. اضغط على Alt + F11 لفتح VBE. إدراج وحدة نمطية. (Insert -> module) لصق الكود التالي هناك في يمين الإطار Option Explicit Sub ListAllFonts() Dim oDoc As Word.Document Dim oTable As Word.Table Dim iCnt As Long If MsgBox("Do you wish to build a list?" & vbCr & _ "Building a list on older systems this may take a while" & vbCr & _ vbCr & "Screen may appear frozen" & vbCr & _ "Please wait for the list to complete", _ vbQuestion + vbYesNo, "Built Font list") = vbYes Then Application.ScreenUpdating = False 'Create new doc to list font's Set oDoc = Application.Documents.Add 'Create table of 2 columns and as many rows as there are fontnames Set oTable = oDoc.Tables.Add(Range:=Selection.Range, _ NumRows:=Application.FontNames.Count + 1, _ NumColumns:=2) With oTable 'Create table header With .Cell(1, 1).Range .Font.Name = "Arial" .Font.Bold = True .InsertAfter "Font Name" End With With .Cell(1, 2).Range .Font.Name = "Arial" .Font.Bold = True .InsertAfter "Font Example" End With 'Loop through Fontnames For iCnt = 1 To Application.FontNames.Count 'Add Fontname to cell With .Cell(iCnt + 1, 1).Range .Font.Name = "Arial" .Font.Size = 10 .InsertAfter Application.FontNames(iCnt) End With 'Set Font in Cell to Fontname and insert example text With .Cell(iCnt + 1, 2).Range .Font.Name = Application.FontNames(iCnt) .Font.Size = 10 .InsertAfter "ABCDEFG 1234567890 hijklmnop" End With Next iCnt 'No borders and sort table Ascending .Borders.Enable = False .Sort SortOrder:=wdSortOrderAscending End With End If End Sub إغلاق VBE Alt+ Q أو اضغط على X في الزاوية اليمنى العليا حفظ الملف. اختبار التعليمات البرمجية: من Word، اضغط Alt + F8 لفتح مربع حوار الماكرو. حدد ListAllFonts انقر فوق تشغيل. والمرفق لتوضيح التطبيق والله من وراء القصد وهو حسبي .......... NA_ListInstalledFonts.zip
×
×
  • اضف...

Important Information