اذهب الي المحتوي
أوفيسنا

تنسيق النصوص داخل مربع النص


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

إخواني لقد طرحت من قبل إستفسار عن إمكانية تنسيق النصوص في مربعات النص مثل الإيميل أو محرر المشاركة الخاص بمنتدانا الغالي مثلا وقد وجدت برنامج للأستاذ الكبير رضا عقيل الذي أسال الله عز وجل أن يرضى عنه ويرزقه ذرية صالحة وهو برنامج الجوزات المطور الخاص به وقد وجدت به ما طلبت فهل من مثال عليها 
مرفق صورة للمطلوب 

 

 

تنسيق النص.rar


 

 

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

أخي ابا عمر

 

نحتاج في النموذج :

 

مربع نص مستهدف

مربع تحرير وسرد للتحكم في حجم النص

مربع تحرير وسرد للتحكم في إسم الخط

مربع تحرير وسرد للتحكم في محاذاة النص

زر تبديل للتحكم في سماكة الحروف BOLD

زر تبديل للتحكم في الخط المائل

زر تبديل للتحكم في وضع خط تحت النص

زر أمر لإستعادة الوضع الافتراضي للنص في مربع النص المستهدف

 

وللحديث بقية .......

 

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

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

نتابع

 

مربع النص المستهدف نجعله في تفاصيل النموذج ويكون غير منضم (للتجرية و التطبيق) ، ونجعل له في خصائصه (القيمة الافتراضية) نصاً بسيطاً

 

مربع تحرير وسرد للتحكم في حجم النص : نجعله في رأس النموذج ، ويكون نوع مصدر الصف في خصائصه Value List

ومصدر الصف أرقام مختارة حسب رغبتك (لا تقل عن 8) ومثلاً

 

8;9;10;11;12;13;14;17;22;24
 

فائدة : ولا بد هنا أن يفصل بين كل رقم و لاحقه فاصلة منقوطة

 

وللحديث بقية ....

 

.........

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

نتابع

 

مربع تحرير وسرد للتحكم في إسم الخط ، نجعله في رأس النموذج ، ويكون مصدر الصف فيه من جدول أنواع الخطوط tblFontName

وسيكون جزءاً من التطبيق المرفق في نهاية الشرح ، وقد نتحدث لاحقاً بإذن الله عن كيفية الحصول على قائمة بإسماء الخطوط الموجودة على الجهاز .

 

صورة مرفقة .. post-12714-0-81431700-1363416307_thumb.j

 

.........

مربع تحرير وسرد للتحكم في محاذاة النص ، نجعله في رأس النموذج ، ويكون نوع مصدر الصف في خصائصه Value List

ومصدر الصف قيم مختارة تمثل أوضاع المحاذاة المتوفرة وهي

 

 

General;Left;Center;Right;Distribute
 

 

 

وللحديث بقية ...

 

..........

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

نتابع

 

نحتاج لإنشاء ثلاثة أزرار تبديل (كما سبق) ، ويتم إنشاء أزرار التبديل كما هو موضح بالصورة

 

صورة مرفقة ... post-12714-0-73322300-1363419399_thumb.j

 

زر تبديل للتحكم في سماكة الحروف BOLD

 

وننسخ خلفه الكود

 

Private Sub Toggle22_Click()
If Me.Toggle22 Then
Me.Text0.FontBold = False
Else
Me.Text0.FontBold = True
End If
Me.Text0.FontBold = Me.Toggle22
End Sub
 

 

زر تبديل للتحكم في الخط المائل

وننسخ خلفه الكود

 

 

Private Sub Toggle23_Click()
If Me.Toggle23 Then
Me.Text0.FontItalic = False
Else
Me.Text0.FontItalic = True
End If
Me.Text0.FontItalic = Me.Toggle23
End Sub
 

زر تبديل للتحكم في وضع خط تحت النص

وننسخ خلفه الكود

 

Private Sub Toggle24_Click()
If Me.Toggle24 Then
Me.Text0.FontUnderline = False
Else
Me.Text0.FontUnderline = True
End If
Me.Text0.FontUnderline = Me.Toggle24
End Sub
 

 

و للحديث بقية ....

 

...........

 

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

نتابع

 

لإستعادة الوضع الافتراضي للنص في مربع النص المستهدف ، ننشيئ روتيناً بسيطاً في النموذج ، حيث ننسخ في محرر الفيجوال

 

Private Sub fDefault()

Me.Text0.FontBold = False
Me.Toggle22 = False

Me.Text0.FontItalic = False
Me.Toggle23 = False

Me.Text0.FontUnderline = False
Me.Toggle24 = False

Me.Text0.FontSize = 12
Me.Combo13 = 12

Me.Text0.FontName = "Arial"
Me.Combo15 = "Arial"

Me.Text0.TextAlign = 3
Me.Combo4 = "Right"

End Sub
 

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

 

Call fDefault

وللحديث بقية ....

 

......

 

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

نتابع

 

خلف مربع تحرير وسرد للتحكم في حجم النص ، ننسخ الكود

 

Private Sub Combo13_Change()
       Forms("Form1").Controls("Text0").FontSize = Me.Combo13
End Sub
 

 

 


خلف مربع تحرير وسرد للتحكم في إسم الخط ، ننسخ الكود

 

Private Sub Combo15_Change()
       Forms("Form1").Controls("Text0").FontName = Me.Combo15
End Sub
 

 

 


خلف مربع تحرير وسرد للتحكم في محاذاة النص ، ننسخ الكود

 

Private Sub Combo4_Change()
Select Case [Combo4]
    Case "General"
       Forms("Form1").Controls("Text0").TextAlign = 0
    
    Case "Left"
       Forms("Form1").Controls("Text0").TextAlign = 1
       
    Case "Center"
       Forms("Form1").Controls("Text0").TextAlign = 2
       
    Case "Right"
       Forms("Form1").Controls("Text0").TextAlign = 3
       
     Case "Distribute"
       Forms("Form1").Controls("Text0").TextAlign = 4
       
End Select

End Sub
 

وللحديث بقية ....

.........

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

 أسأل _الله_في عليائه أن يرضى عنك ومن تحب ومن تخصهم بالدعاء 
مثال ممتاز لكن عدة إستفسارت أستاذي الكريم 
1- هل يمكن التحكم بتنسيق جزء من النص الموجود داخل مربع النص.
2- في حال رغبيتنا في جعل هذا المثال في الإعدادات الإساسية للبرنامج " مثل برنامج الأستاذ رضا " مثلا يقوم المستخدم بإختيار المناسب له وبالضغط على موافق يقوم بتطبيق المختار على كامل التطبيق أو نماذج محدده في التطبيق 

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

كما أسأل_ الله _ سبحانه وتعالى أن يرزقك بمساعدتك لنا حلاوة تجدها في قلبك وأن يفتح عليك في العبادة وأن يفتح عليك في السجود فيتعلق به قلبك وأن يسددك ربي الى أرشد أمورك ومن تحب ومن تخصهم بالدعاء

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

أحسن الله اليك أبا عمر فيما أحسنت من الدعاء

 

أجبت في طرحي على عموم ما فهمت من طلبك الأول

......

 

أنا لم أطلع على التطبيق الذي تتحدث عنه للأخ رضا

وعموماً ... في 2003 التطبيق يكون على كامل النص (فيما أعلم)

 

وبعد ما فصّلت في القول ... آملاً أن أكون قد أحسنت الفهم عنك ...

نعيد النظر في التفصيل ... ولكن قد أحتاج لإجابة منك عن بعض الأسئلة في حينه

 

والله من وراء القصد وهو حسبي ..

 

...........

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

أستاذي الفاضل أنت ما قصرت أبداً لا من قريب ولا من بعيد سواء في شرحك الرائع أو المثال المرفق الذي هو غاية في الروعة وهذا ما كنت أريده فأسأل  _ الملك _ سبحانه وتعالى أن يجعل لك بكل ثانية قضيتها في سبيل إنهاء هذا العمل حسنة ومن تحب ومن تخصهم بالدعاء والحسنة بعشر
_ والله_ يضاعف لمن يشاء.
لكن أحيانا تطرأ أفكار أحببت أن أستفسر عنها لكي يكتمل العمل وينفع_ الله _ به خلقاً كثير يكون أوله وآخره في موازينك يوم تلقاه سبحانه وهو عنك راضٍ غير غضبان
وأنا على أتم إستعداد لأي أسئلة 
ختاماً لا أجد أبلغ من جزاك_الله_خيراً

تم تعديل بواسطه أبا عمر
رابط هذا التعليق
شارك

موضوع جميل ورائع وإلى الأمام دوما

وكان لي موضوع سابق احب ان اشارككم به وهو عبارة عن تضمين اكثر من تنسيق مختلف داخل مربع النص هكذا (مثال):

 

الاسم: سامي علي ابوعايش، العمر: 23 سنة، الحالة الاحتماعية: عازب، الحالة التعليمية: طالب جامعي

 

اترككم مع المرفق مع ملاحظة انه لا يعمل إلا على 2007 وما فوق لأنه يعتمد على ادماج اكواد "html" ضمن اكواد "vba"

 

FormatText 2007.rar

 

 

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

أحسن الله اليك عبيدالله

كنت قد مررت بهذا التطبيق الجميل ، وفيه فيما فهمت تجميع مجموعة من النصوص في مربع النص مع ضبط خصائص الخط لكل جزء

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

فهل لكم في الأمر تجربة تشاركنا بها .

 

وجزيت عنا خير الجزاء

 

..........

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

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

تم تعديل بواسطه أبا عمر
رابط هذا التعليق
شارك

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