2 manieren om batchgewijs teksten te wijzigen in Superscript of Subscript in uw Word-document

Word-oplossingen 28 september 2025

In het artikel van vandaag willen we u 2 manieren laten zien om batchgewijs teksten te wijzigen naar superscript of subscript in uw Word-document.

Soms moeten we bepaalde tekst in een Word-document omzetten naar superscript of subscript, vooral als dezelfde tekst meerdere keren voorkomt. In zulke gevallen is het vervangen van meerdere teksten tegelijk de beste oplossing. Daarom bieden we u twee snelle methoden om deze taak uit te voeren.

Methode 1: Gebruik de functie "Zoeken en vervangen"

In de komende inhoud zullen we het voorbeeld 'DataNumen Word Repair v2.5 ”als onze demonstratie. Ons doel is om “v2.5” te vervangen als subscript.De noodzaak om tekst te vervangen door subscript

  1. Klik allereerst op het tabblad "Home".
  2. Klik vervolgens op "Vervangen" om het dialoogvenster "Zoeken en vervangen" te openen.Klik op "Home" -> Klik op "Vervangen"
  3. Voer eerst "v2.5" in het tekstvak "Zoeken naar" in. Vergeet niet een spatie voor tekst in te voeren.
  4. Voer vervolgens "v2.5" in het tekstvak "Vervangen door" in. Er is deze keer geen spatie voor de tekst.
  5. Klik vervolgens op de knop "Meer" om meer opties uit te vouwen.Voer inhoud in-> Klik op "Meer"
  6. Klik nu op "Formaat" en kies "Lettertype".Klik op "Formaat" -> Kies "Lettertype"
  7. Vink in het dialoogvenster "Lettertype zoeken" het vakje "Superscript" of "Subscript" aan.
  8. Klik vervolgens op "OK".Controleer optie-> klik op "OK"
  9. Klik ten slotte op de knop "Alles vervangen".Klik op "Alles vervangen"

U kunt het effect hier bekijken:Effect van batchvervanging

Methode 2: Batch vervangen door Word Macro uit te voeren

  1. Druk om te beginnen op "Alt + F11" om de VBA-editor te activeren.
  2. Klik vervolgens op "Normaal" project en vervolgens op het tabblad "Invoegen".
  3. Kies "Module" in het vervolgkeuzemenu.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  4. Dubbelklik vervolgens op de nieuwe module om het codeergedeelte te openen.
  5. Plak daar de volgende macro:
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
  1. Klik op "Uitvoeren".Plak codes-> Klik op "Uitvoeren"
  2. Ten eerste is er het vak “Tekst selecteren”. Voer uw zoektekst in en klik op "OK". Typ in dat geval "v2.5".Voer zoektekst in-> klik op "OK"
  3. Dan is er het vak “Tekst vervangen”. Voer daar de vervangende tekst in en klik op "OK". Typ "v2.5".Voer vervangende tekst in

Als u teksten in superscript moet veranderen, kunt u deze macro gebruiken:

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

Herstel documentfouten

Fouten in tekstverwerkingsprogramma's zijn voor de meesten van ons geen onbekend fenomeen. Een fout in een tekstverwerkingsprogramma kan leiden tot een corrupte docx het dossier. Om een ​​dergelijk probleem op te lossen, moet u een gekwalificeerde en professionele tool in handen nemen om het kapotte document te herstellen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.