2 spôsoby dávkovej zmeny textov na horný alebo dolný index v dokumente programu Word

V dnešnom článku by sme vám chceli ukázať 2 spôsoby dávkovej zmeny textov vo vašom dokumente Word na horný alebo dolný index.

Niekedy potrebujeme zmeniť určité texty v dokumente programu Word na horné alebo dolné indexy, najmä ak sa ten istý text vyskytuje viackrát. V takýchto prípadoch je dávková výmena to, čo najviac potrebujeme. Z tohto dôvodu vám ponúkame 2 rýchle metódy na vykonanie tejto úlohy.

Metóda 1: Použite funkciu „Nájsť a nahradiť“

V nasledujúcom obsahu použijeme ukážku „DataNumen Word Repair v2.5 “ako naša ukážka. Naším cieľom je nahradiť „v2.5“ ako dolný index.

1. V prvom rade kliknite na kartu „Domov“.
2. Ďalej kliknite na „Nahradiť“ a otvorí sa dialógové okno „Nájsť a nahradiť“.
3. Najskôr do textového poľa „Čo nájdete“ zadajte „v2.5“. Nezabudnite pred text zadať medzeru.
4. Potom do textového poľa „Nahradiť za“ zadajte „v2.5“. Pred textom nie je tentoraz priestor.
5. Ďalej kliknite na tlačidlo „Viac“ a rozbaľte ďalšie možnosti.
6. Teraz kliknite na „Formátovať“ a zvoľte „Písmo“.
7. V dialógovom okne „Nájsť písmo“ začiarknite políčko „Horný index“ alebo „Dolný index“.
8. Potom kliknite na „OK“.
9. Nakoniec kliknite na tlačidlo „Nahradiť všetko“.

Účinok môžete skontrolovať tu:

Metóda 2: Dávkové nahradenie spustením makra programu Word

1. Na začiatok stlačte klávesy „Alt + F11“, aby sa spustil editor VBA.
2. Potom kliknite na „Normálny“ projekt a potom na kartu „Vložiť“.
3. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
4. Ďalej dvojitým kliknutím na nový modul otvorte oblasť kódovania.
5. Vložte tam nasledujúce makro:

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. Kliknite na „Spustiť“.
7. Najskôr je tu políčko „Vybrať text“. Zadajte hľadaný text a kliknite na tlačidlo „OK“. V takom prípade zadajte „v2.5“.
8. Potom existuje políčko „Nahradiť text“. Vložte tam nový text a kliknite na „OK“. Zadajte „v2.5“.

Ak potrebujete zmeniť texty na horný index, môžete použiť toto makro:

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

Opraviť chyby dokumentu

Chyby v slovách nie sú pre väčšinu z nás cudzie. Zrútenie slova môže mať za následok skorumpovaný docx spis. Ak chcete vyriešiť tento problém, musíte sa zmocniť kvalifikovaného a profesionálneho nástroja na obnovenie nefunkčného dokumentu.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S