Tartışmasız Word 2010, temel düzenleme araçları ve grafik stilleri sunmanın yanı sıra, belgeleri istediğiniz gibi özelleştirme seçeneği de sunan en iyi kelime düzenleyicidir. Varsayılan olarak gizli olan Word 2010, farklı işlevler ekleme seçeneği sunar. Örneğin, birkaç satır kod ekleyerek Word belgelerini herhangi bir özel üçüncü taraf uygulama kullanmadan birleştirebilirsiniz. Bu yazıda, aynı klasörde bulunan belgelerin tüm içeriğini birleştirmek ve yeni bir klasörde göstermek için birkaç satır kod ekleyeceğiz.
Başlamak için, öncelikle dosyaları aynı klasöre koymanız gerekiyor. Hepsinin aynı Word sürümüne (Doc veya Docx) ait olduğundan emin olun. Aşağıdaki ekran görüntüsünde görebileceğiniz gibi, birleştirilecek iki belge açtık.

Şimdi herhangi bir Word belgesini açın ve Makro Etkin belge olarak kaydedin, bunun için Dosya menüsüne gidin ve Farklı Kaydet'e tıklayın.

Bir iletişim kutusu açılacaktır, Kayıt türü kısmından Word Makro Etkin Şablonu'na tıklayın ve Kaydet'e tıklayın.

VB düzenleyici kullanacağız, bu yüzden öncelikle Word penceresinde Geliştirici sekmesini görünür hale getirmemiz gerekiyor. Geliştirici sekmesini bulamazsanız , Dosya menüsüne gidin , Seçenekler'e tıklayın ve sol bölmede Şeridi Özelleştir'e tıklayın, sağ bölmeden Geliştirici onay kutusunu etkinleştirin. Geliştirici sekmesini şeritte görmek için Tamam'a tıklayın.

Şimdi Geliştirici sekmesine gidin ve Visual Basic'e tıklayın.

VB Editör iletişim kutusuna ulaşacaksınız, sol kenar çubuğundan ThisDocument'a çift tıklayarak VB düzenleme penceresini açın. Sağ tarafta kod penceresini göreceksiniz. Şimdi aşağıdaki kod satırlarını içine yerleştirin.
Not: Bu kod satırlarında, belgelerin bulunduğu klasörün yolunu ve Word belgelerinin sürümünü değiştirmeyi unutmayın. Kolaylık olması için, bu önlemi kodların önüne de ekledik.
Alt MergeDocs()
Dim rng Aralığı Olarak
Dim MainDoc As Document
Dim strFile As String
Const strFolder = “C:\Users\Usman Javaid\Desktop\Word documents\” ||| (Belgelerinizin bulunduğu yolu değiştirin)
MainDoc = Documents.Add olarak ayarlayın
strFile = Dir$(strFolder & “*.docx”) ||| (Word 97-03 sürümüyle çalışıyorsanız dosya uzantısını .doc olarak değiştirin)
strFile = “” olana kadar yap
rng = MainDoc.Range olarak ayarlayın
rng.Çöküş wdÇöküşSonu
rng.InsertFile strFolder ve strFile
strFile = Dir$()
Döngü
Son Alt Yazı

Şimdi yeni eklenen makroyu kaydetmek ve VB düzenleyicisini kapatmak için Ctrl+S tuşlarına basın. Geliştirici sekmesine gidin ve Makrolar'a tıklayın.
Makrolar iletişim kutusundan MergeDocs makrosunu seçin ve Çalıştır'a tıklayın .

Eğer yolu ve sürümü doğru bir şekilde belirttiyseniz, tüm belgeler birleştirilir ve yeni bir belgede açılır.

Ayrıca Word 2010'da düzenlenen son satıra geri dönme ve Word 2010'da Posta Birleştirme'yi kullanma hakkındaki daha önce incelediğimiz kılavuzlara da göz atabilirsiniz .
[ gaebler aracılığıyla ]