Järgmises artiklis keskendume teile kolme kiire viisi tutvustamisele, kuidas Wordi dokumenti ilma märgistuseta printida.
Kui teie dokument vajab ülevaatamist, saate oma dokumenti kindlasti igasuguseid märgistusi. On viise, kuidas neid ekraanil mitte näidata. Aga kui neid mitte välja printida?
Vastus on positiivne. Ja meie tänane teema on pühendatud teile kolme kiire ja tõhusa meetodi pakkumisele eesmärgi saavutamiseks.
1. meetod: muutke printimissuvandeid
- Alustuseks klõpsake lindil vahekaarti "Fail".
- Järgmisena klõpsake käsku "Prindi".
- Seejärel minge jaotisse "Seaded" ja klõpsake esimest rippmenüüd.
- Tühjendage menüüs valik "Prindi märgistus". Parempoolses eelvaates ei näe te kuskil märgistusi, mis on täpne tulemus.
- Lõpuks valige printer ja määrake muu vorming ning klõpsake nuppu "Prindi".
2. meetod: kasutage VBA koode
Kui eelistate automaatset töötlemist, on makro käitamine teie parim valik.
- Kõigepealt vajutage Wordis VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
- Seejärel klõpsake nuppu "Tavaline".
- Järgmisena klõpsake vahekaarti "Sisesta" ja valige selle menüüst "Moodul".
- Seejärel topeltklõpsake mooduli avamiseks ja kleepige järgmised koodid:
Sub PrintDocWithoutComments()
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
- Lõpuks klõpsake nuppu „Käivita“.
Koodirida “Copies:=1” seab prinditava koopia väärtuseks 1. Koopia numbrit saate vastavalt vajadusele muuta.
3. meetod: mitme dokumendi pakkimine ilma märgistuseta
Kui teil on nüüd ilma märgistuseta printimiseks vaja palju faile, on teie aja säästjaks järgmine makro.
- Esiteks pange kõik sihtdokumendid samasse kausta.
- Seejärel installige ja käivitage makro, järgides meetodi 2 samme.
- Asenda makro selle makroga:
Sub BatchPrintDocsWithoutComments()
Dim objDoc As Document
Dim strFile As String, strFolder As String
' Initialization
strFolder = InputBox("Enter folder path:")
strFile = Dir(strFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Set objDoc = ActiveDocument
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- Nüüd on olemas sisestusväli. Sisesta kausta tee, kuhu sa kõik sihtdokumendid salvestad, ja klõpsa nupul „OK“. Ära unusta tee stringi viimast märki „\“.
Dokumentide korruptsiooniga toimetulemine
Dokumentide korruptsioon on olnud sageli läbiv teema. Tagajärjena, doc taastumine on lavale tõusnud. Wordis on sisseehitatud funktsioon, mis aitab teil katkiseid faile taastada. Kahjuks ei tööta see mõnikord hästi. Seega vajate töö tegemiseks sobivamat tööriista.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli taastamine ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom



