Как выделить только цифры в Microsoft Word: пошаговая инструкция

Автор На чтение 7 мин Просмотров 8 Обновлено

Я научился находить и выделять конкретные числа, однако это было бы весьма полезно.

Например: я хочу отыскать все числа в диапазоне от 2300 до 2500 и выделить их. Однако каждое число может быть представлено как * .2300 * .2301 и так далее.

В наихудшем случае выделение любого числа из указанного диапазона является основной задачей, а префикс * . только упрощает процесс.

Обновление до вопроса: Примечание. Чтобы точно указать, что я делаю, у меня есть документ, в котором netstat был запущен на 100 разных машинах. цифры перепутаны с тоннами другой информации. Копирование и вставка чисел в другую программу заняло бы столько же времени, сколько и выделение цифр с помощью инструмента выделения. Спасибо всем за ваши ответы, и я ценю совет. Я начинаю думать, что ответ может быть "Нет" в слове и "Да" в другой программе.

обновлён Patrick 35

назначен Patrick 35

Microsoft Excel представляет собой программное обеспечение для работы с электронными таблицами, которое позволяет хранить, организовывать и управлять данными. Существует функция условного форматирования, которая автоматически подчеркивает ячейки при соблюдении определенных условий.

У меня не установлен английский Excel, поэтому я ищу этот образ из Интернета, вы должны использовать Between. вместо Duplicate Values.

В случае отсутствия приложения Excel, вы можете обратить внимание на бесплатные альтернативы, такие как LibreOffice или веб-приложение Google Docs.

ответ предоставлен Bilo 1k

Кроме того, вы можете воспользоваться функцией «Найти и заменить» в Word с использованием подстановочных знаков.

В поле "Найти что" введите: .2[34][0-9][!0-9]

При этом будет найдена точка (точка или точка), за которой следует 2 , за которым следует 3 или 4 , за которыми следуют две (2) цифры, а за ним следует символ, который не является другой цифрой. ,

Это ограничивает его значением от 2300 до 2499 (поэтому опускается 2500 — но вы можете сделать это одноразовый поиск). Включив в конце значение не 0-9, он, например, не наберет 23000 или 23456.

Убедитесь, что вы нажали кнопку "Дополнительно", чтобы увидеть все варианты. Отметьте галочкой "Использовать шаблоны".

Для "Заменить на" оставьте это поле пустым, но на кнопке "Формат" в левом нижнем углу нажмите "Выделить" (поэтому под текстовым полем "Заменить на" вы увидите слово "Выделить").

(Прежде чем сделать это, убедитесь, что вы выделили какой-то текст цветом, чтобы ваш маркер был установлен на цвет, а не на цвет, иначе ваша замена не будет "выделена").

4 способа исключить числа в документе Word из статистики количества слов

Как правило, Word считает все типы текстов, будь то слова или числа. Но время от времени мы, вероятно, будем считать слова, исключая определенные элементы, например числа. Поэтому мы рады показать вам 4 способа удовлетворить такое требование.

Прежде всего, необходимо сделать резервную копию tarполучить документ и использовать все методы ниже на вашей копии.

