3 nemme måder at udskifte en skrifttype i dit Word-dokument

I denne artikel vil vi vise dig 3 nemme og effektive metoder til at erstatte en bestemt skrifttype i dit Word-dokument.

At behandle et dokument i Word kræver ofte mere end redigering. For eksempel skal vi også overveje sådanne elementer som stil, sidelayout osv. Og en af ​​alle slags er skrifttypen. Da vi sandsynligvis ændrer en skrifttype til en anden ganske ofte, har vi her 3 måder at hjælpe os med let at håndtere opgaven.

Metode 1: Brug funktionen "Find og erstat"

1. Første og foremost, klik på fanen "Hjem".
2. Klik derefter på "Erstat" i gruppen "Redigering".
3. Dernæst i dialogboksen "Find og erstat" skal du sikre dig, at du er under "Erstat" -fanen. Sæt indsættelsesmarkøren i feltet "Find hvad", og sørg for, at den er tom.
4. Klik på knappen "Mere" i nederste venstre hjørne for at udvide flere muligheder.
5. Klik først på “Format”.
6. Vælg derefter "Font" for at åbne feltet "Find font".
7. Vælg den "skrifttype" -type, du vil erstatte.
8. Klik derefter på “OK”.
9. Anbring derefter indsættelsesmarkøren i "Erstat med" tekstfeltet og vær sikker på at der ikke er noget enkelt tegn.
10. Gentag trin 5 og 6. Kun denne gang i feltet "Find skrifttype" skal du vælge den skrifttype, som du vil erstatte. Klik derefter på “OK”.
11. Til sidst skal du klikke på "Erstat alle" i feltet "Find og erstat".

Metode 2: Brug makro til at erstatte skrifttype i et dokument

1. Først skal du trykke på “Alt + F11” for at udløse Word VBA editor.
2. Klik derefter på “Normal” og derefter “Indsæt”.
3. Vælg “Module” for at indsætte et nyt modul under “Normal” -projektet.
4. Dobbeltklik derefter på den for at åbne redigeringsområdet.
5. Indsæt følgende koder der:

Sub ReplaceFontForOneDocument()
  Dim objSingleWord As Range
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objSingleWord In .Words
      If objSingleWord.Font.Name = "Calibri" Then
        objSingleWord.Font.Name = "Times New Roman"
      End If
    Next
  End With
End Sub

6. Endelig skal du huske at klikke på knappen "Kør".

Bemærkninger:

1. I kodelinje “Hvis objSingleWord.Font.Name = “Calibri” Derefter”, Udskift“Calibri”Med skrifttypen i dokumentet, du ikke længere har brug for.
2. I kodelinje “Font.Name = "Times New Roman"", lave om "Times New Roman”Med den skrifttype, du vil anvende til filen.

Metode 3: Kør makro for at erstatte skrifttype i flere dokumenter

De ovennævnte 2 metoder taler alle om instruktioner til udskiftning af skrifttype i et dokument. Lad os nu se på, hvordan man udskifter skrifttype i flere dokumenter. Løsningen her kører naturligvis en Word-makro.

1. Til at begynde med skal du arrangere alt tarfå dokumenter i en mappe.
2. Åbn derefter Word og udløs VBA-editor og kodedigeringsområdet ved hjælp af trinene i metode 2.
3. Indsæt derefter de bølgende koder:

Sub BatchReplaceFont()
  Dim objDoc As Document
  Dim objSingleWord As Range
  Dim strFile As String, strFolder As String
 
  'Initialization
  strFolder = "C:\Users\Test\Desktop\test files\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  'Replace a specific font with another in all files under the same folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  For Each objSingleWord In objDoc.Words
    If objSingleWord.Font.Name = "Calibri" Then
      objSingleWord.Font.Name = "Time New Roman"
    End If
  Next objSingleWord
 
  objDoc.Save
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

4. Tryk endelig på knappen "Kør".

Noter:

1. "Calibri" er den skrifttype, du ikke har brug for, og "Time New Roman" er den, du ønsker.
2. I kodelinje “strFolder = “C: \ Brugere \ Test \ Desktop \ testfiler \”", det "C: \ Brugere \ Test \ Desktop \ testfiler \”Repræsenterer mappestien. Og glem ikke det sidste ”\”Efter stien.

Ret overraskende ordfejl

Fejl kan vises nu og da i Word. Og konsekvensen er dødelig for vores Word-filer. En måde at tackle de overraskende sammenbrud i Word er at tage backup ofte. Så er der intet at være bange for. En anden måde er at genbruge filer, når de bliver korrupte, det er en Word docx-reparationsprodukt til fejl.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupte xls opsving værktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com