3 lihtsat viisi fondi asendamiseks Wordi dokumendis

Selles artiklis tahame teile näidata 3 lihtsat ja tõhusat meetodit konkreetse fondi asendamiseks teie Wordi dokumendis.

Dokumendi töötlemine Wordis nõuab sageli rohkemat kui redigeerimist. Näiteks peaksime arvestama ka selliste elementidega nagu stiil, lehe paigutus jne. Ja üks neist on fondi kasutamine. Arvestades, et vahetame fondi tõenäoliselt üsna sageli teise vastu, on siin kolm võimalust, mis aitavad meil ülesandega hõlpsalt hakkama saada.

1. meetod: kasutage funktsiooni Otsi ja asenda

1. Esiteks ja eeskättost, klõpsake vahekaarti "Kodu".
2. Seejärel klõpsake rühmas "Redigeerimine" nuppu "Asenda".
3. Järgmiseks dialoogiboksis „Otsi ja asenda” veenduge, et oleksite vahekaardil „Asenda”. Asetage sisestuskursor väljale „Leia mis” ja veenduge, et see oleks tühi.
4. Rohkemate valikute laiendamiseks klõpsake vasakus allnurgas nuppu "Veel".
5. Nüüd klõpsake kõigepealt nuppu "Vorminda".
6. Seejärel valige kasti "Otsi font" avamiseks "Font".
7. Valige "Font" tüüp, mida soovite asendada.
8. Järgmisena klõpsake nuppu "OK".
9. Seejärel asetage sisestuskursor tekstiväljale "Asenda" ja veenduge, et seal pole ühtegi tähemärki.
10. Korrake samme 5 ja 6. Ainult seekord kastis "Otsi font" peaksite valima fondi, millega soovite asendada. Seejärel klõpsake nuppu "OK".
11. Lõpuks klõpsake kastis "Otsi ja asenda" nuppu "Asenda kõik".

2. meetod: kasutage makrot fondi asendamiseks ühes dokumendis

1. Kõigepealt vajutage Wordi VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
2. Seejärel klõpsake "Tavaline" ja seejärel "Insert".
3. Valige "Moodul", et lisada uus moodul projekti "Tavaline" alla.
4. Järgmisena topeltklõpsake seda redigeerimisruumi avamiseks.
5. Kleepige sinna järgmised koodid:

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. Lõpuks ärge unustage klõpsata nuppu "Käivita".

Märkused:

1. Koodireal "Kui objSingleWord.Font.Name = “Calibri”, siis”, asenda „calibri” fonditüübiga dokumendis, mida te enam ei vaja.
2. Koodireal "Font.Name = "Times New Roman"”, muuda „Times New Roman” kirjatüübiga, mida soovite faili jaoks taotleda.

3. meetod: mitmes dokumendis fondi asendamiseks käivitage makro

Eespool nimetatud 2 meetodit räägivad kõik juhistest fondi asendamiseks ühes dokumendis. Vaatame nüüd, kuidas mitmes dokumendis fonti asendada. Siin on muidugi lahendus Wordi makro käivitamine.

1. Alustuseks korraldage kõik tarhankige dokumendid ühte kausta.
2. Seejärel avage Word ja käivitage VBA-redaktor ja koodi redigeerimisruum, kasutades 2. meetodi juhiseid.
3. Järgmisena kleepige allolevad koodid:

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. Lõpuks vajutage nuppu "Käivita".

märkused:

1. "Calibri" on font, mida te ei vaja, ja "Time New Roman" on see, mida soovite.
2. Koodireal "strFolder = "C:\Users\Test\Desktop\test files\"”,C:\Kasutajad\Test\Töölaud\testfailid\” tähistab kausta teed. Ja ärge unustage viimast"\” järgides rada.

Parandage üllatavad sõnavead

Aeg-ajalt võivad Wordis ilmneda vead. Ja tagajärg on meie Wordi failidele surmav. Üks viis Wordi üllatavate kokkuvarisemiste lahendamiseks on sageli varundada. Siis pole midagi karta. Teine võimalus on failide taaskasutamine pärast nende rikkumist. See on a Word docx veaparandustoode.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud xls-i taastamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom