سؤال:طريقة استبدال #هاشتاق في النص بقيمة >لك الهاشتاق

السلام عليكم

الحل فى المرفق

ForTest_ReplaceWords.rar

أشكرك أخي madapop على مشاركك في الحل ولكن للأسف ليس هذا هو المطلوب. ربما لم تفهم سؤالي أو لم أوصل المعلومة المطلوبة لذلك تم ارفاق صورة لتوضيح ذلك اكثر

1- حقول النموذج تم تعبئتها بالبيانات المطلوبة

2- نص الهاشتاق البديل مقابل كل حقل

3- في هذا المربع يوجد حقل نوع مفكرة تم كتابة كلمات ترحيبية وقد تم ادراج الهاشتاق المذكور اعلاه 

4- عند ضغط الزر يقوم كود برمجي بإستبدال كل هاشتاق إلى ما يحتويه الحقل المرادف له من بيانات ويعيد كتابته في المربع الذي تحته

5- شكل العبارة الترحيبية التي يجب ان تظهر بعد التحويل

تمام لكن ممكن الرسائل الترحبية يكون لها جدول اخر

ونختارها من كومبوكس

والنص يتجمع بالاضافة للرسالة اللى اخترتها

بدل الهاش تاج

وعموما إن شاء الله سهلة

اهلا اخي madapop كلامك سليم لكن ذلك يحدني على تنسيق معين. لو انتقلت الى السجل الثاني من البرنامج ستجد تنسيق مختلف وتوزيع للهاشتاق مختلف. ارجو ان تتطلع على السجل الثاني من النموذج

وعليكم السلام اخي :)

1. إعادة تسمية الحقول واستبدال اسمائها كما هو باللون الاحمر:

2. الكود على زر التحويل:

Private Sub Trans_Hashtaq_Click()

    T = Me.InsertWord
    
    T = Replace(T, Me.FirstName_h, Me.FirstName)
    T = Replace(T, Me.SecondeName_h, Me.SecondeName)
    T = Replace(T, Me.FamilyName_h, Me.FamilyName)
    T = Replace(T, Me.City_h, Me.City)
    T = Replace(T, Me.Country_h, Me.Country)
    
    Me.Text_Result = T
    
End Sub

3. والنتائج:

و

جعفر

سلمت يداك اخي جعفر وجزيت خيرا وزوجت بكرا تلاعبها وتلاعبك. نعم هذا هو المطلوب.. بارك الله فيك والشكر موصول للاخ madapop