3 jednoduché spôsoby, ako nahradiť písmo v dokumente Word

V tomto článku vám chceme ukázať 3 jednoduché a efektívne spôsoby, ako nahradiť konkrétne písmo v dokumente Word.

Spracovanie dokumentu v programe Word si často vyžaduje viac ako úpravy. Napríklad by sme mali tiež považovať také prvky ako štýl, rozloženie stránky atď. A jedným zo všetkých druhov je použitie písma. Vzhľadom na to, že je pravdepodobné, že písmo zmeníme pomerne často na iné, máme tu 3 spôsoby, ako nám ľahko pomôcť pri zvládnutí úlohy.

Metóda 1: Použite funkciu „Nájsť a nahradiť“

1. V prvom radeost, kliknite na kartu Domov.
2. Potom kliknite na tlačidlo „Nahradiť“ v skupine „Úpravy“.
3. Ďalej v dialógovom okne „Nájsť a nahradiť“ sa uistite, že sa nachádzate na karte „Nahradiť“. Vložte ukazovateľ vloženia do poľa „Čo nájdete“ a skontrolujte, či je prázdny.
4. Kliknutím na tlačidlo „Viac“ v ľavom dolnom rohu rozšírite ďalšie možnosti.
5. Teraz najskôr kliknite na „Formátovať“.
6. Potom vyberte možnosť „Písmo“ a otvorte pole „Nájsť písmo“.
7. Vyberte typ písma, ktorý chcete nahradiť.
8. Ďalej kliknite na „OK“.
9. Potom umiestnite ukazovateľ vloženia do textového poľa „Nahradiť za“ a ubezpečte sa, že neexistuje jediný znak.
10. Zopakujte kroky 5 a 6. Iba tentokrát v poli „Nájsť písmo“ by ste mali zvoliť písmo, ktoré chcete nahradiť. Potom kliknite na „OK“.
11. Nakoniec kliknite na tlačidlo „Nahradiť všetko“ v poli „Nájsť a nahradiť“.

Metóda 2: Použite makro na nahradenie písma v jednom dokumente

1. Najskôr stlačte „Alt + F11“, čím spustíte editor Word VBA.
2. Potom kliknite na „Normálny“ a potom na „Vložiť“.
3. Vyberte „Modul“ a vložte nový modul pod projekt „Normálny“.
4. Potom na ňu dvakrát kliknite, čím otvoríte priestor na úpravy.
5. Vložte tam nasledujúce kódy:

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. Nakoniec nezabudnite kliknúť na tlačidlo „Spustiť“.

Poznámky:

1. V riadku kódu „If objSingleWord.Font.Name = “Calibri” Potom“, Nahradiť„Calibri”S typom písma v dokumente, ktorý už nepotrebujete.
2. V riadku kódu „Font.Name = „Times New Roman“”, Zmeniť“Times New Roman”S písmom, ktoré chcete pre súbor použiť.

Metóda 3: Spustenie makra na nahradenie písma vo viacerých dokumentoch

Všetky vyššie uvedené 2 metódy hovoria o pokynoch na nahradenie písma v jednom dokumente. Poďme sa teraz pozrieť na to, ako nahradiť písmo vo viacerých dokumentoch. Riešením je samozrejme spustenie makra Word.

1. Na začiatok zariadiť všetko tarzískať dokumenty v jednom priečinku.
2. Potom otvorte Word a spustite editor VBA a priestor na úpravy kódu pomocou krokov v metóde 2.
3. Ďalej vložte nasledujúce kódy:

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. Nakoniec stlačte tlačidlo „Spustiť“.

Poznámky:

1. „Calibri“ je písmo, ktoré nepotrebujete, a „Time New Roman“ je to, ktoré chcete.
2. V riadku kódu „strFolder = “C: \ Users \ Test \ Desktop \ testovacie súbory \”“,„C: \ Users \ Test \ Desktop \ testovacie súbory \”Predstavuje cestu k priečinku. A nezabudnite na posledný “\”Po ceste.

Oprava prekvapivých slovných chýb

V programe Word sa môžu občas vyskytnúť chyby. Dôsledok je pre naše súbory Word smrteľný. Jedným zo spôsobov riešenia prekvapivých kolapsov v programe Word je časté zálohovanie. Potom sa niet čoho báť. Ďalším spôsobom je prijať súbory potom, čo sa poškodia, to je Produkt na opravu chýb aplikácie Word docx.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený nástroj na obnovu xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S