Word hujjatingizdagi barcha bo'limlarni tezda o'chirishning 3 usuli

Ushbu maqolada biz siz bilan Word hujjatidagi barcha bo'limlarni tezda o'chirishning 3 usulini baham ko'rmoqchimiz.

Bo'lim tanaffuslari Word hujjatida bir nechta bo'limlarni yaratishda foydalidir. Shunday qilib, siz turli bo'limlarni o'ziga xos uslublarda formatlashingiz mumkin. Hujjatga bo'lim tanaffuslarini tezda kiritishingiz uchun oldingi maqolamiz: Word hujjatingizga bo'limlarni tezda kiritishning 3 usuli

Biroq, uslublarni o'zgartirish, bo'limlarni qayta ajratish va hokazo kabi hujjatni qayta ko'rib chiqish odatiy holdir. Xususan, agar katta o'zgartirishlar kiritish kerak bo'lsa, barcha bo'limlar tanaffuslarini olib tashlashingiz kerak bo'ladi. Quyida to'plamdagi bo'lim tanaffuslarini o'chirish uchun foydalanishingiz mumkin bo'lgan 3 ta usul mavjud.

1-usul: Hujjatda barcha bo'limlarning buzilishini toping

1. Avvalo "Ctrl + H" tugmachalarini bosib, Word-da "Find and Replace" maydonini oching.
2. Keyin "Nimani toping" matn maydoniga kursorni qo'ying.
3. Ko'proq variantlarni olish uchun "Qo'shimcha" tugmasini bosing.
4. Keyin "Maxsus" tugmachasini bosing va uning menyusida "Bo'limni ajratish" -ni tanlang. Keyin "Find what" matn maydonida "^ b" ni ko'rasiz. Demak, alternativ usul - 2-bosqichdan so'ng to'g'ridan-to'g'ri “^ b” ni kiritish.
5. Va nihoyat, "Almashtirish" maydonini bo'sh qoldiring va "Hammasini almashtirish" tugmasini bosing. Tasdiqlash oynasida "OK" tugmasini bosing.

2-usul: Bitta hujjatdagi barcha bo'limlarning buzilishini o'chirish uchun so'lni ishga tushiring

Mana sizga barcha kiruvchi bo'limlarning tanaffuslaridan xalos bo'lishning avtomatik usuli.

1. Dastlab, "Alt + F11" tugmachasini bosib, Word-da VBA muharririni oching.
2. Keyin "Normal" tugmachasini bosish orqali yangi modul yarating.
3. Keyin "Qo'shish" tugmachasini bosing va "Modul" -ni tanlang.
4. Endi ikki marta bosish bilan modulni oching.
5. O'ng tomondagi kodlash joyiga quyidagi kodlarni joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing.

Barcha bo'limlarning tanaffuslarini bir soniyada topasiz.

3-usul: Bir nechta hujjatdagi barcha bo'limlarning buzilishini o'chirish

Xuddi shunday, agar biz buni tez va iflos usulda qilishni istasak, biz so'lni ishga tushirishimiz kerak.

1. Avvalo, hammasini qo'ying tarhujjatlarni bitta papkada oling.
2. Keyin 2-usuldagi qadamlar bilan so'lni o'rnating.
3. Buning o'rniga ushbu so'lni ishga tushiring:

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. Keyin "Ko'zdan kechirish" oynasida ochilgan hujjatlarni saqlaydigan papkani tanlang.
5. Va nihoyat, kamida "OK" tugmasini bosing.

Ma'lumotlarni yo'qotish uchun tayyorlaning

Odatda, yaxshi ishlash odati, omad va barcha barakalar bilan Wordda ko'p narsaga erishishingiz mumkin. Ammo nosozliklar sizni istalgan vaqtda urishi mumkin. Shuning uchun muntazam ravishda hujjatlarning zaxira nusxasini yaratish juda muhimdir. Qo'lda zaxira nusxasi bilan siz s dan oldin ko'proq ishonchga ega bo'lasiztartinglang docx tuzatish.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls tiklash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com