Çözüldü Procedure too large uyarısı, ama private sub içerisinde

Merhaba.
Koda yazılanlarmı uzun olduğu için hata veriyor?
Belki sub içinde parametre kullanıp kısaltılabilinir.
Örnek eklerseniz bakarız.

Excel den şablon worde veri gönderip rapor çıkartıyorum. adım adım ilerledim. sorunsuz çalıştı. sonra kodu uzattım. ama çok fazla eklenecek yer var. çok fazla komut oldu mecburen. biraz bakınca call komutu ile sub ları bölebileceğimi gördüm ama kendim private sub da çalıştığım için uygulayamadım.
yaptığım iş büyükçe bir excel tablosu doldurup, değişmez verilerin olduğu word şablonuna belirtilen tuşa basarak verileri aktarmak.

doc.Bookmarks("ilce").Range.InsertAfter Cells(5, 1)

içerikte tek kullandığım komut bu. bunun gibi çok fazla satır var. satırlar artınca hata aldım. private sub düzelmeyecekse,
private sub harici aynı işi farklı bir yol ile yapabilir miyim?

Belki döngü kurup kodu kısaltabilirsiniz.

Private sub içerisindeki kodlarınızı modül içerisine almayı denediniz mi?
Örnek;
uygulamanızda worde veri gönderme kısmını bir modül içerisinde Sub WordeGonder() yordamı ile kodlayın.
Daha sonra hangi işlemi yaptıracaksanız aynı modül içerisine Sub YordamAdi() içerisine kodlayın.
Bunu bu şekilde fazlalaştırabilirsiniz.
Bu yordamların içerisinde ortak değişkenler (Sayfa adı, word dosyası adı, gibi ) varsa, değişkenleri prosedür dışında Public olarak belirtip, Sub Degiskenler() prosedürü ile ilk önce çağırabilirsiniz.

Public SayfaAdi as worksheet
Public Word as string

Sub Degiskenler()
Set SayfaAdi = thisworkbook.worksheets("SayfaAdi")
Word = "c:\word\word.doc"
end sub

Private Sub içerisine ;

Private Sub Bilmemne()
Degiskenler
WordeGonder
YordamAdi
end sub
yazdığınızda tüm yordamlar sırasıyla çalışacaktır.

Hocam muhtemelen basit bir çözümü var. Yardım için çok teşekkür ederim ama bilmediğim için kafamda bağlayamıyorum. kod aşağıda ki gibi. sadece yüzlerce satır bookmarks var. amacım butona tıkladıktan sonra raporu elde etmek. bu yüzden de benim bu bookmarksların hepsini aynı şablonu etkilemesini sağlayarak tek bir yeni word çıktısı olarak alabilmem gerekiyor. bookmarks fazlalığını bir şekilde bölmeliyim.


HTML:

Dosyanızı ekleyin word ilede bölelim.Array ile yapılır döngülerle.

Böylede fazla bence ve o şekildede gereksiz.Her neyse örneğinizi eklerseniz bskarız değilse o şekilde kullanın abey.

Böylede fazla bence ve o şekildede gereksiz.Ben bari kısaltayım sizden örnek geleceği yok.Bu durumda deneyemen konu uzayacak.Kısaca böldüğünüz tam uygun değil.

hocam gönderdiğim örnekti zaten. iş yeri ile ilgili bilgiler içerdiğinden daha fazlasını paylaşamam doğru olmaz. bende de yaklaşık 600 satırı bölerek çalıştırdığı için rahat geldi açıkcası

akn' Alıntı:

sub parca2(doc As Word.Document)
doc.Bookmarks("ilce").Range.InsertAfter Cells(5, 1)
end sub

Genişletmek için tıkla...

Böyle bir tane yeter içine üç parametre alıp ve bunun içindekini silip.Neyse birazdan yollarım eve geçince hazırlayıp.

HTML:

Yada Dim doc As Word.Document en üstte olacak ve alttaki kod.

HTML: