أريد كودا لنسخ كلمة من مستند والبحث عنها في مستند آخر

اقتباس

وسؤالي: كيف أجعل البرنامج يبحث عن الكلمة التي تم نسخها؟

بالنسبة لمعرفة الكلمة المنسوخة تكون عن طريق الخاصية text

sStr=Selection.Text

بعد ما اسندنا القيمة الى المتغير sSTr تبقى عملية البحث وتكون كالتالي

Selection.Find.Text = sStr
Selection.Find.Execute

السطر الاول تحديد الكلمة المراد البحث عنها

السطر الثاني تنفيذ عملية البحث

أشكرك شكراً جزيلا أخي العزيز realdie10 ..

قد جربتُ ما ذكرت وفقك الله في إحدى محاولاتي قبل أن أطرح سؤالي هنا .. وكانت تظهر لي رسالة خطأ ..

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

دمت موفقاً مباركاً ..

عفوا على الحطأ

اقتباس

بالنسبة لمعرفة الكلمة المنسوخة تكون عن طريق الخاصية text

sStr=Selection.Text

الخاصية text ترجع النص المحدد

اما القيمة في الذاكرة اما عن طريق API للوصول الى Clipboard

او عن طريق تعريف متغير من نوع DataObject وبذلك باضافة mirosofr Forms 2.0 object labriy ملف باسم FM20.dll

Public Sub copyToClipboard()
  Dim MyText As DataObject, TextStr As String
Set MyText = New DataObject


MyText.SetText CStr("Hello VB Forum")
MyText.PutInClipboard

TextStr = MyText.GetText()

MsgBox TextStr
End Sub

تصحيح معلومة فقط

realdie10 كتب:

عفوا على الحطأ

مرحبا أخي العزيز ..

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

تحياتي ومودتي،،

o.AMS.o كتب:

مرحبا أخي العزيز ..

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

تحياتي ومودتي،،

لا قصدي خطأ في المعلومة انا قلت الخاصية text ترجع القيمة المنسوخة في الذاكرة وهذا خطأ

اقتباس

بالنسبة لمعرفة الكلمة المنسوخة تكون عن طريق الخاصية text

الخاصية text ترجع النص المحدد في ورقة الورد (النص المظلل )