yer işaretine metin ekleme,lütfen yardım

Katılım
28 Ekim 2006
Mesajlar
242
Excel Vers. ve Dili
Office 2003 Türkçe
(bu soruyu word formunu gönderdim,sanırım o forum terkedilmiş,aynı olduğunu düşünerek sizlerden yardım bekliyorum)
slm millet nasılsınız, ya şu gönderdiğim kodda bana yardımcı olur musunuz? önce yapmak istediğim şeyi açıklayayım. bir word dosyasındaki belgelere "yer işareti"ekledim. bir de, textbox ve buton dan oluşan form var.amacım; textbox'a yazdığım yazıları, butona basarak daha önce belgelerde yerleştirmiş olduğum "yer işareti" lerine göndermek. ve 1'den fazla yer işareti var... kod şöyletextbox daki metni alıyor,bulunan yer işaretlerine götürüyor ve enson bu metni ekliyor)
Private Sub CommandButton1_Click()
Dim giriş
giriş = TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="ora"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=giriş
Selection.GoTo What:=wdGoToBookmark, Name:="tabloiçi"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=giriş
"ora" ve "tabloiçi" isimli yer işaretleri ve daha niceleri var.şimdi ben her yer işareti için,Selection.GoTo 'dan End With'e kadar olan bloku yazmak zorunda mıyım? bütün yer işaretlerini sadece bir komut blokuna sıralama imkanımız varmı?lütfen ,yardımlarınızı bekliyorum ve şimdiden teşekkürlerimi sunuyorum,iyi günler.
 
Katılım
28 Ekim 2006
Mesajlar
242
Excel Vers. ve Dili
Office 2003 Türkçe
(bu soruyu word formunu gönderdim,sanırım o forum terkedilmiş,aynı olduğunu düşünerek sizlerden yardım bekliyorum)
slm millet nasılsınız, ya şu gönderdiğim kodda bana yardımcı olur musunuz? önce yapmak istediğim şeyi açıklayayım. bir word dosyasındaki belgelere "yer işareti"ekledim. bir de, textbox ve buton dan oluşan form var.amacım; textbox'a yazdığım yazıları, butona basarak daha önce belgelerde yerleştirmiş olduğum "yer işareti" lerine göndermek. ve 1'den fazla yer işareti var... kod şöyletextbox daki metni alıyor,bulunan yer işaretlerine götürüyor ve enson bu metni ekliyor)
Private Sub CommandButton1_Click()
Dim giriş
giriş = TextBox1
Selection.GoTo What:=wdGoToBookmark, Name:="ora"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=giriş
Selection.GoTo What:=wdGoToBookmark, Name:="tabloiçi"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
Selection.TypeText Text:=giriş
"ora" ve "tabloiçi" isimli yer işaretleri ve daha niceleri var.şimdi ben her yer işareti için,Selection.GoTo 'dan End With'e kadar olan bloku yazmak zorunda mıyım? bütün yer işaretlerini sadece bir komut blokuna sıralama imkanımız varmı?lütfen ,yardımlarınızı bekliyorum ve şimdiden teşekkürlerimi sunuyorum,iyi günler.
cevabını yine ben vereyim:
Selection.GoTo What:=wdGoToBookmark, Name:="ora"
Selection.GoTo What:=wdGoToBookmark, Name:="tabloiçi"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With
"ora","tabloiçi",....şeklinde sıralarız.
 
Üst