for each next ile bu olay halledilebilir 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

 

[takoo]

kimse yokmu yardım edecek?hayır , bileyim de ona göre başka kaynaklara yöneleyim,buraya umut bağlamayım.iyi çalışmalar