3 vienkārši veidi, kā aizstāt fontu Word dokumentā

Šajā rakstā mēs vēlamies jums parādīt 3 vienkāršas un efektīvas metodes, kā aizstāt konkrētu fontu jūsu Word dokumentā.

Lai apstrādātu dokumentu programmā Word, bieži vien ir nepieciešams vairāk nekā tikai rediģēšana. Piemēram, mums ir jāņem vērā arī tādi elementi kā stils, lapas izkārtojums utt. Un viens no visiem veidiem ir fontu izmantošana. Ņemot vērā to, ka mēs, visticamāk, diezgan bieži mainīsim fontu uz citu, šeit ir 3 veidi, kā palīdzēt mums viegli tikt galā ar šo uzdevumu.

1. metode: izmantojiet funkciju “Atrast un aizstāt”

1. Pirmkārt un galvenokārtost, noklikšķiniet uz cilnes Sākums.
2. Pēc tam grupā “Rediģēšana” noklikšķiniet uz “Aizstāt”.
3. Nākamajā dialoglodziņā “Atrast un aizstāt” pārliecinieties, vai atrodaties cilnē “Aizstāt”. Ievietojiet ievietošanas rādītāju lodziņā “Atrast ko” un pārliecinieties, ka tas ir tukšs.
4. Noklikšķiniet uz pogas "Vairāk" apakšējā kreisajā stūrī, lai paplašinātu papildu iespējas.
5. Tagad vispirms noklikšķiniet uz "Formatēt".
6. Pēc tam izvēlieties "Fonts", lai atvērtu lodziņu "Atrast fontu".
7. Izvēlieties "Fonta" veidu, kuru vēlaties aizstāt.
8. Pēc tam noklikšķiniet uz Labi.
9. Pēc tam ievietojiet ievietošanas rādītāju tekstlodziņā “Aizstāt ar” un pārliecinieties, ka nav vienas rakstzīmes.
10. Atkārtojiet 5. un 6. darbību. Tikai šoreiz lodziņā “Atrast fontu” ir jāizvēlas fonts, ar kuru vēlaties aizstāt. Pēc tam noklikšķiniet uz "OK".
11. Visbeidzot, lodziņā “Atrast un aizstāt” noklikšķiniet uz “Aizstāt visu”.

2. metode: izmantojiet makro, lai aizstātu fontu vienā dokumentā

1. Vispirms nospiediet taustiņu kombināciju Alt+F11, lai aktivizētu Word VBA redaktoru.
2. Pēc tam noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
3. Izvēlieties "Modulis", lai ievietotu jaunu moduli zem projekta "Normāls".
4. Pēc tam veiciet dubultklikšķi uz tā, lai atvērtu rediģēšanas vietu.
5. Ielīmējiet tur šādus kodus:

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. Visbeidzot, neaizmirstiet noklikšķināt uz pogas “Palaist”.

Piezīmes:

1. Kodu rindā “Ja objSingleWord.Font.Name = “Calibri” Tad", aizvietot "Calibri” ar fonta veidu dokumentā, kas jums vairs nav vajadzīgs.
2. Kodu rindā “Font.Name = “Times New Roman””, mainīt “Times New Roman” ar fontu, kuru vēlaties pieteikties failam.

3. metode: palaidiet makro, lai aizstātu fontu vairākos dokumentos

Iepriekš minētās 2 metodes runā par instrukcijām, kā aizstāt fontu vienā dokumentā. Tagad apskatīsim, kā aizstāt fontu vairākos dokumentos. Risinājums šeit, protams, ir Word makro palaišana.

1. Vispirms sakārtojiet visu tariegūt dokumentus vienā mapē.
2. Pēc tam atveriet programmu Word un aktivizējiet VBA redaktoru un koda rediģēšanas vietu, izmantojot 2. metodes darbības.
3. Tālāk ielīmējiet tālāk norādītos kodus:

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. Beidzot nospiediet pogu "Palaist".

Piezīmes:

1. “Calibri” ir tas fonts, kas jums nav vajadzīgs, un “Time New Roman” ir tas, kuru vēlaties.
2. Kodu rindā “strFolder = "C:\Users\Test\Desktop\test files\"”,“C:\Lietotāji\Pārbaude\Darbvirsma\testa faili\” apzīmē mapes ceļu. Un neaizmirstiet pēdējo "\” sekojot ceļam.

Izlabojiet pārsteidzošās vārda kļūdas

Programmā Word ik pa laikam var parādīties kļūdas. Un sekas ir letālas mūsu Word failiem. Viens no veidiem, kā novērst pārsteidzošos Word sabrukumus, ir bieži dublēt. Tad nav no kā baidīties. Vēl viens veids ir atkārtoti izmantot failus pēc tam, kad tie ir bojāti, tas ir Word docx kļūdu labošanas produkts.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts xls atkopšanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar