هدية: دالة FormatTxet لإعادة تنسيق جزء من النص داخل مربع نص في التقارير والنماذج

[عبيدالله]

تمكنت (بحمد الله) من عمل دالة لإعادة تنسيق جزء من النص داخل مربع النص في التقارير أو النماذج

تقوم هذه الدالة بتمكين المستخدم التحكم في تنسيق النص أو جزء من النص داخل مربع نص واحد!! كيف؟.. انظر الصورة:

بالنسبة للتقارير

بالنسبة للنماذج

الصيغة العامة:

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

المقابل:

الدعاء بالتوفيق.

[أيمن عبادي]

سلمت يداك أخي xkxkx

[ابوأثير]

ياليت لو تكون على اوفيس 2003

بارك الله فيك

[youssef103]

جزاك الله كل خير

[حامل المسك]

رائع جدا أخي الكريم

ولقد واجهتني مشكلة في المشاركة التالية

http://www.officena.net/ib/index.php?showtopic=41241

حيث أريد كود يجعل النص في التقرير على هيئة الضبط (التوزيع) بحيث تكون الأسطر متساوية من الطرفين الأيمن والأيسر

فهلا أسعفتني في ذلك

أدام الله عليكم نعمه ظاهرة وباطنة ...

[أبو آدم]

شكراً لك أخي عبيدالله

((وحبذا لو رأينا إسمك الطيب مكان رمزك))

[عبيدالله]

شكرا اخي

nart lebzo

تم تغيير اسم الظهور

انا مشترك في منتدى آخر بنفس اسم (عبيدالله) ولا بأس بأن اكون بنفس الاسم هنا

[أبو آدم]

حياك الله يا عبيدالله

حللت أهلاً و وطئت سهلاً ... بين إخوتك

................

[عبيدالله]

لي الشرف

للعلم بأني تأسست وتتلمذت في هذا المنتدى الغالي على نفسي