2 начина за групова промяна на текстове в горен или долен индекс във вашия документ на Word

В днешната статия бихме искали да ви покажем 2 начина за групова промяна на текстове в горен или долен индекс във вашия документ на Word.

Понякога се налага да променим определени текстове в Word документ в горни или долни индекси, особено когато има няколко екземпляра на един и същ текст. При такива обстоятелства, пакетната подмяна е това, от което се нуждаем най-много. Поради тази причина, ви предлагаме 2 бързи метода за изпълнение на задачата.

Метод 1: Използвайте функцията „Намери и замени“

В следващото съдържание ще използваме примера „DataNumen Word Repair v2.5” като наша демонстрация. Нашата цел е да заменим „v2.5“ като индекс.

1. Първо и най-важно, кликнете върху раздела „Начало“.
2. След това щракнете върху „Замяна“, за да отворите диалоговия прозорец „Намиране и замяна“.
3. Първо въведете „v2.5“ в текстовото поле „Намерете какво“. Не забравяйте да въведете интервал преди текста.
4. След това въведете „v2.5“ в текстовото поле „Замени с“. Този път няма интервал преди текста.
5. След това щракнете върху бутона „Още“, за да разширите още опции.
6. Сега щракнете върху „Форматиране“ и изберете „Шрифт“.
7. В диалоговия прозорец „Намиране на шрифт“ поставете отметка в квадратчето „Горен индекс“ или „Долен индекс“.
8. След това щракнете върху „OK“.
9. Накрая щракнете върху бутона „Замяна на всички“.

Можете да проверите ефекта тук:

Метод 2: Пакетна замяна чрез стартиране на макрос на Word

1. Като начало натиснете „Alt+ F11“, за да задействате VBA редактора.
2. След това щракнете върху „Нормален“ проект и след това върху раздел „Вмъкване“.
3. Изберете „Модул“ от падащото меню.
4. След това кликнете два пъти върху новия модул, за да отворите областта за кодиране.
5. Поставете следния макрос там:

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

6. Щракнете върху „Run“.
7. Първо има полето „Избор на текст“. Въведете текста за намиране и щракнете върху „OK“. В този случай въведете „v2.5“.
8. След това има полето „Замяна на текст“. Въведете заместващия текст там и щракнете върху „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

Коригиране на грешки в документа

Грешките в думите не са непознати за повечето от нас. Сривът на Word може да доведе до... корумпиран docx файл. За да разрешите такъв проблем, трябва да се сдобиете с квалифициран и професионален инструмент за възстановяване на счупения документ.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително повреден xlsx и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com