Перейти к основному содержанию

Как выбрать все уравнения в Word?

Как выбрать все уравнения в Word? Это руководство познакомит вас со следующими методами выделения всех уравнений в словах.

Выберите все уравнения с помощью кнопки "Найти и заменить".
Выберите все уравнения с помощью VBA
Быстро выберите все уравнения с помощью Kutool for Word


Выберите все уравнения с помощью кнопки "Найти и заменить".

Словесная функция «Найти и заменить» - это наиболее распространенный способ выбора всех уравнений.

Шаг 1: нажмите Главная >Найдите > Предварительный поиск для открытия диалогового окна «Найти и заменить».

Шаг 2: в Найти и заменить диалоговое окно, нажмите Больше кнопку, чтобы открыть дополнительные параметры поиска, а затем нажмите Особый > Любая цифра, и, наконец, нажмите Найти далее кнопка. Смотрите скриншот:

Внимание: Вы можете напрямую ввести "^#”В Найдите то, что текстовое поле, а затем щелкните Найти далее как показано на скриншоте ниже.

Примечание: Этот метод позволяет выбирать только уравнение за раз. Если в вашем документе несколько уравнений и вы хотите выбрать их все одновременно, примените следующие методы. 


Быстро выберите все уравнения из выделенного фрагмента или всего документа:

Ассоциация Выберите уравнения полезности Kutools for Word помогает быстро выбрать все уравнения из выделения или сразу всего документа, как показано на скриншоте ниже. Скачайте и попробуйте прямо сейчас! (60-дневная бесплатная трасса)


Выберите все уравнения с помощью VBA

Приведенный ниже код VBA может помочь вам сразу выбрать все уравнения из документа Word. Пожалуйста, сделайте следующее. 

Шаг 1: нажмите Alt + F11 для открытия Microsoft Visual Basic для приложений окно;

Шаг 2: в Microsoft Visual Basic для приложений окна, нажмите ВставитьМодули, затем скопируйте ниже код VBA в окно модуля.

Шаг 3: нажмите Run док-обратный знак-6 или нажмите F5 применить VBA. Затем сразу выбираются все уравнения в текущем документе.

Код VBA: выберите все уравнения в документе:

Sub SelectAllEquations()
Dim xMath As OMath
Dim I As Integer
With ActiveDocument
    .DeleteAllEditableRanges wdEditorEveryone
    For I = 1 To .OMaths.Count
        Set xMath = .OMaths.Item(I)
        xMath.Range.Paragraphs(1).Range.Editors.Add wdEditorEveryone
    Next
    .SelectAllEditableRanges wdEditorEveryone
    .DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

Быстро выберите все уравнения с помощью Kutool for Word

Это наиболее удобный способ выбрать все уравнения с помощью Kutool for Word. Всего один щелчок мыши поможет выбрать уравнения из выделенного фрагмента или всего документа. Пожалуйста, сделайте следующее.

Kutools for Word : С более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 60 дня.

Нажмите Кутулс > Пункты  > Выберите уравнения. Смотрите скриншот:

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

Вы можете увидеть результаты, как показано на скриншотах ниже.

Выберите все уравнения из списка:

Выберите все уравнения из документа:

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

Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

Креативные вставки: Вставлять Разделители тысяч  /  Флажки  /  радио кнопки  /  QR код  /  Штрих-код  /  Таблица диагональных линий  /  Заголовок уравнения  /  Заголовок изображения  /  Заголовок таблицы  /  Несколько изображений  / Узнайте больше в Вставить группу...

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 60-дневная бесплатная пробная версия, без ограничений! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For Each tempTable In ActiveDocument.InlineShapes When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
This comment was minimized by the moderator on the site
When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
This comment was minimized by the moderator on the site
When I copy and paste "The VBA code to selectall equations" given above in word 2010, when saving it, the computer shows "Run time error 13 type mismatch" . What should I do?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations