U narednom članku ćemo se fokusirati na to da vam predstavimo 3 brza načina za ispis vašeg Word dokumenta bez oznaka.
Ako vaš dokument zahtijeva reviziju, onda ćete sigurno dobiti sve vrste oznaka u vašem dokumentu. Postoje načini da se ne prikazuju na ekranu. A da ih ne odštampate?
Odgovor je pozitivan. A naša današnja tema je posvećena tome da vam pružimo 3 brze i efikasne metode za postizanje cilja.
1. metod: Izmenite opcije štampanja
- Za početak, kliknite karticu "Datoteka" na traci.
- Zatim kliknite na naredbu “Print”.
- Zatim idite na odjeljak "Postavke" i kliknite na prvi padajući okvir.
- U meniju poništite izbor opcije „Print Markup“. Nigdje nećete vidjeti oznake na pregledu s desne strane, što je tačan rezultat koji ćete dobiti.
- Na kraju, odaberite štampač i postavite drugo formatiranje i kliknite na “Print”.
Metod 2: Koristite VBA kodove
U slučaju da više volite automatsku obradu, onda je pokretanje makroa vaš najbolji izbor.
- Prvo pritisnite “Alt+ F11” da pokrenete VBA editor u Wordu.
- Zatim kliknite na “Normalno”.
- Zatim kliknite na karticu "Insert" i odaberite "Module" na njegovom meniju.
- Zatim dvaput kliknite da 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".
Kodna linija “Kopije:=1” postavlja kopiju za štampanje na 1. Možete promijeniti broj kopije po potrebi.
Metoda 3: Paketno štampanje više dokumenata bez oznaka
Sada ako imate veliki broj datoteka koje treba ispisati bez oznaka, sljedeći makro ć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 makro sa 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 polje za unos. Unesite putanju mape u koju pohranjujete sve ciljne dokumente i kliknite na "OK". Ne zaboravite posljednji "\" u nizu putanje.
Nosite se s korupcijom dokumenata
Korupcija dokumenata je tema koja se često ponavlja. Kao posljedica, doc recovery je izašao na scenu. U Wordu postoji ugrađena funkcija koja vam pomaže da oporavite pokvarene datoteke. Nažalost, ponekad ne radi dobro. Stoga vam je potreban odgovarajući alat za obavljanje posla.
Uvod za autora:
Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel oporavak i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com



