2 Möglichkeiten zum Ändern von Texten in hochgestelltem oder tiefgestelltem Text in Ihrem Word-Dokument

Im heutigen Artikel möchten wir Ihnen zwei Möglichkeiten zeigen, wie Sie Texte in Ihrem Word-Dokument stapelweise in hochgestellt oder tiefgestellt ändern können.

Manchmal müssen wir bestimmte Texte in Word-Dokumenten in hochgestellte oder tiefgestellte Texte ändern, insbesondere wenn mehrere Instanzen desselben Textes vorhanden sind. Unter solchen Umständen ist der Austausch von Chargen das, was wir brauchenost. Aus diesem Grund bieten wir Ihnen zwei schnelle Methoden an, um die Aufgabe zu erfüllen.

Methode 1: Verwenden Sie die Funktion „Suchen und Ersetzen“

In den kommenden Inhalten werden wir das Beispiel „DataNumen Word Repair v2.5 ”als unsere Demonstration. Unser Ziel ist es, die "v2.5" als Index zu ersetzen.

1. In erster LinieostKlicken Sie auf die Registerkarte "Home".
2. Klicken Sie anschließend auf "Ersetzen", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
3. Geben Sie zuerst "v2.5" in das Textfeld "Find what" ein. Vergessen Sie nicht, vor dem Text ein Leerzeichen einzugeben.
4. Geben Sie dann "v2.5" in das Textfeld "Ersetzen durch" ein. Diesmal ist vor dem Text kein Leerzeichen.
5. Klicken Sie anschließend auf die Schaltfläche "Mehr", um weitere Optionen zu erweitern.
6. Klicken Sie nun auf "Formatieren" und wählen Sie "Schriftart".
7. Aktivieren Sie im Dialogfeld "Schriftart suchen" entweder das Kontrollkästchen "Hochgestellt" oder "Tiefgestellt".
8. Klicken Sie dann auf "OK".
9. Klicken Sie abschließend auf die Schaltfläche "Alle ersetzen".

Sie können den Effekt hier überprüfen:

Methode 2: Batch-Ersetzung durch Ausführen eines Word-Makros

1. Drücken Sie zunächst „Alt + F11“, um den VBA-Editor auszulösen.
2. Klicken Sie dann auf das Projekt „Normal“ und anschließend auf die Registerkarte „Einfügen“.
3. Wählen Sie im Dropdown-Menü "Modul".
4. Doppelklicken Sie anschließend auf das neue Modul, um den Codierungsbereich zu öffnen.
5. Fügen Sie dort das folgende Makro ein:

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. Klicken Sie auf "Ausführen".
7. Zuerst gibt es das Feld "Text auswählen". Geben Sie Ihren Fundtext ein und klicken Sie auf "OK". Geben Sie in diesem Fall "v2.5" ein.
8. Dann gibt es das Feld "Text ersetzen". Geben Sie dort den ersetzenden Text ein und klicken Sie auf „OK“. Geben Sie "v2.5" ein.

Wenn Sie Texte in hochgestellte Texte ändern müssen, können Sie dieses Makro verwenden:

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

Beheben Sie Dokumentfehler

Wortfehler sind für m kein Unbekannterost von uns. Ein zusammenbrechendes Wort kann zu a führen beschädigte docx Datei. Um dieses Problem zu beheben, müssen Sie sich ein qualifiziertes und professionelles Tool besorgen, um das fehlerhafte Dokument wiederherzustellen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich beschädigtes xlsx , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX