2 sätt att byta texter till superscript eller prenumeration i ditt Word-dokument

I dagens artikel vill vi visa dig två sätt att gruppera ändra texter till superscript eller prenumeration i ditt Word-dokument.

Ibland behöver vi ändra vissa texter i Word-dokument till upphöjda eller nedsänkta tecken, särskilt när det finns flera förekomster av samma text. Under sådana omständigheter är batchbyte det vi behöver mest. Av denna anledning erbjuder vi två snabba metoder för att utföra uppgiften.

Metod 1: Använd funktionen "Sök och ersätt"

I det kommande innehållet kommer vi att använda exemplet “DataNumen Word Repair v2.5 ”som vår demonstration. Vårt mål är att ersätta "v2.5" som prenumeration.

1. Först och främst, klicka på fliken "Hem".
2. Klicka sedan på "Ersätt" för att öppna dialogrutan "Sök och ersätt".
3. Ange först “v2.5” i textrutan “Hitta vad”. Glöm inte att ange ett mellanslag före text.
4. Ange sedan “v2.5” i ”Ersätt med” textrutan. Det finns inget utrymme före texten den här gången.
5. Klicka sedan på “Mer” för att utöka fler alternativ.
6. Klicka nu på "Format" och välj "Font".
7. I dialogrutan "Hitta teckensnitt" markerar du rutan "Superscript" eller "Subscript".
8. Klicka sedan på “OK”.
9. Klicka äntligen på knappen "Ersätt alla".

Du kan kontrollera effekten här:

Metod 2: Batch Ersätt genom att köra Word Macro

1. Till att börja med trycker du på “Alt + F11” för att utlösa VBA-redigeraren.
2. Klicka sedan på "Normal" -projekt och "Infoga" fliken nästa.
3. Välj ”Modul” på rullgardinsmenyn.
4. Nästa dubbelklicka på den nya modulen för att öppna kodningsområdet.
5. Klistra in följande makro där:

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. Klicka på "Kör".
7. Först finns rutan "Välj text". Mata in din söktekst och klicka på “OK”. I så fall skriver du “v2.5”.
8. Sedan finns det rutan "Ersätt text". Mata in den ersättande texten där och klicka på “OK”. Skriv “v2.5”.

Om du behöver ändra texter till superscript kan du använda detta 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

Åtgärda dokumentfel

Ordfel är inte främmande för de flesta av oss. Ett ord som kollapsar kan resultera i en korrupt docx fil. För att lösa en sådan fråga måste du ta tag i ett kvalificerat och professionellt verktyg för att återställa det trasiga dokumentet.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive skadad xlsx och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com