إنتقال للمحتوى

ابحث فى الموقع مع جوجل

بحث مخصص

تأكد من صحة الحديث قبل نشره



بحث عن:

منتدى دبي العالمي لإدارة المشاريع

شبكة محترفى أوراكل

<




صورة

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

تحكم بتنسيق النصوص بكل حرية لأكسس 2007 وما بعده

  • قم بتسجيل الدخول للرد
8 رد (ردود) على هذا الموضوع

#1 عبيدالله

عبيدالله
  • Members-1
  • 39 مشاركة
  • Gender:Male

تاريخ المشاركة 28 فبراير 2012 - 05:12 م

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

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


ملف مرفق  تقرير.jpg   56.87كيلو   55 عدد مرات التحميل


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


ملف مرفق  نموذج.jpg   47.06كيلو   51 عدد مرات التحميل


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

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   26.81كيلو   61 عدد مرات التحميل

المقابل:

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

#2 أيمن عبادي

أيمن عبادي
  • Members-2
  • 207 مشاركة
  • Gender:Male

تاريخ المشاركة 29 فبراير 2012 - 07:02 ص

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

#3 ابوأثير

ابوأثير
  • Members-1
  • 97 مشاركة
  • Gender:Male
  • Location:r3dnet
  • Interests:r3dnet

تاريخ المشاركة 03 أبريل 2012 - 05:24 ص

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

بارك الله فيك

#4 youssef103

youssef103
  • Honored Members
  • 60 مشاركة
  • Gender:Male

تاريخ المشاركة 03 أبريل 2012 - 01:55 م

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

#5 حامل المسك

حامل المسك

    السعودية

  • PMembers-3
  • 756 مشاركة
  • Gender:Male

تاريخ المشاركة 05 أبريل 2012 - 09:35 م

رائع جدا أخي الكريم
ولقد واجهتني مشكلة في المشاركة التالية
http://www.officena....showtopic=41241
حيث أريد كود يجعل النص في التقرير على هيئة الضبط (التوزيع) بحيث تكون الأسطر متساوية من الطرفين الأيمن والأيسر
فهلا أسعفتني في ذلك
أدام الله عليكم نعمه ظاهرة وباطنة ...

أحب الصالحين ولست منهم *** لعلي أن أنال بهم شفاعة
وأكره من تجارته المعاصي *** ولو كنا سواء في البضاعة


#6 أبو آدم

أبو آدم

    مراقب عام

  • مراقب عام
  • 3,008 مشاركة
  • Gender:Male
  • Location:المملكة الأردنية الهاشمية

تاريخ المشاركة 06 أبريل 2012 - 01:36 ص

شكراً لك أخي عبيدالله
((وحبذا لو رأينا إسمك الطيب مكان رمزك))

( اللَّهُمَّ أنت عضُدِي ونَصِيري ، بِك أَجُولُ ، وبِك أصولُ )

gallery_12714_23_15851.png

اللهم اجعـل القــرآن العظــيم ربــيع قـلوبــنا


#7 عبيدالله

عبيدالله
  • Members-1
  • 39 مشاركة
  • Gender:Male

تاريخ المشاركة 07 أبريل 2012 - 10:21 ص

شكرا اخي
nart lebzo

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

#8 أبو آدم

أبو آدم

    مراقب عام

  • مراقب عام
  • 3,008 مشاركة
  • Gender:Male
  • Location:المملكة الأردنية الهاشمية

تاريخ المشاركة 07 أبريل 2012 - 03:15 م

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

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

( اللَّهُمَّ أنت عضُدِي ونَصِيري ، بِك أَجُولُ ، وبِك أصولُ )

gallery_12714_23_15851.png

اللهم اجعـل القــرآن العظــيم ربــيع قـلوبــنا


#9 عبيدالله

عبيدالله
  • Members-1
  • 39 مشاركة
  • Gender:Male

تاريخ المشاركة 07 أبريل 2012 - 04:08 م

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




0 عضو (أعضاء) يشاهدون هذا الموضوع

0 الأعضاء, 0 الزوار, 0 مجهولين