2 სწრაფი გზა რამდენიმე Word დოკუმენტის კონკრეტული გვერდების ჯგუფური ბეჭდვისთვის

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ქვემოთ მოცემულ სტატიაში გვინდა გაგიზიაროთ 2 სწრაფი გზა რამდენიმე Word დოკუმენტის კონკრეტული გვერდების ჯგუფური დაბეჭდვისთვის.

ფაილების ჯგუფური ბეჭდვა ნამდვილად კურთხევაა ბევრი ჩვენგანისთვის. ეს დაზოგავს დროს თითოეული ფაილის გახსნას და ასევე რამდენიმე დაწკაპუნებას. ახლა რაც შეეხება რამდენიმე Word დოკუმენტის კონკრეტული გვერდების ჯგუფური ბეჭდვას? მაგალითად, სასარგებლო იქნება რამდენიმე ფაილის პირველი გვერდის ერთდროულად დაბეჭდვა. ასევე, საჭიროა მრავალი ფაილის „შინაარსი“ ან „ცნობარი“ გვერდების დასაბეჭდად. ასე რომ, შეგვიძლია ამის გაკეთება?

დიახ, პასუხი მოკლეა. და რაც მთავარია, ჩვენ არ გვჭირდება მესამე მხარის დანამატები.

მეთოდი 1: რამდენიმე დოკუმენტის პირველი გვერდის ჯგუფური ამობეჭდვა

დასაწყებად, შეინახეთ ყველა სამიზნე დოკუმენტი ერთ დირექტორიაში.
შემდეგ დააწკაპუნეთ ჩანართზე „დეველოპერი“ და „Visual Basic“ VBA რედაქტორის გასახსნელად. ან ამის ნაცვლად დააჭირეთ "Alt+ F11".
შემდეგ დააჭირეთ ღილაკს "ნორმალური" და შემდეგ "ჩასმა".
აირჩიეთ "მოდული" ჩამოსაშლელ მენიუში.
ახლა იქნება ახალი მოდული. ორჯერ დააწკაპუნეთ მასზე რედაქტირების სივრცის გამოსატანად.
ჩასვით მაკრო მოდულზე:

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  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 Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
    .ActiveDocument.Close
  End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

შემდეგ დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5".
ყუთში, რომელიც გამოჩნდება, შეიყვანეთ საქაღალდის გზა, სადაც ინახავთ ფაილებს, როგორიცაა "E:\სატესტო სიტყვა\ტესტი\". არ დაგავიწყდეთ ბოლო "\". დააჭირეთ "OK" გასაგრძელებლად.

უბრალოდ დაელოდეთ ბეჭდვას.

მეთოდი 2: რამდენიმე დოკუმენტის კონკრეტული გვერდის ჯგუფური ბეჭდვა

მრავალი დოკუმენტის კონკრეტული გვერდის დასაბეჭდად, შეგიძლიათ გამოიყენოთ შემდეგი მაკრო.

დააინსტალირეთ და გაუშვით მაკრო იგივე ნაბიჯებით მეთოდი 1, მაგრამ შეცვალეთ ეს მაკრო:

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String
  Dim strPages As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
  strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
      .ActiveDocument.Close
    End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

ანალოგიურად, პირველ ველში შეიყვანეთ საქაღალდის გზა. შემდეგ მეორე ველში შეიყვანეთ გვერდის ნომერი. თანმიმდევრული გვერდების დასაბეჭდად, გამოიყენეთ დეფისი საწყისი და ბოლო რიცხვების გასაყოფად, მაგალითად, „1-3“. არათანმიმდევრული გვერდების დასაბეჭდად, გამყოფად გამოიყენეთ მძიმე, მაგალითად, „1, 3, 5“. მაგალითად, „1, 3-6“ ნიშნავს 1, 3, 4, 5 და 6 გვერდების დაბეჭდვას.

სარემონტო ინსტრუმენტი, რომელიც უნდა გქონდეთ

ეს ხდება, რომ Word მოულოდნელად წყვეტს პასუხს და ტოვებს თქვენს დოკუმენტს. დიდია გატეხილი ფაილის მემკვიდრეობის შესაძლებლობა a დაზიანებული Word. ზოგჯერ შედეგი ზედმეტად აბსოლუტურია ასატანად. თქვენ შეიძლება დაადანაშაულოთ საკუთარი თავი სარეზერვო ასლების ვერ აღებაში. მაგრამ უფრო მნიშვნელოვანი, რაც უნდა გააკეთოთ, არის აღდგენის პროდუქტის მიღება, რომ დაუყოვნებლივ მიიღოთ მონაცემები.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული Excel მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად