2 วิธีด่วนในการพิมพ์เป็นชุดหน้าเฉพาะของเอกสาร Word หลายชุด

โซลูชั่น Word September 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:\คำทดสอบ\ทดสอบ\" อย่าลืมตัวสุดท้าย “\”. คลิก "ตกลง" เพื่อดำเนินการต่อ

รอพิมพ์อย่างเดียวครับ.

วิธีที่ 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 หยุดตอบสนองกะทันหัน ทำให้เอกสารของคุณค้าง มีความเป็นไปได้สูงที่จะสืบทอดไฟล์ที่เสียหายจากไฟล์ Word เสียหาย. บางครั้งผลที่ตามมาก็เกินจะรับไหว คุณอาจโทษตัวเองที่ล้มเหลวในการสำรองข้อมูล แต่สิ่งสำคัญกว่าที่คุณต้องทำคือขอรับผลิตภัณฑ์กู้คืนเพื่อดึงข้อมูลทันที

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ Excel เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.