V tomto článku bychom vám rádi představili 2 způsoby, jak omezit úpravy záhlaví a zápatí v dokumentu aplikace Word.
Jak víme, záhlaví a zápatí dokumentu by si měly zachovat svou integritu, aby bylo formátování profesionální. Bylo by tedy hezké vyvinout způsoby, jak zabránit záměrné nebo náhodné úpravě záhlaví nebo zápatí. Jako obvykle nabízíme 2 způsoby.
Metoda 1: Omezte ruční úpravy záhlaví a zápatí
- Chcete-li začít, stiskněte „Ctrl+Home“ a přejděte do záhlaví dokumentu.
- Dále klikněte na kartu „Rozvržení stránky“.
- Poté klikněte na „Breaks“ ve skupině „Page Setup“.
- A v rozevírací nabídce vyberte možnost „Nepřetržitý“.

Pokud nyní odhalíte všechny skryté značky, uvidíte, že byl vložen souvislý konec sekce.
- Poté klikněte na kartu „Review“ a poté na příkaz „Omezit úpravy“ a otevřete podokno „Omezit formátování a úpravy“ na pravé straně obrazovky.
- Zaškrtněte políčko „Povolit v dokumentu pouze tento typ úprav“ a vyberte možnost „Vyplňování formulářů“.
- Dále klikněte na „Vybrat sekce“ pro vyvolání dialogového okna „Ochrana sekce“.
- V tomto poli zaškrtněte pouze políčko „Sekce 1“ a klikněte na „OK“.
- Poté klikněte na „Ano, Start Prosazování ochrany“.
- Nakonec zadejte a znovu zadejte heslo a klikněte na „OK“.
Zdaleka, když kliknete na oblast záhlaví nebo zápatí, nebudete moci vstoupit.
Metoda 2: Omezte úpravy záhlaví a zápatí prostřednictvím jazyka VBA
- Stisknutím „Alt+ F11“ nejprve otevřete editor VBA.
- Poté klikněte na „Normální“ projekt a poté na kartu „Vložit“.
- Vyberte v nabídce „Modul“ a vložte nový pod projekt „Normální“.
- Dvojitým kliknutím na modul zobrazte oblast kódování a vložte do ní následující makro:
Sub ProtectHeaderAndFooter() Selection.HomeKey Unit:=wdStory Selection.InsertBreak Type:=wdSectionBreakContinuous ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Protect wdAllowOnlyFormFields End Sub
Mimochodem, v případě, že potřebujete dávkově zpracovat více dokumentů, vložte místo toho toto makro:
Sub ProtectHeaderAndFooterInMultiDoc()
Dim objDoc As Document
Dim strFile As String, strFolder As String
' Initialization
strFolder = "C:\Users\Public\Documents\New folder\Test2\"
strFile = Dir(strFolder & "*.docx", vbNormal)
' Precess each document in the folder.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & strFile)
Selection.HomeKey Unit:=wdStory
Selection.InsertBreak Type:=wdSectionBreakContinuous
ActiveDocument.Sections(1).ProtectedForForms = True
ActiveDocument.Protect wdAllowOnlyFormFields
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
Nezapomeňte však uspořádat všechny dokumenty do stejné složky dříve, než cokoli jiného. A nahraďte „C:\Users\Public\Documents\New folder\Test2\“ svou skutečnou cestou ke složce.
- Nakonec klikněte na „Spustit“.
Při použití makra není nutné zadávat heslo pro ochranu záhlaví a zápatí.
Vypořádejte se s problémy s dokumenty
Dokumenty Word, stejně jako všechny ostatní typy souborů, jsou snadnou obětí poškození softwaru. Proto, abyste si zajistili své cenné dokumenty a zabránili jim, aby byly navždy nepřístupné, můžete si vzít řasu a Oprava docx nástroj.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Excel poškození a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com





