I denne artikkelen vil vi vise deg 5 enkle måter å fjerne punktene og listenumrene fra Word-dokumentet.
Et dokument kan inneholde punktlister og nummererte lister. Noen ganger kan det hende du må formatere disse listene på nytt. Det kan for eksempel hende du må angi listeinnhold i fet, kursiv eller vanlig tekst, for å nevne noen. Da må du fjerne alle kulene og listenumrene først.
Her er 5 løsninger på ulike saker.
Metode 1: Angi "Ingen" punkttegn eller nummerering
- Først av alt, velg uønskede punkttegn og nummererte oppføringer.
- Klikk deretter på rullegardinknappen på "Bullets" eller "Nummerering".
- Klikk "Ingen".
Sjekk resultatet:
Metode 2: Angi "Normal" stil for punkttegn eller nummererte oppføringer
- Til å begynne med, velg unødvendige oppføringer.
- For det andre, klikk på "Hjem"-fanen i båndet.
- Klikk deretter på "Mer"-knappen i "Stiler"-gruppen.
- Velg deretter "Normal".
- Eller du kan trykke "Ctrl+ Shift+ N" i trinn 2 i stedet.
Metode 3: Fjern alle kuler i et dokument
- Først og fremstost, trykk "Alt+ F11" for å åpne VBA-redigering i Word.
- I redigeringsprogrammet klikker du på "Normal" prosjekt.
- Klikk deretter på "Sett inn"-fanen og velg "Modul".
- Dobbeltklikk på ny modul for å få frem redigeringsområdet og lim inn følgende makro der:
Sub RemoveAllBulletsInADoc() Dim objParagraph As Paragraph Dim objDoc As Document Application.ScreenUpdating = False Sett objDoc = ActiveDocument For Hvert objParagraph I ActiveDocument.Paragraphs If objParagraph.Range.ListFormat.ListType = WdListListTypeFormetB.Removat. eNumbers End If Neste objParagraph Application.ScreenUpdating = True Set objDoc = Ingenting End Sub
- Til slutt, klikk "Kjør" eller trykk "F5".
Her er resultatet:
Metode 4: Fjern alle listenumre i et dokument
- Gjenta først trinnene i metode 3 for å installere og kjøre en makro.
- Bare du trenger denne makroen i stedet:
Sub RemoveAllListNumbersInADoc() Dim objParagraph As Paragraph Dim objDoc As Document Application.ScreenUpdating = False Sett objDoc = ActiveDocument For Every objParagraph In objDoc.Paragraphs If objParagraph.Range.ListFormat.ListType = wdNumbergraphFormeNim. umbers End If Next objParagraph Application.ScreenUpdating = True Set objDoc = Ingenting End Sub
Metode 5: Fjern alle punkttegn og listenumre i et dokument
Nå i tilfelle du trenger å fjerne både kuler og listetall, kan du bruke følgende makro:
Sub RemoveBulletsAndListBumbers() Dim objParagraph As Paragraph Dim objDoc As Document Application.ScreenUpdating = False Sett objDoc = ActiveDocument For Every objParagraph In objDoc.Paragraphs If objParagraph.Range.ListFormat.ListType = WdListListTypeWPenwListTypeBNim. graph.Range.ListFormat.RemoveNumbers End If Next objParagraph Application.ScreenUpdating = True Set objDoc = Ingenting End Sub
Velg et pålitelig reparasjonsverktøy
Gitt det faktum at Word er mottakelig for feil, er det mange reparasjonsverktøy laget for å fikse Word. Du må imidlertid være nok oppmerksom når du velger et slikt verktøy, spesielt i en nødsituasjon. Husk at upålitelige verktøy kan forårsake ytterligere skade på dataene dine.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fikse xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med