Word hujjatingizdan o'qlarni va raqamlarni ro'yxatga olishni tezda olib tashlashning 5 usuli

Ushbu maqolada biz sizga Word hujjatidagi o'qlarni va ro'yxat raqamlarini olib tashlashning 5 ta oson usulini ko'rsatmoqchimiz.

Hujjatda markirovka qilingan va raqamlangan roʻyxatlar boʻlishi mumkin. Ba'zan siz ushbu ro'yxatlarni qayta formatlashingiz kerak bo'lishi mumkin. Masalan, bir nechtasini nomlash uchun roʻyxat mazmunini qalin, kursiv yoki oddiy matnlar bilan oʻrnatishingiz kerak boʻlishi mumkin. Keyin barcha o'qlarni olib tashlashingiz va birinchi navbatda raqamlarni ro'yxatlashingiz kerak.

Bu erda turli holatlar uchun 5 ta yechim mavjud.

1-usul: "Yo'q" o'qlarini yoki raqamlashni o'rnating

1. Avvalo, keraksiz markirovka qilingan va raqamlangan yozuvlarni tanlang.
2. Keyin "O'qlar" yoki "Raqamlash" bo'yicha ochiladigan tugmani bosing.
3. "Yo'q" tugmasini bosing.

Natijani tekshiring:

2-usul: Belgilangan yoki raqamlangan yozuvlar uchun "Oddiy" uslubni o'rnating

1. Boshlash uchun keraksiz yozuvlarni tanlang.
2. Ikkinchidan, lentada "Uy" yorlig'ini bosing.
3. Keyin "Uslublar" guruhidagi "Ko'proq" tugmasini bosing.
4. Keyin "Oddiy" ni tanlang.
5. Yoki 2-bosqichda “Ctrl+Shift+N” tugmalarini bosishingiz mumkin.

3-usul: Hujjatdagi barcha o'qlarni olib tashlang

1. Avvalo, Word dasturida VBA muharririni ochish uchun "Alt + F11" tugmalarini bosing.
2. Tahrirlovchida "Oddiy" loyihani bosing.
3. Keyin "Qo'shish" yorlig'ini bosing va "Modul" ni tanlang.
4. Tahrirlash maydonini chiqarish uchun yangi modulni ikki marta bosing va u erga quyidagi makrosni qo'ying:

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

Mana natija:

4-usul: Hujjatdagi barcha ro'yxat raqamlarini olib tashlang

1. Birinchidan, makrosni o'rnatish va ishga tushirish uchun 3-usuldagi amallarni takrorlang.
2. Buning o'rniga faqat sizga ushbu makros kerak:

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

5-usul: Hujjatdagi barcha o'qlarni va ro'yxat raqamlarini olib tashlang

Endi ikkala o'q va ro'yxat raqamlarini olib tashlashingiz kerak bo'lsa, siz quyidagi makrosdan foydalanishingiz mumkin:

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

Ishonchli ta'mirlash vositasini tanlang

Word xatolarga moyilligini hisobga olsak, tuzatish uchun mo'ljallangan ko'plab vositalar mavjud Word-ni tuzatish. Biroq, bunday yordamchi dasturni tanlashda, ayniqsa favqulodda vaziyatlarda etarlicha e'tibor berish kerak. Ishonchsiz vosita ma'lumotlaringizga qo'shimcha zarar etkazishi mumkinligini unutmang.

Muallif kirish:

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