[Ahmed_Mansoor]

أهلا أخي الكريم , هذا تعديل الكود :

كود :

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