Šodienas rakstā mēs iepazīstināsim jūs ar 2 ātras un efektīvas metodes, kā saskaitīt aizzīmju skaitu jūsu Word dokumentā.
Laiku pa laikam mēs savos dokumentos izmantojām sarakstus ar aizzīmēm vai numurētus, lai sakārtotu vienumus. Parasti aizzīme vai skaitlis vada atsevišķu vienumu, neatkarīgi no tā, vai tas ir vārds, frāze vai teikums. Tagad, ja jums ir numurēts saraksts, nebūs problēmu izdomāt kopējo preces numuru. Tomēr ko darīt, ja jūsu Word dokumentā ir saraksti ar aizzīmēm? Vienkārši skaitīt tos pa vienam neizklausās labi.
Tādēļ, ja kādam no jums varētu būt nepieciešams summēt aizzīmes numuru, šeit ir divi veidi, kā to izdarīt.
1. metode: pārveidojiet sarakstu ar aizzīmēm par numurētu sarakstu
- Pirmkārt, atlasiet sarakstu, kurā vēlaties iegūt aizzīmes numuru.
- Pēc tam cilnes “Sākums” grupā “Paragrāfs” noklikšķiniet uz “Numerācija”. Saraksts ar aizzīmēm tiek mainīts uz numurētu sarakstu.
Vai arī varat ar peles labo pogu noklikšķināt uz atlases un pārvietot kursoru virs opcijas “Numerācija”, pēc tam virzīt kursoru uz viena no numerācijas stiliem paplašinātajā izvēlnē. Tas ļauj iegūt aizzīmju skaitu, faktiski nepārvēršot sarakstu ar aizzīmēm par numurētu.
Starp citu, ja nepieciešams saskaitīt visa dokumenta aizzīmju punktus, kursors ir jānovieto tikai vienā aizzīmju sarakstā un pēc tam jāveic iepriekš minētās darbības. Visi failā esošie saraksti ar aizzīmēm ir pārveidoti numurētos sarakstos ar cipariem secīgi, piemēram, tālāk:
2. metode: izmantojiet makro
- Vispirms, ja vēlaties iegūt konkrēta saraksta aizzīmes, atlasiet to. Pretējā gadījumā, lai norādītu aizzīmju skaitu visā dokumentā, nospiediet taustiņu kombināciju Ctrl+A, lai tas būtu atlasīts.
- Pēc tam noklikšķiniet uz cilnes “Izstrādātājs”.
- Pēc tam noklikšķiniet uz Visual Basic, lai atvērtu VBA redaktoru. Īsinājumtaustiņu kombinācija ir “Alt+F11”.
- Tagad noklikšķiniet uz "Normāls", pēc tam uz "Ievietot".
- Tālāk izvēlieties "Modulis".
- Veiciet dubultklikšķi uz jaunā moduļa un ielīmējiet šos kodus rediģēšanas apgabalā:
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
- Visbeidzot, noklikšķiniet uz “Palaist”.
Jūs redzēsit ziņojumu lodziņu, kas parādīs rezultātu.
Labi pārvaldiet savu failu
Darba pieredzes laikā mēs strādājam ar lielu skaitu Word dokumentu, ieteicams ar tiem rīkoties uzmanīgi, jo jebkura neveiksme var izraisīt korupciju. Un gadījumā, ja fails tiek bojāts, jums būs nepieciešams a Word dokumentu atkopšanas rīks lai palīdzētu jums atrisināt problēmu.
Autora ievads:
Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls datu bojājumu labošanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar