2 hurtige måder til batch-udskrivning af specifikke sider i flere orddokumenter

I artiklen nedenfor ønsker vi at dele med dig 2 hurtige måder at batchudskrive specifikke sider med flere Word-dokumenter.

Batchudskrivning af filer er bestemt en velsignelse for mange af os. Det sparer tid på at åbne hver fil og også et par klik. Hvad med batchudskrivning af bestemte sider i flere Word-dokumenter? For eksempel ville det være nyttigt at udskrive den første side i flere filer på samme tid. Det er også nødvendigt at udskrive siderne "Indhold" eller "Referencer" i flere filer. Så kan vi gøre det?

Ja, svaret er kort. Og den største ting er, at vi ikke har brug for nogen tredjeparts tilføjelser.

Metode 1: Batchudskriv den første side af flere dokumenter

1. For at starte skal du gemme alle måldokumenter i den samme mappe.
2. Klik derefter på fanen "Udvikler" og "Visual Basic" for at åbne VBA-editor. Eller tryk "Alt + F11" i stedet.
3. Klik derefter på “Normal” og derefter “Indsæt”.
4. Vælg "Module" i rullemenuen.
5. Nu kommer der et nyt modul. Dobbeltklik på den for at frembringe redigeringsområdet.
6. Indsæt makroen på modulet:

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

7. Klik derefter på knappen "Kør" eller tryk på "F5".
8. Når boksen dukker op, skal du indtaste mappestien, hvor du opbevarer filer, såsom “E: \ testord \ test \". Glem ikke det sidste “\”. Klik på “OK” for at fortsætte.

Vent bare til udskrivningen.

Metode 2: Batchudskrivning af specifikke sider i flere dokumenter

For at udskrive bestemte sider i flere dokumenter kan du bruge følgende makro.

Installer og kør makro med de samme trin i metode 1, men erstat med denne makro:

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

Indtast ligeledes stien til mappen i det første felt. Indtast derefter sidetallet i det andet felt. For at udskrive fortløbende sider skal du bruge en bindestreg til at adskille start- og sluttallene, f.eks. "1-3". For at udskrive usammenhængende sider skal du bruge et komma som separator, f.eks. "1, 3, 5". For eksempel betyder "1, 3-6" at udskrive side 1, 3, 4, 5 og 6.

Reparationsværktøj, du skal have

Det sker, at Word holder op med at reagere pludselig og efterlader dit dokument fast. Muligheden er stor for at arve en ødelagt fil fra en beskadiget Word. Nogle gange er konsekvensen for overvældende at bære. Du kan måske bebrejde dig selv for ikke at tage backup. Men en vigtigere ting, du skal gøre, er at få et gendannende produkt til at hente dataene med det samme.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder ødelagt Excel og pdf produkter til reparation af software. For mere information besøg www.datanumen.com