5 mënyra për të hequr shpejt pikat dhe numrat e listuar nga dokumenti juaj Word

Në këtë artikull, ne dëshirojmë t'ju demonstrojmë 5 mënyra të thjeshta për të hequr pikat dhe renditjen e numrave nga dokumenti juaj Word.

Një dokument mund të përmbajë lista me pika dhe të numëruara. Ndonjëherë, mund t'ju duhet t'i riformatoni këto lista. Për shembull, mund t'ju duhet të vendosni përmbajtjen e listës me tekste të theksuara, të pjerrëta ose të rregullta, për të përmendur vetëm disa. Më pas duhet të hiqni të gjitha pikat dhe numrat e listës së pari.

Këtu janë 5 zgjidhje për raste të ndryshme.

Metoda 1: Vendosni pikat "Asnjë" ose numërimin

1. Para së gjithash, zgjidhni hyrjet e padëshiruara me pika dhe me numra.
2. Pastaj klikoni në butonin rënës në "Piçe" ose "Numërim".
3. Klikoni "Asnjë".

Kontrolloni rezultatin:

Metoda 2: Vendosni stilin "Normal" për hyrjet me pika ose me numra

1. Për të filluar, zgjidhni hyrjet e panevojshme.
2. Së dyti, klikoni në skedën "Home" në Shirit.
3. Pastaj klikoni butonin "Më shumë" në grupin "Stilet".
4. Pastaj zgjidhni "Normal".
5. Ose mund të shtypni “Ctrl+ Shift+ N” në hapin 2 në vend të kësaj.

Metoda 3: Hiqni të gjitha pikat në një dokument

1. Para së gjithash, shtypni "Alt + F11" për të hapur redaktorin VBA në Word.
2. Në redaktues, klikoni projektin "Normal".
3. Pastaj klikoni në skedën "Fut" dhe zgjidhni "Modul".
4. Klikoni dy herë në modulin e ri për të nxjerrë zonën e redaktimit dhe ngjisni makronë e mëposhtme atje:

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. Së fundi, klikoni "Run" ose shtypni "F5".

Këtu është rezultati:

Metoda 4: Hiqni të gjithë numrat e listës në një dokument

1. Së pari, përsëritni hapat në metodën 3 për të instaluar dhe ekzekutuar një makro.
2. Në vend të kësaj, ju duhet vetëm kjo makro:

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: Hiqni të gjitha pikat dhe listën e numrave në një dokument

Tani në rast se ju duhet të hiqni të dy pikat dhe numrat e listës, mund të përdorni makronë e mëposhtme:

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

Zgjidhni një mjet riparues të besueshëm

Duke pasur parasysh faktin se Word është i ndjeshëm ndaj gabimeve, ka shumë mjete riparimi të dizajnuara për të rregulloni Word. Sidoqoftë, duhet t'i kushtoni vëmendje të mjaftueshme kur zgjidhni një mjet të tillë, veçanërisht në një kohë emergjence. Mos harroni se mjeti jo i besueshëm mund të shkaktojë dëme të mëtejshme për të dhënat tuaja.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com