3 способа исключить тексты в скобках или квадратных скобках из подсчета слов

Поделись сейчас:

В этой статье мы предоставим вам 3 эффективных метода исключения текста в скобках или квадратных скобках из подсчета слов.

Иногда, когда мы пишем документ Word, мы хотели бы поместить некоторые иллюстративные тексты в круглые скобки или квадратные скобки, чтобы помочь и читателям, и нам самим лучше понять статью. Однако настораживает тот факт, что Word по умолчанию считает их все. А иногда вы можете просто захотеть увидеть, сколько у вас «эффективных» слов, вместо того, чтобы получать число, включающее количество слов в скобках или квадратных скобках.

К счастью, это не невозможно, и вот 3 способа, к которым вы можете прибегнуть. К сtarКроме того, 2 из 3 способов включают способ поиска слов в круглых скобках или квадратных скобках с помощью функции «Найти». Поэтому мы начнем с шагов для выполнения этой задачи.

Поиск слов в скобках или квадратных скобках

  1. Сначала перейдите на вкладку «Главная».
  2. Затем нажмите на кнопку с перевернутым треугольником «Найти».
  3. И выберите «Расширенный поиск» в списке.Нажмите «Главная» -> «Найти» -> «Расширенный поиск».
  4. В диалоговом окне «Найти и заменить» введите «\(*\)» в текстовом поле «Найти».
  5. Затем нажмите «Дополнительно», чтобы расширить дополнительные параметры.
  6. Затем установите флажок «Использовать подстановочные знаки».
  7. И нажмите кнопку «Найти в» и выберите «Основной документ».Введите текстовое поле «Найти что» -> Установите флажок «Использовать подстановочные знаки» -> Нажмите «Найти в» -> Нажмите «Основной документ».
  8. Следующее, что вы увидите, это то, что все слова в скобках выделены. А если вы хотите найти слова в скобках, просто введите «\[*\]» в текстовое поле «Найти».

Способ 1: работа с копией

  1. Прежде всего, сделайте копию документа.
  2. Во-вторых, используйте описанные выше шаги, чтобы найти слова в скобках или квадратных скобках. Когда tarчтобы слова были выбраны, вы можете закрыть диалоговое окно «Найти и заменить» и нажать «Удалить», чтобы удалить их все. Или вы можете оставить диалоговое окно открытым и вместо этого щелкнуть вкладку «Заменить».
  3. Затем убедитесь, что в текстовом поле «Заменить на» ничего нет.
  4. Далее нажмите «Заменить все». И проверьте количество слов.Нажмите «Заменить» -> нажмите «Заменить все».

Способ 2: скрыть тексты

Поскольку Word не считает скрытые тексты, рекомендуется скрыть все tarполучить слова на время, не делая копию.

  1. Найдя все слова в скобках или квадратных скобках, нажмите вкладку «Главная».
  2. Затем нажмите кнопку со стрелкой вниз в группе «Шрифт», чтобы открыть диалоговое окно «Шрифт».
  3. Перейдите в раздел «Эффекты» и установите флажок «Скрытый».
  4. Далее нажмите «ОК».Нажмите «Главная» -> «Скрытый» -> «ОК».

Вот одна вещь, на которую вы должны обратить внимание. Прежде чем скрывать тексты, убедитесь, что вы случайно не включили опцию «Печатать скрытый текст». В противном случае Word будет продолжать считать эти невидимые слова. Чтобы проверить эту функцию, вы можете перейти в «Файл», а затем «Параметры», чтобы открыть диалоговое окно «Параметры Word». Там вы нажимаете вкладку «Отображение» и переходите к части «Параметры печати», чтобы увидеть, установлен ли флажок «Печать скрытого текста». Если это так, просто очистите его и нажмите «ОК».Установите флажок «Печатать скрытый текст» Не выбрано

Способ 3: используйте коды VBA

Скорее всего, в вашем документе Word могут быть слова в скобках и квадратных скобках. В таком случае, чтобы найти их обоих, вам нужно выполнить операцию «Найти» как минимум дважды. Тем не менее, с помощью кодов VBA вы можете легко и быстро найти и очистить их все одним щелчком мыши.

  1. Сначала сделайте копию исходного файла.
  2. Затем нажмите «Alt + F11», чтобы открыть редактор VBA.
  3. Затем вставьте коды в область редактирования:
'  Remove words both in brackets and parentheses.
Sub DeleteWordsInBracketsAndParentheses()
  Dim objMyRange As Range

  '  Initialization
  Set objMyRange = ActiveDocument.Content  

  '  Find and replace words in brackets and parentheses with "".
  With objMyRange.Find
    .Text = "\[*\]"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
    .Text = "\(*\)"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
  End With
End Sub
  1. Не забудьте нажать «Выполнить».Вставьте коды -> нажмите «Выполнить».

Важность резервного копирования

Как упоминалось выше, мы должны иногда делать резервные копии наших файлов, прежде чем работать с ними, чтобы гарантировать целостность информации. Так как мы можем случайно сделать неверный ход или что-то еще, резервное копирование всегда необходимо. Однако, если у вас нет привычки резервного копирования, вам придется обратиться к инструмент для восстановления данных ворд когда ваши файлы повреждены.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Инструмент восстановления Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

Комментарии закрыты.