Kitame straipsnyje mes sutelksime dėmesį į 3 greitus būdus, kaip atspausdinti „Word“ dokumentą be žymėjimų.
Jei jūsų dokumentą reikia peržiūrėti, dokumente tikrai gausite visų rūšių žymes. Yra būdų, kaip jų nerodyti ekrane. O kaip jų neišspausdinti?
Atsakymas teigiamas. Ir mūsų šiandienos tema yra skirta suteikti jums 3 greitus ir veiksmingus būdus, kaip pasiekti tikslą.
1 būdas: pakeiskite spausdinimo parinktis
- Norėdami pradėti, juostelėje spustelėkite skirtuką „Failas“.
- Tada spustelėkite komandą „Spausdinti“.
- Tada eikite į skyrių „Nustatymai“ ir spustelėkite pirmąjį išskleidžiamąjį laukelį.
- Meniu panaikinkite parinkties „Spausdinti žymėjimą“ pasirinkimą. Dešinėje peržiūroje niekur nematysite žymenų, o tai yra tikslus rezultatas.
- Galiausiai pasirinkite spausdintuvą ir nustatykite kitą formatavimą ir spustelėkite „Spausdinti“.
2 būdas: naudokite VBA kodus
Jei pageidaujate automatinio apdorojimo, makrokomandos paleidimas yra geriausias pasirinkimas.
- Pirmiausia paspauskite „Alt + F11“, kad paleistumėte VBA redaktorių „Word“.
- Tada spustelėkite „Normalus“.
- Tada spustelėkite skirtuką „Įterpti“ ir jo meniu pasirinkite „Modulis“.
- Tada dukart spustelėkite, kad atidarytumėte modulį ir įklijuokite šiuos kodus:
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
- Galiausiai spustelėkite „Vykdyti“.
Kodo eilutė „Copies:=1“ nustato spausdinimo kopiją 1. Galite pakeisti kopijos numerį pagal poreikį.
3 būdas: paketinis kelių dokumentų spausdinimas be žymų
Dabar, jei turite daug failų, kuriuos reikia spausdinti be žymėjimų, toliau nurodyta makrokomanda padės sutaupyti laiko.
- Pirmiausia visus tikslinius dokumentus sudėkite į tą patį aplanką.
- Tada įdiekite ir paleiskite makrokomandą, atlikdami 2 metodo veiksmus.
- Pakeiskite makrokomandą šia:
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
- Dabar yra įvesties laukas. Įveskite aplanko, kuriame saugote visus tikslinius dokumentus, kelią ir spustelėkite „Gerai“. Nepamirškite paskutinio simbolio „\“ kelio eilutėje.
Susidoroti su dokumentų korupcija
Dokumentų korupcija buvo dažnai pasikartojanti tema. Dėl to, doc atkūrimo užlipo ant scenos. „Word“ yra integruota funkcija, padedanti atkurti sugadintus failus. Deja, kartais tai neveikia gerai. Taigi darbui atlikti reikia tinkamesnio įrankio.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com



