У сьогоднішній статті ми хотіли б показати вам 2 способи групової зміни текстів на верхній або нижній індекс у вашому документі Word.
Іноді нам потрібно змінити певні тексти в документі Word на верхні або нижні індекси, особливо коли один і той самий текст зустрічається кілька разів. За таких обставин пакетна заміна є тим, що нам найбільше потрібно. З цієї причини ми пропонуємо 2 швидких способи виконання цього завдання.
Спосіб 1: Використовуйте функцію «Знайти та замінити»
У наступному вмісті ми використаємо зразок “DataNumen Word Repair v2.5 ”як наша демонстрація. Наша мета - замінити “v2.5” як індекс.
- Перш за все, натисніть вкладку «Головна».
- Потім натисніть «Замінити», щоб відкрити діалогове вікно «Знайти та замінити».
- Спочатку введіть “v2.5” у текстовому полі “Знайти що”. Не забудьте ввести пробіл перед текстом.
- Потім введіть “v2.5” у текстовому полі “Замінити на”. Цього разу перед текстом немає місця.
- Далі натисніть кнопку «Більше», щоб розгорнути більше можливостей.
- Тепер натисніть «Формат» і виберіть «Шрифт».
- У діалоговому вікні “Шукати шрифт” поставте прапорець “Верхній індекс” або “Індекс”.
- Потім натисніть «ОК».
- Нарешті натисніть кнопку «Замінити все».
Перевірити ефект ви можете тут:
Спосіб 2: Пакетна заміна, запустивши макрос Word
- Для початку натисніть «Alt + F11», щоб запустити редактор VBA.
- Потім натисніть проект «Звичайний» та вкладку «Вставити» далі.
- Виберіть “Модуль” у спадному меню.
- Далі двічі клацніть на новий модуль, щоб відкрити область кодування.
- Вставте туди такий макрос:
Sub ReplaceTheTextAsSubscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = False
.Subscript = True
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Клацніть «Виконати».
- Спочатку є поле «Виділити текст». Введіть текст пошуку та натисніть “OK”. У цьому випадку введіть “v2.5”.
- Потім є поле «Замінити текст». Введіть туди текст, що замінює, і натисніть “OK”. Введіть “v2.5”.
Якщо вам потрібно змінити тексти на індекс, ви можете використовувати цей макрос:
Sub ReplaceTheTextAsSuperscript()
Dim strSelectText As String
Dim strReplaceText As String
strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = strSelectText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Виправити помилки документа
Помилки у словах знайомі більшості з нас. Згортання слова може призвести до корумпований docx файл. Щоб вирішити таку проблему, вам потрібно взяти кваліфікований та професійний інструмент для відновлення непрацюючого документа.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі пошкоджений XLSX та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com