Word құжатындағы қажетсіз үзілістерді жоюдың 4 жылдам әдісі

Бұл жазбада біз Word құжатыңыздағы қажетсіз бет үзілістерін жоюдың 4 жылдам әдісін таныстырамыз.

Word бағдарламасы бір беттен екінші бетке ауысқан кезде автоматты түрде бет үзілімін енгізеді. Сонымен қатар, мәтін ауқымының соңынан кейін қолмен бет үзілімін енгізе аласыз. Содан кейін мәтін келесі беттің жоғарғы жағынан басталады. Бет үзілімін қолмен қалай енгізу керектігі туралы ақпаратты мына мақаладан қараңыз: Word құжатына парақтарды жылдам енгізудің 5 тәсілі

Алайда, сіз парақтың автоматты үзілімдері көрінбейтінін, сондықтан оны қолмен жоюға болмайтынын түсінуіңіз керек. Бірақ қолмен жасалынған бет үзілістері енгізілген. Сонымен, біздің мақалада сізге Word құжатындағы қолмен жасалынған үзілістерді жоюдың пайдалы тәсілдері ұсынылады.   

1-әдіс: Бет үзілістерін қолмен жою

1. Біріншіден, құжаттың барлық жасырын белгілері мен белгілерін көрсету үшін «Басты» қойындысының астындағы «Көрсету / жасыру» пәрменін басу керек, сонда сіз парақтың үзілімін көре аласыз.
2. Одан кейін, бет үзілімін таңдап, одан құтылу үшін «Жою» пернесін басыңыз.
3. Немесе сіз парақтың сол жағын басып, содан кейін «Жою» пернесін басуыңызға болады.

2-әдіс: «Табыңыз және ауыстырыңыз» функциясын қолданыңыз

1. Бастау үшін “Іздеу және ауыстыру” өрісін қосу үшін “Ctrl + H” пернелерін басыңыз.
2. Содан кейін курсорды «Нені табу» мәтін жолына қойып, «Қосымша» қойындысын нұқыңыз.
3. Әрі қарай «Арнайы» батырмасын шертіп, сол мәзірден «Парақты қолмен үзу» тармағын таңдаңыз.
4. Соңында, «Ауыстыру» өрісін бос қалдырыңыз және құжаттағы әр парақты алып тастау үшін «Барлығын ауыстыру» батырмасын басыңыз.

3-әдіс: Құжаттағы барлық үзілістерді жою үшін макро іске қосыңыз

1. Біріншіден, Word бағдарламасындағы VBA редакторын «Alt + F11» пернесін басу арқылы іске қосыңыз.
2. Содан кейін сол жақ бағандағы «Қалыпты» жобаны басыңыз.
3. Содан кейін мәзір жолағында «Кірістіру» батырмасын басыңыз және «Модуль» таңдаңыз.
4. Екі рет басу арқылы модульді ашып, келесі кодтарды қойыңыз:

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. Соңында кодтарды орындау үшін «F5» пернесін басыңыз.

4-әдіс: қалтадағы барлық құжаттардағы барлық үзілістерді жою

Қалтадағы барлық құжаттардағы барлық үзілістерді жою үшін сіз осы әдісті қолдана аласыз.

1. Макросты орнату және іске қосу үшін 3-тәсілдегі қадамдарға жүгіне аласыз.
2. Төмендегі макросты ауыстыруды ұмытпаңыз:

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

Макрос «Шолу» терезесін іске қосады. Мақсатты құжаттарыңыз бар қалтаны таңдап, жалғастыру үшін «ОК» түймесін басыңыз.

Деректер апатына дайындалыңыз

Сіздердің көпшілігіңіз деректерді жоғалтудың кездейсоқтығы туралы білген. Word пайдаланушылары үшін кез-келген деректер апатына жақсы дайындалған жөн. Және ең жақсы тәсілдердің бірі - а docx жөндеу алдын ала құрал.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx қалпына келтіру және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com