[fady013]

(31-12-14, 02:17 AM)Ahmed_Mansoor كتب : التعديل في المرفقات .

أخي الفاضل قمت بتعديلات على الملف, حيث أنشأت ملف وورد جديد باسم Certificate وتم بحمد الله بعدما قرأت الكود البرمجي حقك

ولا يسعني إلا أن أقول لك جزالك الله خيرا

لك مني كل الاحترام والحب والتقدير

وأتمنى أن تفيد هذه الفكرة جميع المتابعين للمنتدى وجميع الشباب محبي vb6.0

لذا هل هذه الجمل لوضع بيانات من الفورم إلى صفحة الوورد مع تغيير المرسل لها

إقتباس :With Word_App.Selection.Find
.Text = "<DATE>"
.Replacement.Text = Trim$(Text2.Text)
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Word_App.Selection.Find.Execute Replace:=wdReplaceAll