3 spôsoby, ako rýchlo vložiť zlomy sekcií do dokumentu Word

V tomto článku sa zameriame na to, aby sme vám ukázali 3 spôsoby, ako rýchlo vložiť zlomy sekcií do vášho dokumentu Word.

Konce sekcií sú užitočné pri rozdelení dokumentu na sekcie, kapitoly atď. Okrem toho je vkladanie koncov sekcií nevyhnutnou súčasťou nastavenia rôznych hlavičiek alebo päty na rôznych stránkach.

Za normálnych okolností budeme musieť prejsť na stránku a nájsť kurzor na správnej pozícii. Ďalej kliknite na „Rozloženie stránky“ a „Konce“. Potom v rozbaľovacej ponuke vyberte typ prerušenia sekcie. Takéto konanie môže byť niekedy zdĺhavé. Preto vás chceme uchrániť od zaužívanej rutiny a prijať rýchle a špinavé riešenie.

Metóda 1: Vloženie zlomu sekcie na konkrétnu stránku

1. Najskôr stlačte „Alt + F11“ v programe Word, čím vyvoláte editor VBA.
2. Ďalej vytvorte nový modul kliknutím na „Normálny“ v ľavom stĺpci.
3. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
4. V rozbaľovacej ponuke „Vložiť“ vyberte možnosť „Modul“.
5. Dvojitým kliknutím otvoríte nový modul.
6. Vložte nasledujúce makro do oblasti kódovania:

Sub InsertBreakOnSpecificPage () Dim strPageNum As String Dim nPageNum As Integer strPageNum = InputBox ("Zadajte číslo stránky:") nPageNum = Int (strPageNum) Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext.Name, n = = ("\ page"). Range.Select Selection.Collapse wdCollapseEnd Selection.InsertBreak Typ: = wdSectionBreakContinuous End Sub

7. Teraz kliknite na „Spustiť“ alebo stlačte „F5“ na spustenie kódu.
8. Ďalej zadajte číslo stránky tardostať stránku do poľa s výzvou. Pokračujte kliknutím na tlačidlo „OK“.

Zatiaľ ste vložili zlom sekcie na koniec stránky 2.

Poznámky:

Ak chcete oddeliť niekoľko po sebe nasledujúcich stránok ako sekciu pomocou zlomov sekcií, musíte vložiť zlom sekcie dvakrát, jeden na koniec poslednej stránky predchádzajúcej sekcie a jeden na koniec poslednej stránky tejto novej sekcie. .

V takom prípade by ste si pri vkladaní prvého prerušenia mali pamätať na zadanie správneho čísla, ktoré je číslom stránky poslednej strany predchádzajúcej časti.

Metóda 2: Vloženie zlomu sekcie na každú stránku dokumentu

1. Najskôr nainštalujte a spustite makro podľa vyššie uvedených krokov.
2. Potom nahraďte makro týmto:

Sub InsertBreakOnEachPage () Dim nTotalPageNumber As Integer For nTotalPageNumber = 1 To Selection.Information (wdNumberOfPagesInDocument) Selection.GoTo What: = wdGoToPage, Which: = wdGoToNext, Name: = nTotalPageNumber.Target = wdBrowsePage ActiveDocument.Bookmarks ("\ page"). Range.Select Selection.Collapse wdCollapseEnd Selection.InsertBreak Typ: = wdSectionBreakContinuous Ďalší Koniec Sub

Toto makro vloží koniec sekcie na koniec každej stránky aktuálneho dokumentu.

Metóda 3: Vloženie zlomu sekcie na každú stránku viacerých dokumentov

1. Na začiatok dať všetko tarzískať dokumenty v rovnakom priečinku.
2. Potom podobne nainštalujte a spustite makro so správnymi pokynmi.
3. Tentokrát použite tieto kódy:

Sub InsertBreaksIntoMultiDoc () Dim StrFolder As String Dim strFile As String Dim objDoc As Document Dim dlgFile As FileDialog Dim nTotalPageNumber As Integer Set dlgFile = Application.FileDialog (msoFileDialogFolderPicker) With dlgFile If .Show = -1Strem = 1 Then StrFold If .Show = -XNUMX Then StrFold If .Show = -XNUMX Then StrFolder "\" Else MsgBox "Nie je vybraný žiadny priečinok! Vyberte prosím tarzískať priečinok. "Ukončiť vedľajší koniec, ak končí strFile = Dir (StrFolder &" * .docx ", vbNormal) While strFile <>" "Set objDoc = Documents.Open (FileName: = StrFolder & strFile) pre nTotalPageNumber = 1 na výber .Information (wdNumberOfPagesInDocument) Selection.GoTo What: = wdGoToPage, which: = wdGoToNext, Name: = nTotalPageNumber Application.Browser.Target = wdBrowsePage ActiveDocument.Bookmarks ("\ page"). Range.Select Selection.Collapse wdCollapseEnd Selection.InsertBreak Typ: = wdSectionBreakContinuous Ďalej objDoc.Save objDoc.Close strFile = Dir () Wend End Sub

4. Makro spustí okno „Prehľadávať“. Vyberte priečinok, do ktorého ukladáte dokumenty, a kliknite na tlačidlo „OK“.

Proces nebude trvať dlhšie ako niekoľko sekúnd.

Šikovný nástroj na korupciu dokumentov

Je to frustrujúca skúsenosť s poškodenými dokumentmi. V takomto prípade dobrý a spoľahlivý nástroj, ktorý môže pomôcť opraviť Word dokumenty musia byť schopné veľmi zmierniť úzkosť človeka. Pri výbere nástroja na opravu preto musíte byť veľmi opatrní. Nedostatočná funkčnosť môže spôsobiť ďalšie škody.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Excel zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S