4 gyors módszer a nem kívánt oldaltörések eltávolítására a Word-dokumentumban

Ebben a bejegyzésben 4 gyors módszert fogunk bemutatni, amelyekkel eltávolíthatod a nem kívánt oldaltöréseket a Word-dokumentumodból.

A Word automatikus oldaltörést illeszt be, amikor egyik oldalról a másikra ugrik. Ezenkívül manuálisan is beszúrhat oldaltörést egy szövegtartomány vége után. Ekkor a szöveg a következő oldal tetején kezdődik. A manuális oldaltörés beszúrásával kapcsolatban ebben a cikkben olvashat: 5 módszer az oldaltörések gyors beszúrására a Word dokumentumba

Azonban meg kell értenie, hogy az automatikus oldaltörések láthatatlanok, ezért nem törölhetők manuálisan. De a beillesztett kézi oldaltörések igen. Tehát cikkünk elsősorban hasznos megközelítéseket kínál Önnek a nem kívánt kézi oldaltörések eltávolítására a Word-dokumentumban.   

1. módszer: Távolítsa el az oldaltöréseket manuálisan

1. Mindenekelőtt a „Kezdőlap” fül alatti „Megjelenítés/Elrejtés” parancsra kell kattintania, hogy felfedje az összes rejtett jelet és szimbólumot a dokumentumban, így megtekintheti az oldaltörést.
2. Ezután válasszon egy oldaltörést, és nyomja meg a „Törlés” gombot, hogy megszabaduljon tőle.
3. Vagy kattintson az oldaltörés bal oldalán, majd nyomja meg a „Törlés” gombot.

2. módszer: Használja a „Keresés és csere” funkciót

1. Először nyomja meg a „Ctrl+H” gombot a „Keresés és csere” mező aktiválásához.
2. Ezután helyezze a kurzort a „Keresse meg mit” szövegmezőbe, és kattintson a „Továbbiak” fülre.
3. Ezután kattintson a „Speciális” elemre, és válassza a „Kézi oldaltörés” lehetőséget a menüben.
4. Végül hagyja üresen a „Csere ezzel” mezőt, és kattintson az „Összes cseréje” gombra a dokumentum minden oldaltörésének eltávolításához.

3. módszer: Futtassa a Makrót a dokumentum összes oldaltörésének törléséhez

1. Először is indítsa el a VBA-szerkesztőt a Wordben az „Alt+F11” megnyomásával.
2. Ezután kattintson a „Normál” projektre a bal oldali oszlopban.
3. Ezután kattintson a „Beszúrás” gombra a menüsorban, és válassza a „Modul” lehetőséget.
4. Nyissa meg a modult dupla kattintással, és illessze be a következő kódokat:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Végül nyomja meg az „F5” billentyűt a kódok végrehajtásához.

4. módszer: Törölje az összes oldaltörést egy mappában lévő összes dokumentumból

Ezzel a módszerrel eltávolíthatja az összes oldaltörést egy mappában lévő összes dokumentumból.

1. A makró telepítéséhez és futtatásához kövesse a 3. módszer lépéseit.
2. És ne felejtse el lecserélni ezt a makrót az alábbiakban:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

A makró megnyitja a „Tallózás” ablakot. Válasszon ki egy mappát, amely a céldokumentumokat tartalmazza, és kattintson az „OK” gombra a folytatáshoz.

Készüljön fel az adatkatasztrófára

Sokan tisztában voltak az adatvesztés véletlenszerűségével. A Word-felhasználóknak is tanácsos felkészülni minden adatkatasztrófára. És az egyik legjobb módszer az, ha megszerezzük a docx javítás eszközt előre.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xlsx helyreállítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com