- Katılım
- 25 Ekim 2006
- Mesajlar
- 349
- Excel Vers. ve Dili
- MS Office Standart 2016 Türkçe
Wordde kod yazarak texbox ile girdiğim verileri, sayfada yer işareti ile işaretlediğim yere veya herhangi bir yere yazdırmak istiyorum ne yapmalıyım
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
HDF = ActiveDocument.Bookmarks("a1").Start
ActiveDocument.Range(HDF, HDF).Text = TextBox1.Text
End Sub
Kime hitap ettiğini ve neden bahsettiğini anlamadım ...Teşekkür ederim, Ama sayfadan çıkınca veya yeni bir girdi açarken eski kayıtları silmiyor
Merhaba Haluk bey, leumruk arkadaşımızın paylaştığı dosyada.......... arkadaşımız bundan bahsediyor.
Selamlar,Evet Sorun Bu, nasıl Çözeceğim
Private Sub CommandButton1_Click()
HDF = ActiveDocument.Bookmarks("a1").Range.Start
ActiveDocument.Bookmarks("a1").Range.Text = TextBox1.Text
son = Len(TextBox1.Text) + HDF
ActiveDocument.Bookmarks.Add Range:=ActiveDocument.Range(HDF, son), Name:="a1"
End Sub