bu duruma for each next çözüm getirir mi?

[takoo]

selam arkadaşlar. bilindiği gibi bu kod ("ta1") dosyasını aktif hale getiriyor,sonra belirlemiş olduğum "y1" adlıyer işaretine gidiyor ve TextBox1 değerini ekliyor.benim sorunum şu;benim bu şekilde "ta1"den "ta10"a kadar açık dosyalarım var. ve "y1"den "y30"a kadar da yerişaretim var. her ekleme işi için bunca kodu teker teker yazarsam performansı etkiler ve çok uğraştırır.dün akşam for each üzerinde çok düşündüm buna nasıl uyarlarım diye ,bi sonuca varamadım ve siz değerli hocalarımızdan yardım istemeye karar verdim,yardımcı olur musunuz?şimdiden teşekkürler ve iyi çalışmalar



Windows("ta1").Activate
Application.WindowState = wdWindowStateNormal
Selection.GoTo What:=wdGoToBookmark, Name:="y1"
With ActiveDocument.Bookmarks
Selection.TypeText Text = TextBox1
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[takoo]

Selamlar,

Örnek dosya eklermisiniz.

merhaba Cost Control.basit olsun diye bir kaç dosya ve yerişareti eklenmişleri gönderiyorum.düğmeye basıcaz ve "t1" ve "t2" dosyaları açılacak,tex teki değerleri tüm yer işaretlerine ekleyecek. ilginize teşekkürler.