V naslednjem članku se bomo osredotočili na tri kratke načine za tiskanje Wordovega dokumenta brez oznak.
Če vaš dokument zahteva revizijo, boste zagotovo dobili vse vrste pribitkov v dokumentu. Obstajajo načini, da jih ne prikažete na zaslonu. Kaj pa, če jih ne natisnete?
Odgovor je pozitiven. Naša današnja tema je namenjena temu, da vam ponudimo 3 hitre in učinkovite metode za dosego cilja.
1. način: Spremenite možnosti tiskanja
- Za začetek na traku kliknite zavihek »Datoteka«.
- Nato kliknite ukaz »Natisni«.
- Nato pojdite na razdelek »Nastavitve« in kliknite prvo spustno polje.
- V meniju počistite možnost »Natisni oznako«. Na desnem predogledu ne boste nikjer videli oznak, kar je natančen rezultat, ki ga boste dobili.
- Na koncu izberite tiskalnik in nastavite drugo oblikovanje ter kliknite »Natisni«.
2. način: Uporabite kode VBA
Če imate raje samodejno obdelavo, je najboljša izbira zagon makra.
- Najprej pritisnite "Alt + F11", da sprožite urejevalnik VBA v Wordu.
- Nato kliknite »Normal«.
- Nato kliknite jeziček »Vstavi« in v njegovem meniju izberite »Modul«.
- Nato dvokliknite, da odprete modul, in prilepite naslednje kode:
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 koncu kliknite »Zaženi«.
V vrstici kode »Kopije: = 1« je kopija tiska nastavljena na 1. Številko kopije lahko spremenite po potrebi.
3. način: paketno tiskanje več dokumentov brez oznak
Če imate zdaj veliko datotek za tiskanje brez oznak, vam bo prihranil čas naslednji makro.
- Najprej shranite vse ciljne dokumente v isto mapo.
- Nato namestite in zaženite makro po naslednjih korakih v 2. metodi.
- Zamenjajte makro s tem:
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
- Zdaj se prikaže vnosno polje. Vnesite pot do mape, kamor shranite vse ciljne dokumente, in kliknite »V redu«. Ne pozabite na zadnji znak »\« v nizu poti.
Obvladovanje korupcije dokumentov
Korupcija dokumentov je bila pogosto ponavljajoča se tema. Kot posledica, doc izterjava je prišel na oder. V Wordu je vgrajena funkcija, ki vam pomaga obnoviti zlomljene datoteke. Žal včasih ne deluje dobro. Zato za opravljanje dela potrebujete ustreznejše orodje.
Uvod avtorja:
Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Excel obnovitev in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com



