المشاركات : 56
المواضيع 35
الإنتساب : Sep 2015
السمعة :
0
الشكر: 38
تم شكره 54 مرات في 16 مشاركات
هذا هو الكود
Static wd1 As Word.Application
Static wd1Doc As Word.Document
Set wd1 = New Word.Application
wd1.Visible = True
Set wd1Doc = wd1.Documents.Add(App.Path & "\sher.dotx")
With wd1Doc
.FormFields("id").Range = Label2
.FormFields("اسم").Range = Label3
.FormFields("الكنية").Range = Label4
.FormFields("الاب").Range = Label5
.FormFields("الام").Range = Label20
.FormFields("تولد").Range = Label6
.FormFields("شهادة").Range = Label21
.FormFields("بدء").Range = Label22
.FormFields("جهة").Range = Label24
.FormFields("اسباب").Range = Label25
.FormFields("ملاحظات").Range = Label27
End With
Set wd1 = Nothing
Set wd1Doc = Nothing
End Sub