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

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

Әдетте Word құжатына бір бетбелгіні еш кедергісіз қосуға немесе жоюға болады. Алайда, бірнеше бетбелгілерге келгенде, сіз қолдарыңыз байланғанын сезе аласыз.

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

1 -әдіс: Құжаттағы барлық бетбелгілерді топтық түрде жою

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

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. Содан кейін «Іске қосу» батырмасын басыңыз.
7. Әрі қарай сіз сұрау салатын терезені аласыз. Сіз ағымдағы құжаттағы бетбелгілердің жалпы санын көре аласыз. Барлығын жою үшін «Иә» немесе макростан шығу үшін «Жоқ» түймесін басыңыз.
8. Егер сіз «Иә» таңдасаңыз, төмендегідей хабарлама аласыз:

2 -әдіс: Таңдамадағы барлық бетбелгілерді топтық түрде жою

Рас, кейде бірнеше бетбелгілерді алып тастауға тура келетін кездер болады. Сол сияқты, біз жұмысты орындау үшін таңдау бойынша макросты іске қосамыз.

1. Бастау үшін, макросты орнату және іске қосу үшін жоғарыдағы қадамдарды қайталаңыз.
2. Макросты мынамен алмастыруды ұмытпаңыз:

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. Макросты іске қоспас бұрын, сіз мазмұнның ауқымын таңдауыңыз керек.
4. Ал кодтарды орындау барысында сіз 2 -әдісте көрсетілген 1 хабарлама ұяшығын аласыз.

Нәтижесінде сізде тек таңдаулы бетбелгілер болады.

Құжаттың бүлінуіне дайын болыңыз

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

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

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