5 начина за бързо премахване на маркери и списъчни номера от вашия Word документ

В тази статия бихме искали да ви демонстрираме 5 лесни начина за премахване на маркерите и списъчните номера от вашия документ на Word.

Документът може да съдържа маркирани и номерирани списъци. Понякога може да се наложи да преформатирате тези списъци. Например може да се наложи да зададете съдържанието на списъка с удебелен шрифт, курсив или обикновени текстове, за да назовем само няколко. След това първо трябва да премахнете всички символи и да изброите номерата.

Ето 5 решения за различни случаи.

Метод 1: Задайте „Няма“ символи или номериране

1. На първо място, изберете нежелани маркирани и номерирани записи.
2. След това щракнете върху падащия бутон на „Куршуми“ или „Номериране“.
3. Щракнете върху „Няма“.

Проверете резултата:

Метод 2: Задайте стил „Нормален“ за маркирани или номерирани записи

1. Като начало изберете ненужни записи.
2. Второ, щракнете върху раздела „Начало“ в лентата.
3. След това щракнете върху бутона „Още“ в групата „Стилове“.
4. След това изберете „Нормално“.
5. Или вместо това можете да натиснете „Ctrl + Shift + N“ в стъпка 2.

Метод 3: Премахнете всички маркери в документ

1. Първо и най-важно, натиснете „Alt + F11“, за да отворите VBA редактора в Word.
2. В редактора щракнете върху „Нормален“ проект.
3. След това щракнете върху раздела „Вмъкване“ и изберете „Модул“.
4. Щракнете двукратно върху нов модул, за да изведете областта за редактиране и поставете следния макрос там:

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. Накрая щракнете върху „Run“ или натиснете „F5“.

Ето резултата:

Метод 4: Премахнете всички номера на списъка в документ

1. Първо, повторете стъпки от метод 3, за да инсталирате и стартирате макрос.
2. Вместо това се нуждаете само от този макрос:

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: Премахнете всички маркери и списъчни номера в документ

Сега, в случай че трябва да премахнете както символите, така и номерата на списъците, можете да използвате следния макрос:

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

Изберете надежден инструмент за ремонт

Предвид факта, че Word е податлив на грешки, има много инструменти за поправяне, предназначени да поправете Word. Трябва обаче да обърнете достатъчно внимание, докато избирате такава помощна програма, особено по време на извънредна ситуация. Не забравяйте, че ненадеждният инструмент може да причини допълнителни щети на вашите данни.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправете xls и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com