V dnešnom príspevku sa s vami radi podelíme o 2 účinné metódy na vylúčenie textov tabuliek zo štatistík počtu slov.
Na uchovanie údajov sa zvyčajne používajú tabuľky. A tabuľky sú naším najlepším priateľom pri ilustrácii bodov pri práci na dokumente. Potom to môže byť trochu nepríjemné, keď sa jedná o počet slov. Niekedy stačí získať počet slov hlavných textov a nie všetky údaje v tabuľkách. Je známe, že Word predvolene počíta všetky slová v dokumente. Z tohto dôvodu sme prišli s efektívnymi prostriedkami. Čítajte ďalej a dozviete sa viac.
Metóda 1: Vyberte tabuľky ručne a urobte matematiku sami
Ak je to krátky dokument iba s jednou alebo dvoma tabuľkami, nie je problém vyberať tabuľky jednu po druhej podržaním klávesu „Ctrl“. V tomto prístupe bude celkový počet vo vybraných tabuľkách viditeľný na stavovom riadku, napríklad nižšie:
Ako vidíte, existujú 2 čísla. Prvá sa týka počtu slov vo vybraných tabuľkách, zatiaľ čo druhá predstavuje celkový počet slov vo vašom dokumente. Pomocou druhého čísla mínus prvé získate výsledok.
Metóda 2: Spustenie kódov VBA
Ako už bolo spomenuté vyššie, metóda 1 bude zdĺhavá, ak máte v dokumente veľký počet tabuliek. Ich manuálny výber určite nie je ideálnym spôsobom. Namiesto toho vám odporúčame makro, ktoré bude počítať všetky slová, ale vylúči ich v tabuľkách a titulkoch.
- V prvom rade stlačte klávesy „Alt + F11“, čím spustíte editor VBA vo Worde.
- Potom kliknite na „Normálny“.
- Ďalej kliknite na kartu „Vložiť“.
- V rozbaľovacej ponuke na karte „Vložiť“ vyberte možnosť „Modul“.
- Dvojitým kliknutím na nový modul otvoríte oblasť kódovania na pravej strane.
- Teraz tam vložte nasledujúce 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
- Nakoniec kliknite na tlačidlo „Spustiť“.
Spustenie makra otvorí okno so správou, ktoré zobrazuje výsledok počítania.
Riešiť poškodenie slov
Pri každodennom spracovaní práce sa tak veľmi spoliehame na softvér ako Word. Výsledkom bolo, že sme nemohli len tak myslieť na obrovský dôsledok toho, že máme a Korupcia slova. Ak nemáte dostatočný nástroj na opravu dokumentov, môžete sa cítiť zúfalo.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls opraviť a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S