I den kommende artikel vil vi fokusere på at introducere dig 3 hurtige måder at udskrive dit Word-dokument uden markeringer.
Hvis dit dokument kræver revision, får du helt sikkert alle former for markeringer i dit dokument. Der er måder ikke at vise dem på skærmen. Hvad med ikke at udskrive dem?
Svaret er positivt. Og vores emne i dag er afsat til at give dig 3 hurtige og effektive metoder til at nå målet.
Metode 1: Ændr udskriftsindstillinger
- Til at begynde med skal du klikke på "File" -fanen i båndet.
- Klik derefter på "Udskriv" kommandoen.
- Gå derefter til afsnittet "Indstillinger" og klik på det første rullemenu.
- Fravælg valgmuligheden "Udskriv markering" i menuen. Du kan ikke se markeringer på forhåndsvisning af højre side, hvilket er det nøjagtige resultat, du får.
- Til sidst skal du vælge printer og indstille anden formatering og klikke på "Udskriv".
Metode 2: Brug VBA-koder
Hvis du foretrækker automatisk behandling, er det dit bedste valg at køre en makro.
- Først skal du trykke på "Alt + F11" for at udløse VBA-editoren i Word.
- Klik derefter på “Normal”.
- Klik derefter på fanen "Indsæt", og vælg "Modul" i dens menu.
- Dobbeltklik derefter for at åbne modulet og indsætte følgende koder:
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
- Klik til sidst på "Kør".
Kodelinjen "Kopier: = 1" indstiller udskriftskopien til 1. Du kan ændre kopienummeret efter behov.
Metode 3: Batchudskriv flere dokumenter uden markeringer
Hvis du nu har et stort antal filer, der skal udskrives uden markeringer, er følgende makro din tidsbesparende.
- Først skal du placere alle måldokumenter i den samme mappe.
- Installer og kør derefter makro ved at følge trinene i metode 2.
- Udskift makro med denne:
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
- Nu vises et inputfelt. Indtast stien til den mappe, hvor du gemmer alle måldokumenterne, og klik på “OK”. Glem ikke det sidste “\” i stistrengen.
Håndter dokumentkorruption
Dokumentkorruption har været et ofte tilbagevendende tema. Som en konsekvens, doc opsving er kommet op på scenen. Der er en indbygget funktion i Word, der hjælper dig med at gendanne de ødelagte filer. Desværre fungerer det ikke godt nogle gange. Således har du brug for et mere kvalificeret værktøj til at udføre jobbet.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder Excel-gendannelse og pdf produkter til reparation af software. For mere information besøg www.datanumen.com



