2 způsoby dávkové změny textů na horní nebo dolní index v dokumentu Word

V dnešním článku bychom vám chtěli ukázat 2 způsoby dávkové změny textů na horní nebo dolní index v dokumentu Word.

Někdy potřebujeme změnit určité texty v dokumentu Word na horní nebo dolní indexy, zejména pokud se stejný text vyskytuje vícekrát. V takových případech je dávková náhrada to, co nejvíce potřebujeme. Z tohoto důvodu vám nabízíme 2 rychlé metody, jak tohoto úkolu dosáhnout.

Metoda 1: Použijte funkci „Najít a nahradit“

V nadcházejícím obsahu použijeme ukázku „DataNumen Word Repair v2.5 “jako naše ukázka. Naším cílem je nahradit „v2.5“ jako dolní index.

1. Nejprve klikněte na kartu „Domů“.
2. Poté klikněte na „Nahradit“ a otevřete dialogové okno „Najít a nahradit“.
3. Nejprve zadejte „v2.5“ do textového pole „Najít co“. Nezapomeňte před text zadat mezeru.
4. Poté do textového pole „Nahradit za“ zadejte „v2.5“. Tentokrát před textem není mezera.
5. Poté klikněte na tlačítko „Více“ a rozbalte další možnosti.
6. Nyní klikněte na „Formátovat“ a vyberte „Písmo“.
7. V dialogovém okně „Najít písmo“ zaškrtněte políčko „Horní index“ nebo „Dolní index“.
8. Poté klikněte na „OK“.
9. Nakonec klikněte na tlačítko „Nahradit vše“.

Efekt můžete zkontrolovat zde:

Metoda 2: Dávkové nahrazení spuštěním makra aplikace Word

1. Nejprve stisknutím kombinace kláves „Alt + F11“ spusťte editor VBA.
2. Poté klikněte na „Normální“ projekt a dále na kartu „Vložit“.
3. V rozbalovací nabídce vyberte možnost „Modul“.
4. Další dvojitým kliknutím na nový modul otevřete oblast kódování.
5. Vložte tam následující 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. Klikněte na „Spustit“.
7. Nejprve je zde pole „Vybrat text“. Zadejte hledaný text a klikněte na „OK“. V takovém případě zadejte „v2.5“.
8. Pak je zde pole „Nahradit text“. Zadejte tam nový text a klikněte na „OK“. Zadejte „v2.5“.

Pokud potřebujete změnit texty na horní index, můžete použít 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

Opravte chyby dokumentu

Chyby ve slovech nejsou pro většinu z nás ničím novým. Zhroucení slova může vést k poškozený docx soubor. Chcete-li takový problém vyřešit, musíte sehnat kvalifikovaný a profesionální nástroj pro obnovení poškozeného dokumentu.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com