В следващата статия ще се съсредоточим върху представянето на 3 бързи начина за отпечатване на вашия документ на Word без надценки.
Ако вашият документ изисква ревизия, тогава определено ще получите всички видове надценки във вашия документ. Има начини да не се показват на екрана. Ами да не ги разпечатате?
Отговорът е положителен. И нашата днешна тема е посветена на това да ви предоставим 3 бързи и ефективни метода за постигане на целта.
Метод 1: Променете опциите за печат
- За начало кликнете върху раздела „Файл“ в лентата.
- След това щракнете върху командата „Печат“.
- След това отидете в раздела „Настройки“ и кликнете върху първото падащо поле.
- В менюто премахнете отметката от опцията „Отпечатване на маркировка“. Никъде няма да видите надценки при предварителен преглед отдясно, което е точният резултат, който ще получите.
- Накрая изберете принтер и задайте друго форматиране и щракнете върху „Печат“.
Метод 2: Използвайте VBA кодове
В случай, че предпочитате автоматична обработка, тогава стартирането на макрос е вашият най-добър избор.
- Първо натиснете „Alt + F11“, за да задействате редактора на VBA в Word.
- След това щракнете върху „Нормално“.
- След това кликнете върху раздела „Вмъкване“ и изберете „Модул“ от неговото меню.
- След това щракнете двукратно, за да отворите модула и поставете следните кодове:
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
- Накрая щракнете върху „Run“.
Кодовият ред „Копия: = 1“ задава копието за печат на 1. Можете да промените номера на копието според нуждите.
Метод 3: Групов печат на множество документи без надценки
Сега, ако имате голям брой файлове, които трябва да отпечатате без маркировки, следният макрос ще ви спести време.
- Първо, поставете всички целеви документи в една и съща папка.
- След това инсталирайте и стартирайте макроса, като следвате стъпки в метод 2.
- Заменете макроса с този:
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
- Сега има поле за въвеждане. Въведете пътя до папката, където съхранявате всички целеви документи, и щракнете върху „OK“. Не забравяйте последния „\“ в низа на пътя.
Справяне с корупцията на документи
Корупцията на документи е често повтаряща се тема. Като последствие, възстановяване на док е излязъл на сцената. В Word има вградена функция, която ви помага да възстановите счупените файлове. За съжаление понякога не работи добре. По този начин се нуждаете от по-подходящ инструмент, за да свършите работата.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Възстановяване на Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com



