V dnešním článku vám představíme 2 rychlé a efektivní metody, jak spočítat počet odrážek ve vašem Word dokumentu.
Čas od času jsme k uspořádání položek v našich dokumentech používali seznamy s odrážkami nebo číslované seznamy. Obecně platí, že odrážka nebo číslo vede k jednotlivé položce, ať už je to slovo, fráze nebo věta. Nyní, pokud máte očíslovaný seznam, nebude problém zjistit celkové číslo položky. Co když však váš dokument aplikace Word obsahuje seznamy s odrážkami? Jednoduše je počítat jeden po druhém nezní dobře.
Proto pro případ, že by někteří z vás potřebovali sečíst číslo odrážky, zde jsou 2 způsoby, jak se dopracovat.
Metoda 1: Převést seznam s odrážkami na číslovaný seznam
- Nejprve vyberte seznam, ze kterého chcete získat číslo odrážky.
- Poté klikněte na „Číslování“ ve skupině „Odstavec“ na kartě „Domů“. Seznam s odrážkami se změní na číslovaný.
Nebo můžete také kliknout pravým tlačítkem na výběr a přesunout kurzor na možnost „Číslování“ a poté umístit kurzor na jeden ze stylů číslování v nabídce Rozšíření. To vám umožní získat počet odrážek, aniž byste skutečně převáděli seznam s odrážkami na číslovaný.
Mimochodem, pokud potřebujete spočítat odrážky celého dokumentu, stačí umístit kurzor do jednoho seznamu s odrážkami a poté postupovat podle výše uvedených kroků. Zjistíte, že všechny seznamy s odrážkami v souboru byly převedeny na číslované seznamy s čísly v pořadí, jak je uvedeno níže:
Metoda 2: Použijte makro
- Začněte tím, že pokud chcete získat odrážky konkrétního seznamu, vyberte jej. V opačném případě pro počet odrážek v celém dokumentu byste měli stisknout „Ctrl+ A“, abyste jej měli ve výběru.
- Dále klikněte na kartu „Vývojář“.
- Poté kliknutím na „Visual Basic“ otevřete editor VBA. Kombinace zkratek je „Alt+ F11“.
- Nyní klikněte na „Normální“ a poté na „Vložit“.
- Dále vyberte „Modul“.
- Dvakrát klikněte na nový modul a vložte tyto kódy do oblasti úprav:
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
- Nakonec klikněte na „Spustit“.
Zobrazí se okno se zprávou s výsledkem.
Dobře spravujte svůj soubor
Během pracovní praxe se potýkáme s velkým množstvím dokumentů Wordu, doporučujeme, abychom s nimi zacházeli opatrně, protože jakákoli nehoda může vést ke korupci. A v případě, že dojde k poškození souboru, budete potřebovat a Nástroj pro obnovu dokumentů aplikace Word které vám pomohou vyřešit problém.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls nástroj pro opravu poškození dat a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com