2 måder at batch-skifte tekster til overskrift eller abonnement i dit Word-dokument

I dagens artikel vil vi gerne vise dig 2 måder at batch ændre tekster til overskrift eller abonnement i dit Word-dokument.

Nogle gange er vi nødt til at ændre bestemte tekster i et Word-dokument til hævet eller sænket skrift, især når der er flere forekomster af den samme tekst. Under sådanne omstændigheder er batchudskiftning det, vi har mest brug for. Derfor tilbyder vi 2 hurtige metoder, du kan bruge til at udføre opgaven.

Metode 1: Brug funktionen "Find og erstat"

I det kommende indhold bruger vi prøven “DataNumen Word Repair v2.5 ”som vores demonstration. Vores mål er at erstatte "v2.5" som abonnement.

1. Først og fremmest skal du klikke på fanen "Hjem".
2. Klik derefter på "Erstat" for at åbne dialogboksen "Find og erstat".
3. Indtast først "v2.5" i "Find hvad" tekstfeltet. Glem ikke at indtaste et mellemrum før tekst.
4. Indtast derefter "v2.5" i "Erstat med" tekstfelt. Der er ikke plads før teksten denne gang.
5. Klik derefter på knappen “Mere” for at udvide flere muligheder.
6. Klik nu på "Format", og vælg "Font".
7. I dialogboksen "Find skrifttype" skal du markere afkrydsningsfeltet "Superscript" eller "Subscript".
8. Klik derefter på “OK”.
9. Klik til sidst på “Erstat alle” -knappen.

Du kan kontrollere effekten her:

Metode 2: Batch Erstat ved at køre Word Macro

1. Til at begynde med skal du trykke på “Alt + F11” for at udløse VBA-editoren.
2. Klik derefter på "Normal" projekt og "Indsæt" fanen næste.
3. Vælg "Module" i rullemenuen.
4. Dobbeltklik derefter på det nye modul for at åbne kodningsområdet.
5. Indsæt 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. Klik på "Kør".
7. Først er der feltet "Vælg tekst". Indtast din søgningstekst, og klik på “OK”. I dette tilfælde skal du skrive “v2.5”.
8. Så er der feltet "Erstat tekst". Indtast den udskiftende tekst der, og klik på “OK”. Skriv “v2.5”.

Hvis du har brug for at ændre tekster til superscript, kan du bruge denne 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

Ret dokumentfejl

Ordfejl er ikke fremmede for de fleste af os. Et ord, der kollapser, kan resultere i en korrupt docx fil. For at løse et sådant problem skal du tage fat på et kvalificeret og professionelt værktøj til at gendanne det ødelagte dokument.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com