Birden Çok Word Belgesini Toplu Yazdırmanın 2 Hızlı Yolu

Şimdi paylaş:

Bugünkü yazımızda, birden fazla Word belgesini aynı anda toplu olarak yazdırmanın 2 hızlı yolunu sizlerle paylaşmaktan mutluluk duyuyoruz.

Belge devam ederken, baskı hakkında konuşmamak zor. Normalde bir belgeyi açıp tek tek ayrı ayrı yazdırırdık. Yalnızca birkaç dosya olduğunda bu kabul edilebilir. Ancak, çok sayıda belgeden bahsetmişken, her birini manuel olarak açıp yazdırmak yerine daha hızlı çözümler bulmalıyız.Çoklu Word Belgelerini Toplu Yazdırma

Birden çok Word belgesini toplu olarak yazdırmak için kullanabileceğiniz 2 yöntem aşağıdadır.

Yöntem 1: Bağlam Menüsünden yazdırın

  1. Başlangıç ​​olarak, yazdırırken belge seçmeyi sevmiyorsanız, hepsini aynı dizin altında düzenleyebilirsiniz.
  2. Ardından hedef belgeleri sakladığınız konuma gidin.
  3. Tüm belgeleri seçmek için "Ctrl + A" tuşlarına basın.
  4. Sağ tıklayın ve "Yazdır" ı seçin.Belgeler->Sağ Tıkla->"Yazdır"ı seçin

Bu arada, bu yöntemle her seferinde en fazla 15 belge yazdırabilirsiniz.

Yöntem 2: Belgeleri VBA aracılığıyla Toplu Yazdırma

Yöntem 1'in 15 ile bir sayı sınırlaması olduğundan, kısıtlamayı atlamak için makro yolunu seçebilirsiniz.

  1. Öncelikle, tüm hedef dosyaları aynı klasörde düzenleyin.
  2. Ardından "Geliştirici" sekmesine ve ardından "Visual Basic"e tıklayın. "Geliştirici" sekmesi henüz Şeritte değilse, VBA düzenleyicisini çağırmak için bunun yerine "Alt + F11" tuşlarına basın."Geliştirici"ye tıklayın -> "Visual Basic"e tıklayın
  3. Ardından “Normal” ve “Ekle” sekmesine tıklayın.
  4. Ve yeni bir tane oluşturmak için "Modül"ü seçin."Normal" -> "Ekle" seçeneğine tıklayın -> "Modül" seçeneğine tıklayın
  5. Kodlama alanının sağda olması için modüle çift tıklayın.
  6. Kodları oraya yapıştırın:
Sub BatchPrintWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub
  1. Son olarak, "Çalıştır" düğmesine tıklayın veya "F5" tuşuna basın.Makro yapıştır-> "Çalıştır" ı tıklayın

Şimdi bir kutu açılacak. Belgeleri sakladığınız yolu girin ve ardından yazdırmayı beklemek için "Tamam"a tıklayın.

Elbette, gelecekte kullanmak için makroya bir düğme atayabilirsiniz. Daha fazla ayrıntı için bu bağlantıyı takip edebilirsiniz: Word'ünüzdeki Makro ve VBA ile Yapıştırılan Metinlerin Biçimlendirmesini Kaldırma

Word Belgelerinize İyi Bakın

Word'ün hatalara ve hatalara açık olduğunu bildiğimiz için belgelerimiz her zaman risk altındadır. Bu nedenle, değerli verileri güvence altına almak için önlemler almanın zamanı geldi. Örneğin, bir ile bitmesini önlemek için bozuk belge, günlük olarak yedek almak iyi bir alışkanlıktır.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel onarımı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com

Şimdi paylaş:

Yoruma kapalı.