3 snadné způsoby, jak nahradit písmo v dokumentu Word

V tomto článku vám chceme ukázat 3 snadné a efektivní metody, jak nahradit konkrétní písmo v dokumentu Word.

Zpracování dokumentu v aplikaci Word často vyžaduje více než úpravy. Například bychom měli také považovat takové prvky jako styl, rozložení stránky atd. A jedním ze všech druhů je použití písma. Vzhledem k tomu, že je pravděpodobné, že změníme písmo na jiné často, máme zde 3 způsoby, jak nám tento úkol usnadnit.

Metoda 1: Použijte funkci „Najít a nahradit“

1. Předevšímost, klikněte na záložku „Domů“.
2. Poté klikněte ve skupině „Úpravy“ na „Nahradit“.
3. Dále v dialogovém okně „Najít a nahradit“ se ujistěte, že se nacházíte na kartě „Nahradit“. Vložte ukazatel vložení do pole „Najít co“ a ujistěte se, že je prázdný.
4. Kliknutím na tlačítko „Více“ v levém dolním rohu můžete rozšířit další možnosti.
5. Nyní nejprve klikněte na „Formátovat“.
6. Poté zvolte „Písmo“ a otevřete pole „Najít písmo“.
7. Vyberte typ písma, který chcete nahradit.
8. Dále klikněte na „OK“.
9. Poté umístěte ukazatel vložení do textového pole „Nahradit za“ a ujistěte se, že neexistuje jediný znak.
10. Opakujte kroky 5 a 6. Pouze tentokrát v poli „Najít písmo“ byste měli vybrat písmo, které chcete nahradit. Poté klikněte na „OK“.
11. Nakonec klikněte na „Nahradit vše“ v poli „Najít a nahradit“.

Metoda 2: Použití makra k nahrazení písma v jednom dokumentu

1. Nejprve stiskněte „Alt + F11“ a spusťte editor Word VBA.
2. Poté klikněte na „Normální“ a poté na „Vložit“.
3. Zvolte „Modul“ pro vložení nového modulu pod „Normální“ projekt.
4. Dalším dvojitým kliknutím na něj otevřete editační prostor.
5. Vložte následující 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. Nakonec nezapomeňte kliknout na tlačítko „Spustit“.

Poznámky:

1. V řádku kódu “If objSingleWord.Font.Name = “Calibri” Pak”, Nahradit„Calibri„S typem písma v dokumentu, který již nepotřebujete.
2. V řádku kódu “Font.Name = „Times New Roman“", změna "Times New Roman„S písmem, které chcete pro soubor použít.

Metoda 3: Spuštění makra k nahrazení písma ve více dokumentech

Všechny výše uvedené 2 metody hovoří o pokynech k nahrazení písma v jednom dokumentu. Nyní se podívejme, jak nahradit písmo ve více dokumentech. Řešením je samozřejmě spuštění makra Wordu.

1. Nejprve zařaďte vše tarzískejte dokumenty do jedné složky.
2. Poté otevřete Word a spusťte editor VBA a prostor pro úpravy kódu pomocí kroků v metodě 2.
3. Dále vložte následující 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. Nakonec stiskněte tlačítko „Spustit“.

Poznámky:

1. „Calibri“ je písmo, které nepotřebujete, a „Time New Roman“ je to, které chcete.
2. V řádku kódu “strFolder = “C: \ Users \ Test \ Desktop \ test soubory \”“,„C: \ Users \ Test \ Desktop \ test files \”Představuje cestu ke složce. A nezapomeňte na poslední “\„Po cestě.

Opravte překvapivé chyby slov

V aplikaci Word se mohou občas objevit chyby. A důsledek je pro naše soubory Word smrtelný. Jedním ze způsobů řešení překvapivých kolapsů ve Wordu je časté zálohování. Pak se není čeho bát. Dalším způsobem je znovu použít soubory poté, co se poškodí, tj Produkt opravy chyb Word Word.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený nástroj pro obnovení xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com