U sljedećem ćemo se članku usredotočiti na predstavljanje 3 brza načina ispisa Word dokumenta bez označavanja.
Ako vaš dokument zahtijeva reviziju, tada ćete sigurno dobiti sve vrste oznaka u svom dokumentu. Postoje načini da ih ne prikažete na ekranu. Što ako ih ne isprintate?
Odgovor je pozitivan. A naša današnja tema posvećena je pružanju 3 brze i učinkovite metode za postizanje cilja.
Metoda 1: Promjena opcija ispisa
- Za početak kliknite karticu "Datoteka" na vrpci.
- Zatim kliknite naredbu "Ispis".
- Zatim idite na odjeljak "Postavke" i kliknite na prvi padajući okvir.
- Na izborniku poništite odabir opcije "Print Markup". Nećete vidjeti oznake nigdje na desnom pregledu, što je točan rezultat koji ćete dobiti.
- Na kraju odaberite pisač i postavite drugo formatiranje te kliknite "Ispis".
Metoda 2: Koristite VBA kodove
U slučaju da više volite automatsku obradu, tada je pokretanje makronaredbe vaš najbolji izbor.
- Najprije pritisnite “Alt+ F11” da pokrenete VBA editor u Wordu.
- Zatim kliknite "Normalno".
- Zatim kliknite karticu "Umetni" i odaberite "Modul" na izborniku.
- Zatim duplim klikom otvorite modul i zalijepite sljedeće kodove:
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
- Na kraju kliknite "Pokreni".
Redak koda “Kopije:=1” postavlja kopiju za ispis na 1. Možete promijeniti broj kopije prema potrebi.
Metoda 3: Skupni ispis više dokumenata bez oznaka
Sada, ako imate veliki broj datoteka koje trebate ispisati bez oznaka, sljedeća makronaredba će vam uštedjeti vrijeme.
- Prvo, sve ciljne dokumente stavite u istu mapu.
- Zatim instalirajte i pokrenite makro slijedeći korake u metodi 2.
- Zamijenite makronaredbu ovim:
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
- Sada se nalazi okvir za unos. Unesite putanju mape u koju pohranjujete sve ciljne dokumente i kliknite "U redu". Ne zaboravite zadnji "\" u nizu putanje.
Nosite se s oštećenjem dokumenata
Oštećenje dokumenata tema je koja se često ponavlja. Kao posljedica, oporavak dokumenta je izašao na pozornicu. U Wordu postoji ugrađena funkcija koja vam pomaže oporaviti pokvarene datoteke. Nažalost, ponekad ne funkcionira dobro. Stoga vam je za obavljanje posla potreban prikladniji alat.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel oporavak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com



