Word sənədinizdə birdən çox əlfəcin toplu silməyin 2 sürətli yolu

Bu yazıda sizə Word sənədinizdə çoxlu əlfəcinləri toplu silməyin iki sürətli yolunu təqdim etmək istəyirik.

Adətən Word sənədində heç bir maneə olmadan bir əlfəcin əlavə edə və ya silə bilərsiniz. Bununla belə, bir çox əlfəcinlərə gəldikdə, əllərinizin bağlı olduğunu hiss edə bilərsiniz.

Xoşbəxtlikdən, Word-də VBA redaktoru olan güclü bir alət var. Buna görə də, biz bir sənəddə çoxlu əlfəcinləri silməkdə sizə kömək etmək üçün makrolardan istifadə edəcəyik.

Metod 1: Sənəddəki bütün əlfəcinləri toplu silin

1. İlk növbədə, "Alt" + "F11" düymələrini basaraq Word-də VBA redaktorunu işə salın.
2. Sonra sol "Layihə" panelində "Normal" düyməsini basın.
3. Sonra "Daxil et" sekmesini klikləyin və onun menyusunda "Modul" seçin.
4. Modulu açmaq üçün iki dəfə klikləyin.
5. İndi aşağıdakı kodları ora yapışdırın:

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. Sonra "Çalış" düyməsini basın.
7. Sonra bir sorğu qutusu alacaqsınız. Və cari sənəddəki əlfəcinlərin ümumi sayını görə bilərsiniz. Hamısını silmək üçün "Bəli" və ya makrodan çıxmaq üçün "Xeyr" düyməsini basın.
8. “Bəli” seçsəniz, aşağıdakı kimi bir mesaj alacaqsınız:

Metod 2: Seçimdəki bütün əlfəcinləri toplu silin

Düzdür, bir neçə əlfəcin silməli, lakin bəzilərini toxunulmaz saxlamalı olduğunuz vaxtlar da olur. Eynilə, işi yerinə yetirmək üçün seçim üzərində makro işlədəcəyik.

1. Başlamaq üçün, makro quraşdırmaq və işə salmaq üçün yuxarıdakı addımları təkrarlayın.
2. Makronu bununla əvəz etməyi unutmayın:

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. Makronu işə salmazdan əvvəl siz bir sıra məzmunlar üzrə seçim etməlisiniz.
4. Kodların icrası prosesində siz 2-ci üsulda göstərilən eyni 1 mesaj qutusunu alacaqsınız.

Nəticə odur ki, siz silinmiş seçimdə yalnız əlfəcinləriniz olacaq.

Sənəd Korrupsiyasına Hazır olun

Məlumat itkisi istənilən vaxt hər kəsin başına gələ bilər. Və onun gözlənilməzliyi bizi uğursuzluğa düçar olmamaq şansı verir. Mövzudan danışarkən təmir docx, əvvəlcədən səmərəli təmir alətini seçməyi heç vaxt qaçıra bilməzsiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls təmiri və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com