У сьогоднішній публікації ми раді поділитися з вами двома ефективними методами виключення текстів таблиць зі статистики кількості слів.
Зазвичай таблиці використовуються для зберігання даних. А таблиці - наш найкращий друг для ілюстрування моментів під час роботи над документом. Тоді може стати трохи незручно, коли йдеться про підрахунок слів. Іноді нам просто потрібно отримати кількість слів основних текстів, а не всі дані в таблицях. Проте відомо, що 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
- Нарешті, натисніть «Виконати».
Запуск макросу відкриє вікно повідомлення, в якому відображатиметься результат підрахунку.
Справляйтеся зі збитками від слів
Ми так сильно покладаємося на програмне забезпечення, як Word, для щоденної обробки роботи. Як результат, ми не могли не роздумувати над переважними наслідками наявності Пошкодження слів. Ви можете відчути відчай, якщо у вас немає достатнього інструмента для відновлення документів.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі XLS виправити та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com