5 způsobů, jak rychle odstranit odrážky a vypsat čísla z dokumentu Word

V tomto článku bychom vám chtěli předvést 5 snadných způsobů, jak odstranit odrážky a vypsat čísla z dokumentu aplikace Word.

Dokument může obsahovat seznamy s odrážkami a číslované seznamy. Někdy budete možná muset tyto seznamy přeformátovat. Například budete možná muset nastavit obsah seznamu tučně, kurzívou nebo běžnými texty, abychom jmenovali jen několik. Poté musíte nejprve odstranit všechny odrážky a vypsat čísla.

Zde je 5 řešení různých případů.

Metoda 1: Nastavit odrážky nebo číslování „Žádné“

1. Nejprve vyberte nežádoucí položky s odrážkami a číslované položky.
2. Poté klikněte na rozevírací tlačítko na „Odrážky“ nebo „Číslování“.
3. Klikněte na „Žádný“.

Zkontrolujte výsledek:

Metoda 2: Nastavte „Normální“ styl pro položky s odrážkami nebo číslované

1. Nejprve vyberte zbytečné položky.
2. Poté klikněte na kartu Domů na pásu karet.
3. Poté klikněte na tlačítko „Více“ ve skupině „Styly“.
4. Dále zvolte „Normální“.
5. Nebo můžete místo toho v kroku 2 stisknout „Ctrl + Shift + N“.

Metoda 3: Odebrat všechny odrážky v dokumentu

1. Nejprve stiskněte klávesy „Alt+F11“ pro otevření editoru VBA ve Wordu.
2. V editoru klikněte na projekt „Normální“.
3. Poté klikněte na kartu „Vložit“ a vyberte „Modul“.
4. Poklepáním na nový modul vyvolejte oblast úprav a vložte tam následující 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. Nakonec klikněte na „Spustit“ nebo stiskněte „F5“.

Zde je výsledek:

Metoda 4: Odebrat všechna čísla seznamu v dokumentu

1. Nejprve opakujte kroky v metodě 3 pro instalaci a spuštění makra.
2. Místo toho potřebujete toto makro pouze:

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: Odebrat všechny odrážky a vypsat čísla v dokumentu

Nyní, pokud potřebujete odstranit odrážky i čísla seznamů, můžete využít následující makro:

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

Vyberte si důvěryhodný nástroj pro opravy

Vzhledem k tomu, že Word je náchylný k chybám, existuje mnoho opravných nástrojů určených pro opravit Word. Při výběru takového nástroje však musíte věnovat dostatečnou pozornost, zejména v době nouze. Nezapomeňte, že nespolehlivý nástroj může způsobit další poškození vašich dat.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com