2 mënyra të shpejta për të fshirë në grup faqeshënuesit e shumtë në dokumentin tuaj Word

Në këtë artikull, ne duam t'ju ofrojmë dy mënyra të shpejta për të fshirë në grup faqeshënuesit e shumtë në dokumentin tuaj Word.

Normalisht mund të shtoni ose fshini një faqerojtës të vetëm në dokumentin Word pa asnjë pengesë. Megjithatë, kur bëhet fjalë për faqeshënues të shumtë, mund të ndjeni se duart tuaja janë të lidhura.

Për fat të mirë, ekziston një mjet i fuqishëm në Word që është redaktori VBA. Prandaj, ne do të përdorim makro për t'ju ndihmuar të hiqni një grup faqeshënuesish të shumtë në një dokument.

Metoda 1: Fshij në grup të gjithë faqeshënuesit në një dokument

1. Para së gjithash, thirrni redaktorin VBA në Word duke shtypur "Alt + F11".
2. Më pas në panelin e majtë "Project", klikoni në "Normal".
3. Pastaj klikoni në skedën "Fut" dhe zgjidhni "Modul" në menunë e saj.
4. Klikoni dy herë për të hapur modulin.
5. Tani ngjitni kodet e mëposhtme atje:

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. Pastaj klikoni në butonin "Run".
7. Më pas do të merrni një kuti pyetjesh. Dhe mund të shihni numrin total të faqeshënuesve në dokumentin aktual. Klikoni "Po" për t'i fshirë të gjitha, ose "Jo" për të dalë nga makroja.
8. Nëse zgjidhni "Po", do të merrni një mesazh si më poshtë:

Metoda 2: Fshij në grup të gjithë faqeshënuesit në një përzgjedhje

Pa dyshim, ka edhe raste kur ju duhet të hiqni disa faqeshënues, por të mbani disa të paprekur. Në mënyrë të ngjashme, ne do të ekzekutojmë një makro në një përzgjedhje për të përfunduar punën.

1. Për të filluar, përsëritni hapat e mësipërm për të instaluar dhe ekzekutuar një makro.
2. Mos harroni të zëvendësoni makro me këtë:

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. Përpara se të ekzekutoni makro, duhet të bëni një përzgjedhje mbi një sërë përmbajtjesh.
4. Dhe në procesin e ekzekutimit të kodeve, do të merrni të njëjtat 2 kuti mesazhesh të treguara në metodën 1.

Rezultati është që ju do të hiqni vetëm faqeshënuesit në përzgjedhje.

Bëhuni gati për korrupsionin e dokumenteve

Humbja e të dhënave mund t'i ndodhë kujtdo në çdo kohë. Dhe paparashikueshmëria e tij na bën të shfrytëzojmë një shans për të mos hasur në fatin e keq. Duke folur për temën për të riparim docx, nuk mund të humbisni kurrë të zgjidhni paraprakisht një mjet efikas riparimi.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com