Word文書のフォントを置き換える3つの簡単な方法

ワードソリューション 2025 年 9 月 28 日

この記事では、Word 文書内の特定のフォントを置き換える 3 つの簡単で効果的な方法を紹介します。

Word で文書を処理するには、多くの場合、編集以上の作業が必要になります。たとえば、スタイル、ページレイアウトなどの要素も考慮する必要があります。フォントの使用もその 3 つです。フォントを別のフォントに頻繁に変更する可能性があることを考慮して、タスクを簡単に処理できる XNUMX つの方法をここに示します。

方法1：「検索と置換」機能を使用する

まず第一にost、「ホーム」タブをクリックします。
次に、「編集」グループの「置換」をクリックします。
次に「検索と置換」ダイアログボックスで、「置換」タブが表示されていることを確認します。「検索する内容」ボックスに挿入ポインタを置き、空白であることを確認します。
左下隅にある「その他」ボタンをクリックして、さらにオプションを拡張します。
ここで、最初に「フォーマット」をクリックします。
次に、「フォント」を選択して「フォントの検索」ボックスを開きます。
置き換えたい「フォント」の種類を選択します。
次に「OK」をクリックします。
次に、「置換後の文字列」テキストボックスに挿入ポインタを置き、単一の文字がないことを確認します。
手順 5 と 6 を繰り返します。今回のみ、「フォントの検索」ボックスで、置換するフォントを選択する必要があります。次に「OK」をクリックします。
最後に、「検索と置換」ボックスの「すべて置換」をクリックします。

方法 2: マクロを使用して XNUMX つのドキュメント内のフォントを置換する

まず、「Alt+F11」を押して Word VBA エディタを起動します。
次に、「通常」、「挿入」の順にクリックします。
「モジュール」を選択して、「標準」プロジェクトの下に新しいモジュールを挿入します。
次にそれをダブルクリックして編集スペースを開きます。
次のコードをそこに貼り付けます。

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

最後に、忘れずに「実行」ボタンをクリックしてください。

注意：

コード行で「objSingleWord.Font.Name = “Calibri” の場合"、交換 "Calibri」を、不要になったドキュメントのフォントタイプに置き換えます。
コード行で「Font.Name = “Times New Roman”"、変化 "はTimes New Roman」をファイルに適用したいフォントに置き換えます。

方法 3: マクロを実行して複数のドキュメントのフォントを置換する

前述の 2 つの方法はすべて、XNUMX つのドキュメント内のフォントを置換する手順について説明しています。次に、複数のドキュメントのフォントを置換する方法を見てみましょう。もちろん、ここでの解決策は Word マクロを実行することです。

まず、すべてを手配します tarXNUMXつのフォルダにドキュメントを取得します。
次に、Word を開いて VBA エディターを起動し、方法 2 の手順に従ってコード編集スペースを起動します。
次に、以下のコードを貼り付けます。

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

最後に「実行」ボタンを押します。

Notes:

「Calibri」は必要のないフォントで、「Time New Roman」は必要なフォントです。
コード行で「strFolder = “C:\Users\Test\Desktop\test files\”"、"C:\ユーザー\テスト\デスクトップ\テストファイル\”はフォルダーパスを表します。そして最後の「」を忘れないでください\” パスに従ってください。

驚くべき単語の間違いを修正する

Word では時々エラーが発生することがあります。そして、その結果は Word ファイルにとって致命的です。 Word の驚くべき崩壊に対処する XNUMX つの方法は、頻繁にバックアップすることです。そうすれば何も恐れることはありません。もう XNUMX つの方法は、ファイルが破損した後にファイルを再使用することです。 Word docx エラー修復製品.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。破損したXLS回復ツール and pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com