5 módszer a felsorolásjelek és a számok gyors eltávolítására a Word-dokumentumból

Ebben a cikkben 5 egyszerű módszert szeretnénk bemutatni a felsorolásjelek és számok eltávolítására a Word-dokumentumból.

Egy dokumentum tartalmazhat felsorolásjeles és számozott listákat. Néha előfordulhat, hogy újra kell formázni ezeket a listákat. Például előfordulhat, hogy a lista tartalmát félkövérrel, dőlt betűvel vagy normál szöveggel kell szednie, hogy csak néhányat említsünk. Ezután először el kell távolítania az összes felsorolásjelet és a számokat.

Íme 5 megoldás különböző esetekre.

1. módszer: Állítsa be a „Nincs” felsorolásjeleket vagy számozást

1. Mindenekelőtt válassza ki a nem kívánt felsorolásjeles és számozott bejegyzéseket.
2. Ezután kattintson a legördülő gombra a „Legyedek” vagy a „Számozás” menüpontban.
3. Kattintson a „Nincs” gombra.

Ellenőrizze az eredményt:

2. módszer: Állítsa be a „Normál” stílust a felsorolásjeles vagy számozott bejegyzésekhez

1. Először válassza ki a szükségtelen bejegyzéseket.
2. Másodszor, kattintson a „Kezdőlap” fülre a szalagon.
3. Ezután kattintson a „Továbbiak” gombra a „Stílusok” csoportban.
4. Ezután válassza a „Normál” lehetőséget.
5. Vagy ehelyett a 2. lépésben nyomja meg a „Ctrl+Shift+N” gombot.

3. módszer: Távolítsa el az összes felsorolást a dokumentumból

1. Először is, nyomd meg az „Alt+F11” billentyűkombinációt a VBA szerkesztő megnyitásához a Wordben.
2. A szerkesztőben kattintson a „Normál” projektre.
3. Ezután kattintson a „Beszúrás” fülre, és válassza a „Modul” lehetőséget.
4. Kattintson duplán az új modulra a szerkesztési terület megjelenítéséhez, és illessze be oda a következő makrót:

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. Végül kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot.

Íme az eredmény:

4. módszer: Távolítsa el az összes listaszámot egy dokumentumból

1. Először ismételje meg a 3. módszer lépéseit a makró telepítéséhez és futtatásához.
2. Csak erre a makróra van szüksége helyette:

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. módszer: Távolítsa el az összes felsorolásjelet és listás számot a dokumentumból

Abban az esetben, ha mind a felsorolásjeleket, mind a listaszámokat el kell távolítania, használhatja a következő makrót:

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

Válasszon egy megbízható javítóeszközt

Tekintettel arra, hogy a Word érzékeny a hibákra, számos javítási eszköz létezik javítsa ki a Word-öt. Azonban kellő figyelmet kell fordítania egy ilyen segédprogram kiválasztásakor, különösen vészhelyzetben. Ne feledje, hogy a megbízhatatlan eszköz további károkat okozhat az adatokban.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com