Способ 1: удалить все номера

  • Во-первых, откройте файл копии и нажмите кнопку раскрывающегося списка «Найти» на вкладке «Главная».
  • Во-вторых, выберите «Расширенный поиск», чтобы открыть диалоговое окно «Найти и заменить».
  • Затем введите «^ #» в текстовое поле «Найти». Если вы не можете вспомнить эту строку, поместите курсор в текстовое поле «Найти что» и нажмите «Дополнительно», затем нажмите кнопку «Специальные».
  • Затем выберите «Любая цифра».
  • Теперь нажмите «Найти в» и выберите «Основной документ».
  • Вы обнаружите, что все номера находятся в выборе.
  • Нажмите «Удалить».
  • Как только числа исчезнут, вы можете заметить, что Word теперь считает некоторые знаки препинания словами. Поэтому вам также нужно удалить все знаки препинания. Откройте окно «Найти и заменить» еще раз. На этот раз введите “[,.;:’”””/!*?\]” (без кавычек) в текстовом поле «Найти».
  • И не забудьте поставить галочку «Использовать подстановочные знаки».
  • Повторите шаг 5, чтобы найти все знаки препинания.
  • Удалите их.
  • Наконец, нажмите «Обзор», затем «Подсчет слов», чтобы просмотреть общее количество текстов.

    • Способ 2: отформатировать все числа как скрытый текст

    Word не включает скрытый текст в подсчет слов, поэтому вы можете установить числа в скрытом форматировании.

  • Прежде всего, повторите первые 6 шагов метода.
  • Вместо удаления выбранных номеров нажмите «Ctrl + D», чтобы открыть окно «Шрифт».
  • Установите флажок «Скрытый» и нажмите «ОК».
  • Затем повторите шаги с 8 по 9, чтобы найти все знаки препинания.
  • Точно так же выполните шаги 2 и 3, чтобы отформатировать знаки препинания как скрытый текст.
  • Наконец, проверьте общее количество слов.

    • Способ 3: запустить макрос Word

    Данный макрос автоматически реализует указанные ранее действия и выдаст вам диалоговое окно с общим количеством слов, не учитывая числовые значения.

  • Для начала нажмите «Alt + F11» в Word, чтобы открыть редактор VBA.
  • Затем нажмите «Обычный» в левом столбце.
  • Затем нажмите вкладку «Вставка» и выберите «Модуль».
  • Дважды щелкните модуль, чтобы открыть его, и вставьте следующие коды:

    • Sub ИсключитьЧислаИзПодсчётаСлов() Dim документ As Document Dim количествоСлов As Integer Set документ = ActiveDocument With Selection .HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^#" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[,.;:’" ChrW(8221) ""/!*?\] " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute End With Selection.Find.Execute Replace:=wdReplaceAll End With количествоСлов = документ.Range.ComputeStatistics(wdStatisticWords) MsgBox ("В этом документе насчитано " " слова".") End Sub

  • Нажмите «Выполнить».

    • Вы получите окно сообщения, сообщающее вам, сколько слов в вашем документе, например ниже:

    Метод 4: исключить числа в таблицах из подсчета слов

    Здесь особенно необходимо исключить числа в таблицах из подсчета слов. Решение состоит в том, чтобы запустить макрос.

  • Установите и запустите макрос, как указано выше в способе 3.
  • Затем замените этот макрос на этот:

    • Sub ИсключитьЧислаИзТаблицИзПодсчетаСлов()

    Dim objDoc As Document, objNewDoc As Document

    Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer

    Dim objTable As Table

    Dim objRange As Range

    Dim objParagraph As Paragraph

    Set objDoc = ActiveDocument

    Set objNewDoc = Documents.Add

    nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)

    Для каждой таблицы objTable в objDoc.Tables

    objTable.Range.Select

    Selection.Copy

    Set objRange = objNewDoc.Range

    objRange.Collapse Direction:=wdCollapseEnd

    objRange.PasteSpecial DataType:=wdPasteRTF

    objRange.Collapse Direction:=wdCollapseEnd

    objRange.Text = vbCr

    Next objTable

    objNewDoc.Activate

    Для каждого objParagraph в ActiveDocument.Paragraphs

    Если objParagraph.Range.Style = "Caption" Тогда

    objParagraph.Range.Delete

    Конец Если

    Next objParagraph

    nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)

    С помощью Selection

    .HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    С помощью Selection.Find

    .Text = "^#"

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchWildcards = False

    .MatchSoundsLike = False

    .MatchAllWordForms = False

    .Execute

    Конец С помощью

    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    С помощью Selection.Find

    .Text = "[,.;:’"" ChrW(8221) ""/!\*?\\]"

    .Replacement.Text = ""

    .Forward = True

    .Wrap = wdFindContinue

    .Format = False

    .MatchCase = False

    .MatchWholeWord = False

    .MatchAllWordForms = False

    .MatchSoundsLike = False

    .MatchWildcards = True

    .Execute

    Конец С помощью

    Selection.Find.Execute Replace:=wdReplaceAll

    Конец С помощью

    nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)

    nNumber = nWordInNewDoc — nWordInNewDocWithoutNum

    objDoc.Activate

    MsgBox ("В данном документе содержится " & nWordInNewDocWithoutNum & " слова, не считая чисел в таблицах.")

    End Sub

    Будет такое окно сообщения:

    Думать о будущем

    Учитывая тот факт, что Word не является надежным, вы должны принять превентивные меры, пока не стало слишком поздно. Ихost Полезным способом является резервное копирование ваших документов и их резервное копирование, насколько это возможно. Резервное копирование документа может занять всего несколько минут, а восстановление документа может занять часы и даже дни. поврежденный документ. Так что подумайте заранее, чтобы сэкономить время и деньги.

    Оцените статью
    InternetDoc.ru
    Добавить комментарий

    2009 - 2026 © InternetDoc.ru Word, Excel, Google Docs — инструкции, обучалки