V dnešním příspěvku se s vámi rádi podělíme o 2 účinné metody, jak vyloučit texty tabulek ze statistik počtu slov.
Tabulky se obecně používají k uchovávání dat. A tabulky jsou naším nejlepším přítelem při ilustraci bodů při práci na dokumentu. Pak to může být trochu nepříjemné, pokud jde o počet slov. Někdy potřebujeme získat pouze počet slov hlavních textů, nikoli všechna data v tabulkách. Přesto je známo všem, že Word ve výchozím nastavení počítá všechna slova v dokumentu. Z tohoto důvodu jsme přišli s účinnými prostředky. Čtěte dále a dozvíte se více.
Metoda 1: Vyberte tabulky ručně a proveďte matematiku sami
Pokud se jedná o krátký dokument pouze s jednou nebo dvěma tabulkami, není problém vybírat tabulky jednu po druhé podržením klávesy „Ctrl“. V tomto přístupu bude celkový počet ve vybraných tabulkách viditelný na stavovém řádku, například níže:
Jak vidíte, existují 2 čísla. První odkazuje na počet slov ve vybraných tabulkách, zatímco druhý je celkový počet slov ve vašem dokumentu. Pomocí druhého čísla mínus první získáte výsledek.
Metoda 2: Spuštění kódů VBA
Jak bylo uvedeno výše, metoda 1 bude zdlouhavá, pokud máte v dokumentu velký počet tabulek. Jejich ruční výběr rozhodně není ideální způsob. Místo toho vám doporučujeme makro, které počítá všechna slova, ale vylučuje je v tabulkách a titulcích.
- Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
- Poté klikněte na „Normální“.
- Dále klikněte na kartu „Vložit“.
- V rozevírací nabídce karty „Vložit“ vyberte „Modul“.
- Poklepáním na nový modul otevřete oblast kódování na pravé straně.
- Nyní tam vložte následující makro:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Nakonec klikněte na „Spustit“.
Po spuštění makra se zobrazí okno se zprávou zobrazující výsledek počítání.
Řešení poškození slov
Při každodenním zpracování práce se tolik spoléháme na software, jako je Word. Ve výsledku jsme nemohli přestat myslet na drtivý důsledek mít a Slovo korupce. Můžete se cítit zoufale, pokud nemáte dostatečný nástroj na opravu dokumentů.
Ú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 opravit a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com