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

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


عبيدالله

الردود الموصى بها

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

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

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

post-50962-0-95606500-1330437484_thumb.j

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

post-50962-0-12316700-1330437545_thumb.j

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

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

المقابل:

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

رابط هذا التعليق
شارك

  • 1 month later...

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

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information