DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
y_imi = Array("bno", "servis", "tarih", "sayı")
Deg = Array(no.Value, servis.Value, tarih.Value, sayı.Value)
For x = 0 To 3
ActiveDocument.Bookmarks(y_imi(x)).Range.Select
Selection = Deg(x)
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=y_imi(x)
Next
End Sub