Alla olevassa artikkelissa haluamme jakaa kanssasi kaksi nopeaa tapaa tulostaa useiden Word-asiakirjojen tiettyjä sivuja.
Tiedostojen erätulostus on varmasti siunaus monille meistä. Se säästää aikaa jokaisen tiedoston avaamisessa ja myös muutamalla napsautuksella. Entäpä useiden Word-asiakirjojen tiettyjen sivujen erätulostus? Esimerkiksi useiden tiedostojen ensimmäinen sivu olisi hyödyllistä tulostaa samanaikaisesti. Myös useiden tiedostojen Sisältö- tai Viittaussivujen tulostamiseen tarvitaan myös. Joten voimmeko tehdä sen?
Kyllä, vastaus on lyhyt. Ja mikä parasta, emme tarvitse kolmannen osapuolen lisäosia.
Tapa 1: Erätulostus useiden asiakirjojen ensimmäinen sivu
- Aloita tallentamalla kaikki kohdetiedostot samaan hakemistoon.
- Napsauta sitten "Kehittäjä"-välilehteä ja "Visual Basic" avataksesi VBA-editorin. Tai paina sen sijaan "Alt+F11".
- Napsauta sitten “Normal” ja sitten “Insert”.
- Valitse avattavasta valikosta Moduuli.
- Nyt tulee uusi moduuli. Kaksoisnapsauta sitä tuodaksesi muokkaustilan esiin.
- Liitä makro moduuliin:
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
- Napsauta seuraavaksi "Suorita" -painiketta tai paina "F5".
- Kirjoita avautuvaan ruutuun kansion polku, jossa säilytät tiedostoja, kuten "E:\testisana\testi\". Älä unohda viimeistä "\". Napsauta "OK" jatkaaksesi.
Odota vain tulostusta.
Tapa 2: Erätulostus useiden asiakirjojen tietyt sivut
Voit tulostaa useiden asiakirjojen tiettyjä sivuja käyttämällä seuraavaa makroa.
Asenna ja suorita makro samalla tavalla kuin menetelmässä 1, mutta korvaa se tällä makrolla:
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
Syötä vastaavasti kansion polku ensimmäiseen ruutuun. Syötä sitten sivunumero toiseen ruutuun. Jos haluat tulostaa peräkkäisiä sivuja, erota aloitus- ja lopetusnumerot yhdysmerkillä, kuten "1-3". Jos haluat tulostaa peräkkäisiä sivuja, käytä pilkkua erottimena, kuten "1, 3, 5". Esimerkiksi "1, 3-6" tarkoittaa sivujen 1, 3, 4, 5 ja 6 tulostamista.
Korjaustyökalu, jota tarvitset
Sattuu niin, että Word lakkaa vastaamasta yhtäkkiä, jolloin asiakirjasi jää jumiin. Mahdollisuus periä rikkinäinen tiedosto on suuri vahingoittunut Word. Joskus seuraukset ovat liian painavia kestettäväksi. Voit syyttää itseäsi siitä, että et ole ottanut varmuuskopioita. Mutta vielä tärkeämpää on hankkia palautuva tuote tietojen hakemiseksi välittömästi.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut Excel ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com