س : كيف احصل على قاءمة الخطوط الموجودة في الجهاز
لاني اريد اعمل تقرير يتحكم المستخدم في نوع الخط
ولازم طبعا يكون الخط من الخطوط الموجودة في الويندوز طبعا
كيف اعرفها عشان أعرضها في قائمة
كيف اعرف الخطوط الموجودة في الجهاز
مغلق
اخوي من قائمة ابداء تذهب الى اعدادات ثم لوحة التحكم تقوم بفتحها فتجد مجلد الخطوط
اما مسار المجلد في الويندوز فهو
C:WINDOWSFONTS
فرض على الناس أن يتوبوا**** لكن ترك الذنوب أوجب
والصبر في النائبات صعب**** لكن فوات الثواب أصعب
والدهر في صرفه عجيب**** لكن غفلة الناس أعجب
وكل ما قد يجي قريب****والموت للعبد من ذاك أقرب
مشكور على الاهتمام
لكن اللي اقصده هو معرفتها برمجيا
يعني البرنامج بنفسه يتعرف عليها ويخليها في قائمة أو في جدول
للرفع
من تلعيمات VBA في الورد عملت الكود :
Sub LoadFonts()
Dim strFont As Variant
Dim AllFonts As String
Dim ThewordObj As Object
Set ThewordObj = CreateObject("word.application")
ThewordObj.Visible = True
For Each strFont In FontNames
If AllFonts = "" Then AllFonts = strFont Else AllFonts = AllFonts & ";" & strFont
Next strFont
Me.cmb1.RowSource = AllFonts
ThewordObj.Quit
Set ThewordObj = Nothing
End Subلكن فيع عيبين
1- يحتاج مرجع Microsoft Word10.0 Object Library
2- يتحاج تشغيل تطبيق Word (((برمجيا)))
ممكن حل ثاني ؟
مثال على الكود
هذا الموضوع مغلق.