+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] يا رب حد يرد على طلبي كود حفظ ملف .................... (/showthread.php?tid=13526)
يا رب حد يرد على طلبي كود حفظ ملف .................... - hamada salah90 - 15-10-15
كود حفظ ملف الوورد باسم معين بواسطة الفيجول بيسك
الشرح في هذه الصورة
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - administrator - 15-10-15
* اين مشروعك لكي يتم التعديل عليه ؟؟
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - hamada salah90 - 15-10-15
هذا هو المشروع
في المرفقات
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - مهموم - 15-10-15
السلام عليكم ورحمة الله
أخي حماده
شاهد هذا الموضوع
Make a Word document in Visual Basic 6
وفيه كود حفظ بإسم SaveAs
PHP كود :
word_doc.SaveAs FileName:=file_name
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - Ahmed_Mansoor - 15-10-15
أهلا أخي الكريم , هذا تعديل الكود :
كود :
Dim MonWd As New Word.Application
Dim wmonwd As New Word.Document
MonWd.Visible = True
Set wmonwd = MonWd.Documents.Open(App.Path & "\Tests\" & (ComboTests.Text) & ".doc", , False)
With wmonwd
'======--------------------=============------------==============
'-----------------main table----------------
.FormFields("W_code").Range = txtCode.Text
.FormFields("W_name").Range = txtname.Text
.FormFields("W_doc").Range = txtDoc.Text
.FormFields("W_age").Range = txtage.Text + ", " + txtGender.Text
.FormFields("W_samD").Range = txtSamDate.Text
.FormFields("W_resD").Range = txtResDate.Text
'-----------------Result table----------------
.FormFields("W_txtT17").Range = "Dr. " + lblUsername.Caption
.FormFields("W_txtT1").Range = txtT1.Text
.FormFields("W_txtT2").Range = txtT2.Text
.FormFields("W_txtT3").Range = txtT3.Text
.FormFields("W_txtT4").Range = txtT4.Text
.FormFields("W_txtT5").Range = txtT5.Text
.FormFields("W_txtT6").Range = txtT6.Text
.FormFields("W_txtT7").Range = txtT7.Text
.FormFields("W_txtT8").Range = txtT8.Text
.FormFields("W_txtT9").Range = txtT9.Text
.FormFields("W_txtT10").Range = txtT10.Text
.FormFields("W_txtT11").Range = txtT11.Text
.FormFields("W_txtT12").Range = txtT12.Text
.FormFields("W_txtT13").Range = txtT13.Text
.FormFields("W_txtT14").Range = txtT14.Text
.FormFields("W_txtT15").Range = txtT15.Text
.FormFields("W_txtT24").Range = txtT24.Text
.SaveAs FileName:=App.Path & "\Tests\" & Trim$(ComboTests.Text) & Trim$(txtCode.Text) & ".doc"
'======--------------------=============------------==============
End With
Set wmonwd = Nothing
Set MonWd = NothingRE: يا رب حد يرد على طلبي كود حفظ ملف .................... - hamada salah90 - 17-10-15
شكرا جزيلا لكل من أأجاب على سؤالي
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - مهموم - 17-10-15
السلام عليكم ورحمة الله
أخي حماده
إحرص في الدعاء لإخوانك وليس الدعاء عليهم
RE: يا رب حد يرد على طلبي كود حفظ ملف .................... - hamada salah90 - 17-10-15
(17-10-15, 12:48 AM)مهموم كتب : السلام عليكم ورحمة الله
أخي حماده
إحرص في الدعاء لإخوانك وليس الدعاء عليهم
تم التعديل اخي الكريم سامحني