3 enkle måter å erstatte en skrift i Word-dokumentet ditt

I denne artikkelen vil vi vise deg 3 enkle og effektive metoder for å erstatte en bestemt skrift i Word-dokumentet ditt.

Å behandle et dokument i Word krever ofte mer enn redigering. For eksempel skal vi også vurdere elementer som stil, sidelayout osv. Og en av alle typer er fontansettelsen. Gitt at vi sannsynligvis vil endre en font til en annen ganske ofte, har vi her 3 måter å hjelpe oss med å enkelt håndtere oppgaven.

Metode 1: Bruk "Finn og erstatt"-funksjonen

1. Først og fremstost, klikk på "Hjem"-fanen.
2. Klikk deretter på "Erstatt" i "Redigering"-gruppen.
3. Neste i "Finn og erstatt"-dialogboksen, sørg for at du er under "Erstatt"-fanen. Sett innsettingspekeren i "Finn hva"-boksen og sørg for at den er tom.
4. Klikk på "Mer"-knappen i nedre venstre hjørne for å utvide flere alternativer.
5. Klikk nå på "Format" først.
6. Velg deretter "Font" for å åpne "Finn font"-boksen.
7. Velg "Skrift"-typen du vil erstatte.
8. Klikk deretter "OK".
9. Plasser deretter innsettingspekeren i "Erstatt med" tekstboksen og vær sikker på at det ikke er et enkelt tegn.
10. Gjenta trinn 5 og 6. Bare denne gangen i "Finn font"-boksen, bør du velge skriften du vil erstatte med. Klikk deretter "OK".
11. Til slutt klikker du på "Erstatt alle" i "Finn og erstatt"-boksen.

Metode 2: Bruk makro for å erstatte skrift i ett dokument

1. Først av, trykk "Alt + F11" for å utløse Word VBA-editor.
2. Klikk deretter "Normal" og deretter "Sett inn".
3. Velg "Modul" for å sette inn en ny modul under "Normal" prosjekt.
4. Dobbeltklikk deretter på den for å åpne redigeringsområdet.
5. Lim inn 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. Til slutt, husk å klikke på "Kjør"-knappen.

Merknader:

1. I kodelinje "Hvis objSingleWord.Font.Name = "Calibri" Da", erstatte "Calibri” med skrifttypen i dokumentet du ikke trenger lenger.
2. I kodelinje "Font.Name = "Times New Roman"", endring "Times New Roman” med skriften du vil bruke for filen.

Metode 3: Kjør makro for å erstatte skrift i flere dokumenter

De nevnte to metodene snakker alle om instruksjoner for å erstatte skrift i ett dokument. La oss nå ta en titt på hvordan du erstatter skrift i flere dokumenter. Løsningen her er selvfølgelig å kjøre en Word-makro.

1. Til å begynne med, ordne alt tarfå dokumenter i én mappe.
2. Åpne deretter Word og utløs VBA-editoren og koderedigeringsområdet ved å bruke trinnene i metode 2.
3. Deretter limer du inn kodene nedenfor:

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. Trykk på "Kjør"-knappen til slutt.

Merknader:

1. "Calibri" er skriften du ikke trenger, og "Time New Roman" er den du vil ha.
2. I kodelinje "strFolder = "C:\Users\Test\Desktop\testfiler\"”,“C:\Brukere\Test\Desktop\testfiler\” representerer mappebanen. Og ikke glem den siste "\" følger stien.

Rett opp overraskende ordfeil

Feil kan dukke opp nå og da i Word. Og konsekvensen er dødelig for Word-filene våre. En måte å takle de overraskende sammenbruddene i Word er å sikkerhetskopiere ofte. Da er det ingenting å være redd for. En annen måte er å gjenbruke filer etter at de har blitt korrupte, det er en Word docx feilreparasjonsprodukt.

Forfatterintroduksjon:

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