4 greiti būdai, kaip pašalinti nepageidaujamus puslapių lūžius „Word“ dokumente

Šiame įraše daugiausia dėmesio skirsime 4 greitiems metodams, kaip pašalinti nepageidaujamus puslapių lūžius „Word“ dokumente.

„Word“ įterpia automatinį puslapio lūžį, kai pereinama iš vieno puslapio į kitą. Be to, galite įterpti rankinį puslapio lūžį po teksto diapazono pabaigos. Tada tekstas prasidės kito puslapio viršuje. Norėdami sužinoti, kaip įterpti rankinį puslapio lūžį, galite peržiūrėti šį straipsnį: 5 būdai, kaip greitai įterpti puslapio pertraukas į savo „Word“ dokumentą

Tačiau turėtumėte suprasti, kad automatinės puslapių pertraukos yra nematomos, todėl jų negalima ištrinti rankiniu būdu. Tačiau įterptos rankinio puslapio pertraukos daro. Taigi mūsų straipsnyje daugiausia bus pasiūlyti naudingi būdai, kaip pašalinti nepageidaujamas rankines puslapių pertraukas Word dokumente.   

1 būdas: rankiniu būdu pašalinkite puslapio pertraukas

1. Visų pirma, skirtuke „Pagrindinis“ turite spustelėti komandą „Rodyti / slėpti“, kad atskleistumėte visus paslėptus ženklus ir simbolius dokumente, kad galėtumėte peržiūrėti puslapio pertrauką.
2. Tada pasirinkite puslapio pertrauką ir paspauskite „Ištrinti“, kad jos pašalintumėte.
3. Arba galite spustelėti puslapio lūžio kairėje ir tada paspausti „Ištrinti“.

2 būdas: naudokite funkciją „Rasti ir pakeisti“.

1. Norėdami pradėti, paspauskite „Ctrl + H“, kad paleistumėte laukelį „Rasti ir pakeisti“.
2. Tada perkelkite žymeklį į teksto laukelį „Rasti ką“ ir spustelėkite skirtuką „Daugiau“.
3. Tada spustelėkite „Specialus“ ir tame meniu pasirinkite „Rankinis puslapio lūžis“.
4. Galiausiai palikite laukelį „Pakeisti į“ tuščią ir spustelėkite „Pakeisti viską“, kad pašalintumėte kiekvieną dokumento puslapio lūžį.

3 būdas: paleiskite makrokomandą, kad ištrintumėte visas dokumento puslapių pertraukas

1. Pirmiausia „Word“ suaktyvinkite VBA redaktorių paspausdami „Alt + F11“.
2. Tada kairiajame stulpelyje spustelėkite „Normalus“ projektas.
3. Tada meniu juostoje spustelėkite „Įterpti“ ir pasirinkite „Modulis“.
4. Atidarykite modulį dukart spustelėdami ir įklijuokite šiuos kodus:

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. Galiausiai paspauskite „F5“, kad paleistumėte kodus.

4 būdas: ištrinkite visus puslapių lūžius visuose aplanko dokumentuose

Norėdami pašalinti visas puslapių pertraukas visuose aplanko dokumentuose, galite naudoti šį metodą.

1. Norėdami įdiegti ir paleisti makrokomandą, galite žiūrėti 3 būdo veiksmus.
2. Ir nepamirškite pakeisti šia makrokomanda toliau:

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

Makrokomanda atidarys langą „Naršyti“. Pasirinkite aplanką, kuriame yra jūsų tiksliniai dokumentai, ir spustelėkite „Gerai“, kad tęstumėte.

Pasiruoškite duomenų katastrofai

Daugelis iš jūsų žinojo apie duomenų praradimo atsitiktinumą. „Word“ naudotojams taip pat patartina gerai pasiruošti bet kokiai duomenų nelaimei. Ir vienas geriausių būdų yra gauti a docx remontas įrankį iš anksto.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xlsx atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com