V následujícím článku se zaměříme na představení 3 rychlých způsobů tisku dokumentu Wordu bez značek.

Pokud váš dokument vyžaduje revizi, pak se v něm určitě objeví nejrůznější značky. Existují způsoby, jak je na obrazovce nezobrazovat. A co je nevytisknout?

Odpověď je kladná. A naše dnešní téma je věnováno tomu, abychom vám poskytli 3 rychlé a účinné metody, jak tohoto cíle dosáhnout.

Způsob 1: Změna možností tisku

1. Na začátek klikněte na kartu „Soubor“ na pásu karet.
2. Dále klikněte na příkaz „Tisk“.
3. Poté přejděte do sekce „Nastavení“ a klikněte na první rozbalovací pole.
4. V nabídce zrušte výběr možnosti „Tisknout značky“. V náhledu na pravé straně nikde neuvidíte značky, což je přesný výsledek, který dostanete.
5. Nakonec vyberte tiskárnu a nastavte další formátování a klikněte na tlačítko „Tisk“.

Způsob 2: Použití kódů VBA

V případě, že dáváte přednost automatickému zpracování, pak je spuštění makra nejlepší volbou.

1. Nejprve stiskněte „Alt+ F11“, čímž spustíte editor VBA ve Wordu.
2. Poté klikněte na „Normální“.
3. Dále klikněte na kartu „Vložit“ a v její nabídce vyberte „Modul“.
4. Poté dvojitým kliknutím otevřete modul a vložte následující kódy:

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:=0End Sub

1. Nakonec klikněte na „Spustit“.

Řádek kódu „Kopie:=1“ nastaví tiskovou kopii na hodnotu 1. Počet kopií můžete změnit podle potřeby.

Metoda 3: Dávkový tisk více dokumentů bez značek

Pokud nyní potřebujete vytisknout velké množství souborů bez značek, následující makro vám ušetří čas.

1. Nejprve vložte všechny cílové dokumenty do stejné složky.
2. Poté nainstalujte a spusťte makro podle kroků uvedených v metodě 2.
3. Nahraďte makro tímto:

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() WendEnd Sub

1. Nyní se objeví vstupní pole. Zadejte cestu ke složce, do které ukládáte všechny cílové dokumenty, a klikněte na tlačítko „OK“. Nezapomeňte na poslední „\“ v řetězci cesty.

Vypořádejte se s poškozením dokumentů

Poškození dokumentů je často se opakující téma. V důsledku toho se na scénu dostala obnova dokumentů. Ve Wordu je zabudovaná funkce, která vám pomůže obnovit poškozené soubory. Bohužel někdy nefunguje dobře. Proto potřebujete k této práci vhodnější nástroj.

Představení autora:

Vera Chen je odborníkem na obnovu dat ve společnosti DataNumen, Inc, která je světovým lídrem v oblasti technologií obnovy dat, včetně softwarových produktů pro obnovu aplikace Excel a opravu souborů pdf. Další informace naleznete na adrese www.datanumen.com

.