عبيدالله قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 تمكنت (بحمد الله) من عمل دالة لإعادة تنسيق جزء من النص داخل مربع النص في التقارير أو النماذج تقوم هذه الدالة بتمكين المستخدم التحكم في تنسيق النص أو جزء من النص داخل مربع نص واحد!! كيف؟.. انظر الصورة: بالنسبة للتقارير بالنسبة للنماذج الصيغة العامة: FormatText(TargetText ;FontName ;FontSize ;FontColor ;FontBold ;FontItalic ;FontUnderline ) الشرح: FormatText: اسم الدالة الخاصة بإعادة تنسيق النص TargetText: النص المستهدف لإعادة تنسيقة FontName: اسم الخط ويكتب بين علامتي تنصيص("×××")َ FontSize: حجم الخط ويمكن كتابتها بين علامتي تنصيص أو بدونها FontColor: لون الخط، ويكتب بين علامتي تنصيص ("×××") ويمكن كتابة اسم اللون باللغة الإنجليزية أو كتابة كود اللون FontBold: لجعل النص غامق اكتب -1 سالب واحد أو True FontItalic: لجعل النص مائل اكتب -1 سالب واحد أو True FontUnderline: لتسطير النص (خط تحت النص) اكتب -1 سالب واحد أو True التطبيق: قم باستيراد الوحدة النمطية إلى برنامجك ثم استخدم الدالة. المطلوب: تجربة واختبار الدالة وتطويرها من قبل مشرفي واساتذة واعضاء المنتدى. الوحدة النمطية: Function FormatText(TargetText As String, FontName As String, FontSize As String, FontColor As String, FontBold As Integer, FontItalic As Integer, FontUnderline As Integer) Dim FontB0, FontB1, FontI0, FontI1, FontU0, FontU1 As String If FontBold = True Then FontB0 = "<b>" FontB1 = "</b>" Else FontB0 = "" FontB1 = "" End If If FontItalic = True Then FontI0 = "<i>" FontI1 = "</i>" Else FontI0 = "" FontI1 = "" End If If FontUnderline = True Then FontU0 = "<u>" FontU1 = "</u>" Else FontU0 = "" FontU1 = "" End If FormatText = "<font face=" & FontName & " , size=" & FontSize & " , color=" & FontColor & FontB0 & FontI0 & FontU0 & "" & TargetText & "" & FontU1 & FontI1 & FontB1 & "</font>" End Function النسخة كاملة (2007 وما فوق) FormatText 2007.rar المقابل: الدعاء بالتوفيق. رابط هذا التعليق شارك More sharing options...
أيمن عبادي قام بنشر فبراير 29, 2012 مشاركة قام بنشر فبراير 29, 2012 سلمت يداك أخي xkxkx رابط هذا التعليق شارك More sharing options...
ابوأثير قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 ياليت لو تكون على اوفيس 2003 بارك الله فيك رابط هذا التعليق شارك More sharing options...
youssef103 قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر أبريل 5, 2012 مشاركة قام بنشر أبريل 5, 2012 رائع جدا أخي الكريم ولقد واجهتني مشكلة في المشاركة التالية http://www.officena.net/ib/index.php?showtopic=41241 حيث أريد كود يجعل النص في التقرير على هيئة الضبط (التوزيع) بحيث تكون الأسطر متساوية من الطرفين الأيمن والأيسر فهلا أسعفتني في ذلك أدام الله عليكم نعمه ظاهرة وباطنة ... رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 5, 2012 مشاركة قام بنشر أبريل 5, 2012 شكراً لك أخي عبيدالله ((وحبذا لو رأينا إسمك الطيب مكان رمزك)) رابط هذا التعليق شارك More sharing options...
عبيدالله قام بنشر أبريل 7, 2012 الكاتب مشاركة قام بنشر أبريل 7, 2012 شكرا اخي nart lebzo تم تغيير اسم الظهور انا مشترك في منتدى آخر بنفس اسم (عبيدالله) ولا بأس بأن اكون بنفس الاسم هنا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 7, 2012 مشاركة قام بنشر أبريل 7, 2012 حياك الله يا عبيدالله حللت أهلاً و وطئت سهلاً ... بين إخوتك ................ رابط هذا التعليق شارك More sharing options...
عبيدالله قام بنشر أبريل 7, 2012 الكاتب مشاركة قام بنشر أبريل 7, 2012 لي الشرف للعلم بأني تأسست وتتلمذت في هذا المنتدى الغالي على نفسي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان