Açık olan tüm Word belgelerini tek seferde kopyalayın

Birden fazla Word belgesi açıkken, bunları yedeklemek, paylaşmak, bulut depolamaya yüklemek, başka bir bilgisayara aktarmak veya e-postalara eklemek için hepsini aynı anda başka bir klasöre kopyalamanız gerekebilir. Word, “Tüm Açık Belgeler”i tek seferde kopyalamak için doğrudan bir komut sunmaz; ancak bu işlemi gerçekleştirmenin birkaç güvenilir yöntemi vardır.

Bu eğitimde üç pratik yöntemi keşfedeceksiniz: Açık her belgeyi manuel olarak aynı klasöre kaydedebilir, Kutools for Word ile “Tüm Açık Belgeler”i tek tıklamayla kopyalayabilir veya açık ve önceden kaydedilmiş tüm dosyaları seçtiğiniz klasöre otomatik olarak kopyalamak için bir VBA makrosu kullanabilirsiniz.

• Yöntem 1: Açık her belgeyi bir klasöre kaydetmek için Farklı Kaydet özelliğini kullanın
• Yöntem 2: Kutools for Word kullanarak Tüm Açık Belgeler'ı tek tıklamayla kopyalayın
• Yöntem 3: VBA ile Tüm Açık Belgeler'i otomatik olarak kopyalayın

Açık olan her belgeyi bir klasöre kaydetmek için Farklı Kaydet özelliğini kullanın

Bu yöntem, tüm Word sürümlerinde sorunsuzca çalışır. Önce her açık belgeyi aynı klasöre kaydedin; ardından bu klasördeki tüm dosyaları birlikte seçip kopyalayabilir veya tek bir e-postaya ekleyebilirsiniz.

Office Tab

Word, Excel, PowerPoint ve daha fazlası için sekme tabanlı gezinme—web tarayıcınız gibi, tek pencerede sorunsuz geçiş sunar.

Ücretsiz İndirDaha Fazla Bilgi Edinin

1. Word’de ilk açık belgeye geçin.
2. Tıklayın Dosya>Farklı Kaydet, ardından Gözatseçeneğini seçin.

   

3. Farklı Kaydet penceresinde hedef klasöre gidin. Adres çubuğunda klasör adının görüntülendiğinden emin olduktan sonra Kaydet'e tıklayın.

   

4. Her açık belge için aynı adımları tekrarlayın ve her seferinde aynı klasörü seçin.
5. İşlem tamamlandığında, Dosya Gezgini'nde o klasörü açın, tüm dosyaları seçmek için Ctrl + Atuşlarına basın, ardından sağ tıklayıp Kopyalaseçeneğini seçin.

   

Seçilen tüm belgeler başarıyla kopyalandı ve yeni bir konuma yapıştırılmak veya e-postaya eklenmek için hazır!

Kutools for Word kullanarak Tüm Açık Belgeler'ı tek tıklamayla kopyalayın

Eğer birden fazla açık belgeyi sık sık kopyalamanız veya toplamanız gerekiyorsa, Kutools for Word size değerli zaman kazandırabilir. Tek tıklamayla şu anda açık tüm belgeleri seçtiğiniz bir klasöre kopyalamanıza olanak tanıyan yerleşik bir özelliğe sahiptir.

1. Word'u açın ve kopyalamak istediğiniz tüm belgelerin şu anda açık olduğundan ve kaydedildiğinden emin olun.
2. Şerit üzerindeki KUTOOLS PLUSsekmesinde,Diğer>Tüm Açık Dosyaları Kopyalaseçeneğine tıklayın.

   

3. Dosyaların başarıyla kopyalandığını onaylayan bir iletişim kutusu görünecektir.Tamam'a tıklayın.

   

Tüm Açık Dosyaları Kopyala'ya tıkladıktan sonra seçilen belgeler panoya kopyalanır. Ardından istediğiniz bir hedef klasörünü açıp yapıştırmak için Ctrl + V tuşlarına basabilir veya doğrudan bir e-posta penceresine ek olarak yapıştırabilirsiniz.

Not:

Bu özelliği kullanmadan önce tüm açık belgelerin kaydedildiğinden emin olun; kaydedilmemiş değişiklik içeren belgeler başarıyla kopyalanamaz. Kutools, başarısız olan dosyaları listeleyerek bunları kaydedip tekrar denemenizi kolaylaştırır.

VBA ile Tüm Açık Belgeler'yi otomatik olarak kopyalayın

Eklentiler kullanmadan otomatik bir çözüm arıyorsanız, bir VBA makrosundan yararlanabilirsiniz. Bu makro, seçtiğiniz klasöre açık ve kaydedilmiş tüm belgeleri kopyalar. Dosyalar orijinal konumlarından doğrudan kopyalandığı için şu anda açık olan belgeler hiçbir şekilde değişmez.

1. Word'de VBA düzenleyicisini açmak için Alt + F11 tuşlarına basın.
2. Tıklayın Ekle>Modül.

   

3. Aşağıdaki kodu modüle yapıştırın.

   Option Explicit
   
   Sub CopyAllOpenDocuments()
   
       Dim doc As Document
       Dim destFolder As String
       Dim src As String, dst As String
       Dim fso As Object
       Dim count As Long
   
       With Application.FileDialog(msoFileDialogFolderPicker)
           If .Show <> -1 Then Exit Sub
           destFolder = .SelectedItems(1)
       End With
   
       If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       For Each doc In Application.Documents
           If doc.Path <> "" Then
               src = doc.FullName
               dst = destFolder & doc.Name
   
               If LCase$(src) <> LCase$(dst) Then
                   fso.CopyFile src, dst, True
                   count = count + 1
               End If
           End If
       Next doc
   
       MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"
   
   End Sub

4. Makroyu çalıştırmak için F5 tuşuna basın.
5. Bir klasör seçimi iletişim kutusu görünecektir. Açık belgelerin kopyalanacağı hedef klasörü seçin, ardından Tamam'a tıklayın.

   

6. Başarıyla kopyalanan belge sayısını gösteren bir onay iletişim kutusu görüntülenecektir.

   

Artık uygun tüm açık belgeler seçilen klasöre kopyalandı. Kopyalanan dosyaları görüntülemek, taşımak, yüklemek veya gerektiğinde ek olarak eklemek için bu klasörü açabilirsiniz.

Hangi yöntemi tercih etmelisiniz?

Sonuç

Bunu sadece ara sıra yapıyorsanız ve az sayıda açık belgeniz varsa, hepsini bir klasöre kaydetmek genellikle yeterlidir. Sık sık yapıyorsanız veya çok sayıda açık dosya ile çalışıyorsanız, Kutools for Word’ün tek tıklamalı yaklaşımıyla zaman kazanabilirsiniz. Eklenti kullanmadan tam otomasyon istiyorsanız, VBA en esnek seçenektir.

Bu eğitimin yararlı olduğunu umuyoruz! Daha fazla Word ipucu ve pratik çözüm keşfetmek istiyorsanız, lütfen buraya tıklayın ve Word eğitimlerimizin tam koleksiyonuna göz atın.