Tämän päivän artikkelissa esittelemme sinulle 2 nopeaa ja tehokasta tapaa laskea Word-asiakirjasi luettelomerkkien lukumäärä.
Ajoittain käytimme luettelomerkittyjä tai numeroituja luetteloita asiakirjoissamme kohteiden järjestämiseen. Yleensä luettelomerkki tai numero johtaa yksittäisen kohteen, oli se sitten sana, lause tai lause. Jos sinulla on nyt numeroitu luettelo, tuotteen kokonaisnumeron selvittäminen ei ole ongelma. Entä jos Word-asiakirjassasi on luettelomerkitty luettelo? Niiden laskeminen yksitellen ei kuulosta hyvältä.
Siksi tässä on 2 tapaa harjoitella, jos joidenkin teistä saattaa olla tarpeen tehdä yhteenveto luodin numerosta.
Tapa 1: Muunna luettelomerkitty luettelo numeroiduksi luetteloksi
- Valitse ensin luettelo, jonka luettelonumeron haluat saada.
- Napsauta sitten "Numerointi" "Koti"-välilehden "Kappale" -ryhmässä. Luettelomerkitty luettelo muuttuu numeroituksi.
Tai voit myös napsauttaa valintaa hiiren kakkospainikkeella ja siirtää kohdistimen Numerointi-vaihtoehdon päälle ja viedä sitten hiiren osoittimen johonkin laajennusvalikon numerointityyleistä. Tämän avulla voit saada luettelomerkkien määrän muuntamatta luettelomerkittyä luetteloa numeroiduksi.
Muuten, jos sinun on laskettava koko asiakirjan luettelomerkit, sinun tarvitsee vain sijoittaa kohdistin yhteen luettelomerkkiluetteloon ja noudattaa sitten yllä olevia ohjeita. Löydät, että kaikki tiedoston luettelomerkit on muutettu numeroiduiksi luetteloiksi, joissa on numerot järjestyksessä, kuten alla:
Tapa 2: Käytä makroa
- Aluksi, jos haluat saada tietyn luettelon luettelomerkit, valitse se. Muussa tapauksessa koko asiakirjan luettelomerkkien lukumäärää varten sinun tulee painaa "Ctrl + A", jotta se on valittuna.
- Napsauta seuraavaksi "Kehittäjä" -välilehteä.
- Napsauta sitten "Visual Basic" avataksesi VBA-editorin. Pikanäppäinyhdistelmä on "Alt+ F11".
- Napsauta nyt "Normaali" ja sitten "Lisää".
- Valitse seuraavaksi "Moduuli".
- Kaksoisnapsauta uutta moduulia ja liitä nämä koodit muokkausalueelle:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Napsauta lopuksi Suorita.
Näet viestin ponnahdusikkunan, joka näyttää tuloksen.
Hallitse tiedostoasi hyvin
Käsittelemme suuren määrän Word-asiakirjoja työkokemuksen aikana, on suositeltavaa käsitellä niitä huolellisesti, koska kaikki onnettomuudet voivat johtaa korruptioon. Ja jos tiedosto vahingoittuu, tarvitset a Word-asiakirjojen palautustyökalu auttaa sinua ratkaisemaan ongelman.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls tietovaurioiden korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com