2 kiiret viisi mitme Wordi dokumendi konkreetsete lehtede pakkimiseks

Allolevas artiklis tahame teiega jagada 2 kiiret viisi, kuidas mitme Wordi dokumendi konkreetseid lehti pakkides printida.

Failide partiiprintimine on paljudele meist kindlasti õnnistuseks. See säästab aega iga faili avamisel ja ka paar klõpsu. Kuidas on nüüd mitme Wordi dokumendi konkreetsete lehtede partiiprintimisega? Näiteks oleks kasulik printida mitme faili esimene lehekülg korraga. Samuti on vaja mitme faili „Sisu” või „Viidete” lehtede printimiseks. Kas me saame sellega hakkama?

Jah, vastus on lühike. Ja mis kõige tähtsam, me ei vaja mingeid kolmanda osapoole lisandmooduleid.

1. meetod: mitme dokumendi esimese lehe pakkimine

1. Alustamiseks salvestage kõik sihtdokumendid samasse kataloogi.
2. Seejärel klõpsake VBA redaktori avamiseks vahekaarti "Arendaja" ja "Visual Basic". Või vajutage selle asemel klahvikombinatsiooni Alt + F11.
3. Järgmisena klõpsake nuppu "Tavaline" ja seejärel "Insert".
4. Valige rippmenüüst "Moodul".
5. Nüüd tuleb uus moodul. Redigeerimisruumi esiletoomiseks topeltklõpsake sellel.
6. Kleepige makro moodulile:

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. Järgmisena klõpsake nuppu "Käivita" või vajutage "F5".
8. Sisestage ilmuvale kastile kausta tee, kus hoiate faile, näiteks "E:\test word\test\". Ärge unustage viimast "\". Jätkamiseks klõpsake "OK".

Lihtsalt oodake printimist.

2. meetod: mitme dokumendi konkreetsete lehtede partii printimine

Mitme dokumendi konkreetsete lehtede printimiseks saate kasutada järgmist makrot.

Installige ja käivitage makro samade sammudega 1. meetodis, kuid asendage selle makroga:

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

Samamoodi sisestage esimesse kasti kausta tee. Seejärel sisestage teise kasti leheküljenumber. Järjestikuste lehekülgede printimiseks kasutage algus- ja lõppnumbrite eraldamiseks sidekriipsu, näiteks „1–3“. Järjestikuste lehekülgede printimiseks kasutage eraldajana koma, näiteks „1, 3, 5“. Näiteks „1, 3–6“ tähendab lehekülgede 1, 3, 4, 5 ja 6 printimist.

Vajalik parandustööriist

Juhtub, et Word lõpetab ootamatult reageerimise, jättes teie dokumendi kinni. Võimalus pärida katkine fail a-lt on suur kahjustatud Word. Mõnikord on tagajärg liiga ülekaalukas, et seda taluda. Võite süüdistada end varukoopiate tegemise ebaõnnestumises. Kuid veelgi olulisem asi, mida peate tegema, on hankida taastav toode, et andmed viivitamatult alla laadida.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud Excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom