Как заменить подчёркивание на курсив в Word?

Иногда возникает необходимость заменить все подчёркнутые символы на курсив (или наоборот) в Word. Как быстро заменить все подчёркнутые символы на курсив? Сделать это можно двумя простыми способами.

Замена всех подчёркнутых символов на курсив с помощью Поиск и замена

Замена всех подчёркнутых символов на курсив с помощью VBA

Замена всех подчёркнутых символов на курсив с помощью Поиск и замена

Шаг 1: нажмите Главная>Заменитьили используйте сочетание клавиш Ctrl + H, чтобы открыть диалоговое окно Поиск и замена;

Шаг 2: нажмите кнопку Больше, чтобы отобразить параметры Поиска.

Шаг 3: поместите курсор в поле Что искать, выберите пункт Шрифт в меню Формат, затем в раскрывающемся списке укажите стиль Подчёркивание и цвет подчёркивания.

Шаг 4: поместите курсор в поле Заменить на, нажмите Шрифт в меню Формат, затем в раскрывающемся списке выберите Курсив в разделе «Стиль шрифта».

Шаг 5: нажмите ОК или Заменить все.

Примечание:

1. Нажмите Очистить форматирование, чтобы убедиться, что в полях Что искать и Заменить на не задано никакое форматирование перед выполнением операции.

2. Эта процедура лишь применяет курсив к подчёркнутому тексту, но не убирает само подчёркивание.

Office Tab

Вкладки для навигации в Word, Excel, PowerPoint и других приложениях — как в веб-браузере: плавное переключение между документами в одном окне.

Бесплатно скачатьПодробнее

Замена всех подчёркнутых символов на курсив с помощью VBA

Кроме того, вы также можете использовать VBA для замены подчёркивания на курсив. Однако если вы не знакомы с макросами, мы не рекомендуем этот метод. Выполните следующие действия:

Шаг 1: нажмите Alt+F11, чтобы открыть окно VBA в Word;

Шаг 2: нажмите Модульна вкладке Вставкаи вставьте код VBA в окно Модуль;

Код VBA для замены всех подчёркнутых символов на курсив в Word:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Шаг 3: нажмите кнопку Выполнить, чтобы применить код VBA (или просто нажмите)F5).

Примечание:

1. Этот код подходит только для одинарного подчёркивания без цвета. Вы можете изменить значение «wdUnderlineSingle» в коде, чтобы адаптировать его под другие стили подчёркивания, например «wdUnderlineDouble» или «wdUnderlineThick».

2. Этот код лишь применяет курсив к тексту с подчёркиванием, но не удаляет само подчёркивание.

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

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

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

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

 

Бесплатно скачать     Купить сейчас     Подробнее

 

---

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

• Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
• Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать     Купить сейчас     Подробнее

 

---

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас🎁 Приобрести полный пакет📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

• 🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
• 📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
• ✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
• 🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
• ➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
• 🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачатьКупить сейчасПодробнее о Kutools