В днешната публикация с удоволствие споделяме с вас 2 ефективни метода за изключване на текстовете в таблиците от статистиката за броя на думите.
Таблиците обикновено се използват за съхранение на данни. А таблиците са най-добрият ни приятел в илюстрирането на точки, докато работим върху документ. Тогава може да стане малко неудобно, когато е включено броенето на думи. Понякога просто трябва да получим броя думи на основните текстове, а не всички данни в таблици. И все пак е известно на всички, че Word по подразбиране брои всички думи във вашия документ. Поради тази причина сме намерили ефективни средства. Прочетете, за да разберете повече.
Метод 1: Изберете таблици ръчно и направете математика сами
Ако това е кратък документ само с една или две таблици, няма никакъв проблем да избирате таблици една по една, като задържите клавиша „Ctrl“. При този подход общият брой в избраните таблици ще бъде видим в лентата на състоянието, например по-долу:
Както виждате, има 2 числа. Първият се отнася до броя на думите в избрани таблици, докато вторият е общият брой думи в документа ви. Просто използвайте второто число, за да минус първото, за да получите резултата.
Метод 2: Изпълнете VBA кодове
Както бе споменато по-горе, метод 1 ще бъде досаден, ако имате голям брой таблици в документа. Да ги изберете ръчно определено не е идеалният начин. Вместо това ви препоръчваме макрос, който ще брои всички думи, но ги изключва в таблици и надписи.
- Първо и най-важно, натиснете „Alt+F11“, за да извикате VBA редактора в Word.
- След това щракнете върху „Нормално“.
- След това кликнете върху раздела „Вмъкване“.
- И изберете „Модул“ от падащото меню на раздела „Вмъкване“.
- Щракнете двукратно върху новия модул, за да отворите кодиращата област от дясната страна.
- Сега поставете следния макрос там:
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
- Накрая щракнете върху „Run“.
Стартирането на макроса ще изскочи съобщение, показващо резултата от броенето.
Справете се с щети от Word
Разчитаме толкова много на софтуер като Word за ежедневна обработка на работата. В резултат на това не можехме да си помислим за огромното последствие от наличието на Слово корупция. Можете да се чувствате отчаяни, освен ако не разполагате с достатъчно инструмент за поправяне на документи.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xls поправяне и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com