5 sposobów szybkiego usuwania punktorów i numerów list z dokumentu programu Word

W tym artykule chcielibyśmy zaprezentować 5 łatwych sposobów usuwania punktorów i numerów list z dokumentu Word.

Dokument może zawierać listy punktowane i numerowane. Czasami może być konieczne ponowne sformatowanie tych list. Na przykład, aby wymienić tylko kilka, możesz potrzebować ustawić zawartość listy pogrubioną, kursywą lub zwykłym tekstem. Następnie musisz najpierw usunąć wszystkie punktory i wyświetlić numery.

Oto 5 rozwiązań dla różnych przypadków.

Metoda 1: ustaw „Brak” punktorów lub numeracji

1. Przede wszystkim wybierz niechciane wpisy punktowane i numerowane.
2. Następnie kliknij przycisk rozwijany „Punktory” lub „Numeracja”.
3. Kliknij „Brak”.

Sprawdź wynik:

Metoda 2: Ustaw styl „Normalny” dla wpisów punktowanych lub numerowanych

1. Na początek wybierz niepotrzebne wpisy.
2. Po drugie, kliknij kartę „Strona główna” na Wstążce.
3. Następnie kliknij przycisk „Więcej” w grupie „Style”.
4. Następnie wybierz „Normalny”.
5. Możesz też zamiast tego nacisnąć „Ctrl + Shift + N” w kroku 2.

Metoda 3: Usuń wszystkie punktory w dokumencie

1. Przede wszystkim naciśnij „Alt+F11”, aby otworzyć edytor VBA w programie Word.
2. W edytorze kliknij „Normalny” projekt.
3. Następnie kliknij zakładkę „Wstaw” i wybierz „Moduł”.
4. Kliknij dwukrotnie nowy moduł, aby wyświetlić obszar edycji i wklej tam następujące makro:

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. Na koniec kliknij „Uruchom” lub naciśnij „F5”.

Oto wynik:

Metoda 4: Usuń wszystkie numery list w dokumencie

1. Najpierw powtórz kroki metody 3, aby zainstalować i uruchomić makro.
2. Tylko ty potrzebujesz tego makra:

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

Metoda 5: Usuń wszystkie punktory i numery list w dokumencie

Teraz, jeśli chcesz usunąć zarówno punktory, jak i numery list, możesz użyć następującego makra:

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

Wybierz godne zaufania narzędzie do naprawy

Biorąc pod uwagę fakt, że program Word jest podatny na błędy, istnieje wiele narzędzi naprawczych zaprojektowanych do obsługi plików naprawić Word. Jednak wybierając takie narzędzie należy zachować odpowiednią ostrożność, zwłaszcza w nagłych przypadkach. Pamiętaj, że zawodne narzędzie może spowodować dalsze szkody dla Twoich danych.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com