Բազմաթիվ բառային փաստաթղթերի խմբաքանակի հատուկ էջերի տպման 2 արագ եղանակներ

Ստորև բերված հոդվածում մենք ուզում ենք ձեզ հետ կիսվել Word- ի բազմաթիվ փաստաթղթերի հատուկ էջերը խմբաքանակով տպելու 2 արագ եղանակով:

Ֆայլերի խմբաքանակով տպագրությունը հաստատ շատ օրհնություն է մեզանից շատերի համար: Այն խնայում է յուրաքանչյուր ֆայլը բացելու ժամանակը և մի քանի կտտացնում: Հիմա ի՞նչ կարելի է ասել Word- ի բազմաթիվ փաստաթղթերի հատուկ էջերի տպագրության մասին: Օրինակ, օգտակար կլիներ միաժամանակ մի քանի ֆայլերի առաջին էջը տպել: Բացի այդ, անհրաժեշտ է նաև մի քանի ֆայլերի «Բովանդակություն» կամ «Հղումներ» էջերը տպելու համար: Ուրեմն կարո՞ղ ենք դա անել:

Այո, պատասխանը կարճ է: Եվ ամենամեծն այն է, որ մենք ոչ մի երրորդ կողմի հավելումների կարիք չունենք:

Մեթոդ 1. Տպեք բազմակի փաստաթղթերի առաջին էջը խմբաքանակով

1. Սկսելու համար պահեք բոլոր նպատակային փաստաթղթերը նույն գրացուցակում։
2. Դրանից հետո կտտացրեք «Մշակող» ներդիրին և «Visual Basic» - ին ՝ VBA խմբագիր բացելու համար: Կամ փոխարենը սեղմեք «Alt + F11»:
3. Հաջորդը կտտացրեք «Նորմալ» և ապա «Տեղադրել»:
4. Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
5. Այժմ կլինի նոր մոդուլ: Կրկնակի կտտացրեք այն `խմբագրման տարածքը դուրս բերելու համար:
6. Կպցրեք մակրոը մոդուլի վրա.

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. Հաջորդը կտտացրեք «Գործարկել» կոճակին կամ սեղմեք «F5»:
8. Theուցադրված տուփի վրա մուտքագրեք պանակի ուղին, որտեղ դուք պահում եք ֆայլեր, ինչպիսիք են «E: \ test բառը \ test \". Մի մոռացեք վերջին «\», Շարունակելու համար կտտացրեք «Լավ»:

Ուղղակի սպասեք տպագրությանը:

Մեթոդ 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- ը հանկարծ դադարում է պատասխանել `ձեր փաստաթուղթը խրված թողնելով: Կոտրված ֆայլ ժառանգելու հավանականությունը մեծ է ա վնասված Բառը, Երբեմն հետևանքը չափազանց ծանրաբեռնված է տանելու համար: Կարող եք ինքներդ ձեզ մեղադրել պահուստային ֆայլեր չվերցնելու մեջ: Բայց ավելի կարևոր բանը, որ դուք պետք է անեք, վերականգնվող արտադրանք ձեռք բերելն է ՝ տվյալներն անմիջապես ստանալու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված Excel- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com