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

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

Бөлім үзілімдері Word құжатында бірнеше бөлімдерді жасау үшін пайдалы. Осылайша сіз әртүрлі бөлімдерді ерекше стильдерде пішімдей аласыз. Құжатқа бөлім үзілімдерін жылдам енгізуге арналған алдыңғы мақаламыз: Сөздік құжатқа бөлімді тез енгізудің 3 әдісі

Дегенмен, мәнерлерді өзгерту, бөлімдерді қайта бөлу және т.б. сияқты құжатты қайта қарау жиі кездеседі. Атап айтқанда, үлкен түзетулер енгізу қажет болса, барлық бөлім үзілімдерін жою қажет болуы мүмкін. Төменде топтамадағы бөлім үзілімдерін жою үшін пайдалануға болатын 3 әдіс берілген.

1 -әдіс: Құжаттағы барлық бөлім үзілістерін табыңыз

1. Алдымен, Ctrl+ H пернелер тіркесімін басып, Word бағдарламасындағы «Табу және ауыстыру» жолағын ашу.
2. Содан кейін курсорды «Не табамыз» мәтін ұяшығына қойыңыз.
3. Қосымша опцияларды алу үшін «Қосымша» түймесін басыңыз.
4. Содан кейін «Арнайы» түймесін басып, мәзірден «Бөлім үзілісі» таңдаңыз. Содан кейін сіз «Не тап» мәтін ұяшығында «^b» белгісін көресіз. Балама әдіс - 2 -қадамнан кейін тікелей «^b» енгізу.
5. Соңында «Ауыстыру» өрісін бос қалдырыңыз және «Барлығын ауыстыру» түймесін басыңыз. Растау жолағындағы «OK» түймесін басыңыз.

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

Міне, барлық қажетсіз үзілістерден құтылудың автоматты әдісі.

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

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. Соңында «Іске қосу» батырмасын басыңыз.

Сіз секцияның барлық үзілістерін бір секундта таба алмайсыз.

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

Сол сияқты, егер біз оны тез және лас етіп жасағымыз келсе, біз макросты іске қосуымыз керек.

1. Ең алдымен, барлық мақсатты құжаттарды бір қалтаға салыңыз.
2. Содан кейін 2 әдісіндегі қадамдары бар макросты орнатыңыз.
3. Оның орнына осы макросты іске қосыңыз:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      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 = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Содан кейін ашылған «Шолу» терезесінде құжаттарды сақтайтын қалтаны таңдаңыз.
5. Соңғысы, бірақ аз емес, «OK» батырмасын басыңыз.

Деректерді жоғалтуға дайын болыңыз

Әдетте, жақсы жұмыс істеу әдеті, сәттілік және барлық баталармен Word бағдарламасында көп нәрсеге қол жеткізуге болады. Бірақ кез келген уақытта істен шығулар болуы мүмкін. Сондықтан құжаттардың сақтық көшірмесін үнемі жасау өте маңызды. Қолыңызда сақтық көшірме болса, бастамас бұрын сенімдірек боласыз. docx түзету.

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

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