Tartışmasız Word 2010 en iyi kelime editörüdürÇevresinde, temel düzenleme araçlarını ve grafik stillerini sağlamanın yanı sıra, belgeyi istediğiniz şekilde kişiselleştirme seçeneği de sunar. Varsayılan olarak gizlenen, Word 2010, örneğin, birkaç kod satırı ekleyerek, herhangi bir özel üçüncü taraf uygulamasını kullanmak zorunda kalmadan Word belgelerini birleştirebileceğiniz gibi farklı işlevler ekleme seçeneği sunar. Bu yazıda, aynı klasörde bulunan belgelerin tüm içeriğini birleştirmek ve bunları yeni bir belgede göstermek için birkaç kod satırı ekleyeceğiz.
Başlamak için önce onları aynı yere koymanız gerekir.klasöründe, hepsinin aynı Word veya Docx sürümüne 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 Tamam Farklı kaydet.
İletişim kutusu açılacak Türü olarak kaydet, tık Word Makro Etkin Şablonu ve Kaydet'i tıklayın.
VB editörünü kullanacağız, bu yüzden önce yapmamız gereken Geliştirici Word penceresinde görünen sekme. Bulamazsan diye Geliştirici sekme, git Dosya menü, tıklayın Seçenekler ve sol bölmede tıklayın Şeridi Özelleştir, sağdaki bölmeden etkinleştir Geliştirici check-kutusu. tık Tamam Görmek Geliştirici Şerit üzerindeki sekme.
Şimdi yönlendir Geliştirici sekme ve tıklayın Visual Basic.
Sol kenar çubuğundan, çift tıklayıp VB Düzenleyici iletişim kutusuna erişeceksiniz Bu Belge VB düzenleme penceresini açın. Kod penceresini sağ tarafta göreceksiniz. Şimdi bu kod satırlarını içine koyun.
Not: Klasörün yolunu değiştirmeyi unutmayınbelgelerin bulunduğu ve bu kod satırlarındaki Word belgelerinin bulunduğu yer. Kolaylaştırmak için bu önlemi kodların önüne da ekledik.
Alt MergeDocs ()
Aralık olarak Dim rng
Belge Olarak Dim MainDoc
Dim strFile Dizge Olarak
Const strFolder = “C: UsersUsman JavaidDesktopWord belgeleri” ||| (Belgelerinizin bulunduğu yolu değiştirin)
MainDoc Ayarla = Documents.Add
strFile = Dir $ (strFolder ve “* .docx”) ||| (Dosya uzantısını .doc olarak değiştirin, Word 97-03 sürümüyle ilgileniyorsunuz)
StrFile = “” ye kadar yapın
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder ve strFile
strFile = Dir $ ()
döngü
Son Alt
Şimdi basın Ctrl + S Yeni eklenen makroyu kaydetmek ve VB düzenleyiciyi kapatmak için Şu yöne rotayı ayarla Geliştirici sekme ve tıklayın Makrolar.
İtibaren Makrolar iletişim MergeDocs makro ve tıklayın Çalıştırmak.
Yolu ve sürümü doğru bir şekilde belirlediyseniz, tüm belgeler birleştirilir ve yeni bir belgede açılır.
Word 2010'da düzenlenen son satıra geri dön ve Word 2010'da Adres Mektup Birleştirme'yi kullanarak daha önce gözden geçirilmiş rehberlerimizi de inceleyebilirsiniz.
Yorumlar