Word sənədinizdən güllələri və siyahı nömrələrini tez silməyin 5 yolu

Bu yazıda biz sizə Word sənədinizdən güllələri və siyahı nömrələrini silməyin 5 asan yolunu nümayiş etdirmək istərdik.

Sənəddə markerli və nömrələnmiş siyahılar ola bilər. Bəzən bu siyahıları yenidən formatlamağınız lazım ola bilər. Məsələn, yalnız bir neçəsini adlandırmaq üçün siyahı məzmununu qalın, kursiv və ya adi mətnlərlə təyin etməlisiniz. Sonra ilk növbədə bütün güllələri və siyahı nömrələrini silməlisiniz.

Burada müxtəlif vəziyyətlərin 5 həlli var.

Metod 1: “Heç biri” güllə və ya nömrələmə təyin edin

1. Hər şeydən əvvəl, işarələnmiş və nömrələnmiş arzuolunmaz qeydləri seçin.
2. Sonra "Güllələr" və ya "Nömrələmə" üzrə açılan düyməni basın.
3. "Yox" düyməsini basın.

Nəticəni yoxlayın:

Metod 2: Marker və ya nömrələnmiş girişlər üçün “Normal” üslubu təyin edin

1. Başlamaq üçün lazımsız girişləri seçin.
2. İkincisi, lentdə "Ev" sekmesini vurun.
3. Sonra "Üslublar" qrupunda "Daha çox" düyməsini basın.
4. Sonra "Normal" seçin.
5. Və ya əvəzinə 2-ci addımda “Ctrl+ Shift+ N” düymələrini sıxa bilərsiniz.

Metod 3: Sənəddəki bütün güllələri silin

1. İlk növbədə, Word-də VBA redaktorunu açmaq üçün "Alt" + "F11" düymələrini basın.
2. Redaktorda "Normal" layihəsinə klikləyin.
3. Sonra "Daxil et" sekmesini vurun və "Modul" seçin.
4. Redaktə sahəsini çıxarmaq üçün yeni modulun üzərinə iki dəfə klikləyin və aşağıdakı makronu ora yapışdırın:

Sub RemoveAllBulletsInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Nəhayət, "Çalış" düyməsini basın və ya "F5" düyməsini basın.

Nəticə budur:

Metod 4: Sənəddəki bütün siyahı nömrələrini silin

1. Əvvəlcə makronu quraşdırmaq və işə salmaq üçün 3-cü üsuldakı addımları təkrarlayın.
2. Bunun əvəzinə yalnız sizə bu makro lazımdır:

Sub RemoveAllListNumbersInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Metod 5: Sənəddəki bütün güllələri və siyahı nömrələrini silin

İndi həm güllələri, həm də siyahı nömrələrini silmək lazımdırsa, aşağıdakı makrodan istifadə edə bilərsiniz:

Sub RemoveBulletsAndListBumbers()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Etibarlı Təmir Aləti seçin

Word-ün səhvlərə həssas olduğunu nəzərə alsaq, bunun üçün hazırlanmış bir çox təmir alətləri var Word düzəldin. Bununla belə, belə bir köməkçi proqramı seçərkən, xüsusən də fövqəladə hallarda kifayət qədər diqqət yetirməlisiniz. Unutmayın ki, etibarsız alət məlumatlarınıza əlavə ziyan vura bilər.

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-i düzəldin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com