15-10-15, 12:02 AM
15-10-15, 12:07 AM
* اين مشروعك لكي يتم التعديل عليه ؟؟
15-10-15, 12:57 AM
هذا هو المشروع
في المرفقات
في المرفقات
15-10-15, 01:04 AM
السلام عليكم ورحمة الله
أخي حماده
شاهد هذا الموضوع
Make a Word document in Visual Basic 6
وفيه كود حفظ بإسم SaveAs
أخي حماده
شاهد هذا الموضوع
Make a Word document in Visual Basic 6
وفيه كود حفظ بإسم SaveAs
PHP كود :
word_doc.SaveAs FileName:=file_name
15-10-15, 02:43 AM
أهلا أخي الكريم , هذا تعديل الكود :
كود :
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 = Nothing
17-10-15, 12:38 AM
شكرا جزيلا لكل من أأجاب على سؤالي
17-10-15, 12:48 AM
السلام عليكم ورحمة الله
أخي حماده
إحرص في الدعاء لإخوانك وليس الدعاء عليهم
أخي حماده
إحرص في الدعاء لإخوانك وليس الدعاء عليهم
17-10-15, 01:44 AM
(17-10-15, 12:48 AM)مهموم كتب : [ -> ]السلام عليكم ورحمة الله
أخي حماده
إحرص في الدعاء لإخوانك وليس الدعاء عليهم
تم التعديل اخي الكريم سامحني