2 måter å batch endre tekster til hevet eller nedskrevet i Word-dokumentet ditt

I dagens artikkel vil vi vise deg 2 måter å batchendre tekster til hevet eller senket skrift i Word-dokumentet ditt.

Noen ganger må vi endre visse tekster i Word-dokumenter til hevet eller senket skrift, spesielt når det er flere forekomster av samme tekst. Under slike omstendigheter er batch-erstatning det vi trengerost. Av denne grunn tilbyr vi 2 raske metoder for å utføre oppgaven.

Metode 1: Bruk "Finn og erstatt"-funksjonen

I det kommende innholdet vil vi bruke prøven "DataNumen Word Repair v2.5" som vår demonstrasjon. Vårt mål er å erstatte "v2.5" som abonnement.

1. Først og fremstost, klikk på "Hjem"-fanen.
2. Klikk deretter på "Erstatt" for å åpne dialogboksen "Finn og erstatt".
3. Skriv først inn " v2.5" i "Finn hva" tekstboksen. Ikke glem å skrive inn et mellomrom før tekst.
4. Skriv deretter inn "v2.5" i tekstboksen "Erstatt med". Det er ikke plass før teksten denne gangen.
5. Klikk deretter på "Mer"-knappen for å utvide flere alternativer.
6. Klikk nå på "Format" og velg "Skrift".
7. I "Finn skrift"-dialogboksen merker du av for enten "Superscript" eller "Subscript".
8. Klikk deretter “OK”.
9. Klikk til slutt på "Erstatt alle"-knappen.

Du kan sjekke effekten her:

Metode 2: Batch-erstatt ved å kjøre Word-makro

1. Til å begynne med, trykk "Alt+ F11" for å utløse VBA-editoren.
2. Klikk deretter på "Normal"-prosjektet og "Sett inn"-fanen neste.
3. Velg "Modul" på rullegardinmenyen.
4. Dobbeltklikk deretter på den nye modulen for å åpne kodeområdet.
5. Lim inn følgende makro der:

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. Klikk "Kjør".
7. Først er det "Velg tekst"-boksen. Skriv inn søketeksten og klikk "OK". I dette tilfellet skriver du "v2.5".
8. Så er det "Erstatt tekst"-boksen. Skriv inn erstattende tekst der og klikk "OK". Skriv "v2.5".

Hvis du trenger å endre tekster til hevet skrift, kan du bruke denne makroen:

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

Rett opp dokumentfeil

Ordfeil er ikke fremmed for most av oss. Et kollapsord kan resultere i en korrupt docx fil. For å løse et slikt problem, må du ta tak i et kvalifisert og profesjonelt verktøy for å gjenopprette det ødelagte dokumentet.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt xlsx og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med