Word で直線クォートをカーリークォートに変更する方法は？

著者アマンダ・リー変更日2025-04-02

通常、Microsoft Word は入力中に自動的に直線クォートをカーリークォート（スマートクォートまたはタイポグラフィ用クォート）に変換します。ただし、この機能がオフになっていると、シングルクォートおよびダブルクォートが文書内で直線的に表示されてしまうことがあります。ここでは、Word で直線クォートとカーリークォートを相互に変換するための便利なヒントをご紹介します！

検索と置換で直線クォートをカーリークォートに変更する

VBA で直線クォートをカーリークォートに変更する

Word 向けおすすめ生産性ツール

Kutools for Word：AI を統合🤖し、100 以上の高度な機能で文書作業時間を 50% 短縮できます。無料ダウンロード

Office Tab：Word（およびその他の Office アプリケーション）にブラウザーのようなタブを導入し、複数の文書を簡単に操作できます。無料ダウンロード

検索と置換で直線クォートをカーリークォートに変更する

検索と置換を適用する前に、「検索と置換」の「オートコレクトオプション」を開き、「直線クォートをスマートクォートに置き換える」のチェックボックスのチェックを外してください。

手順1：「ファイル」＞「オプション」＞「校閲」＞「オートコレクトオプション」＞「入力時に自動設定」をクリックし、「直線クォートをスマートクォートに置き換える」のチェックボックスにチェックを入れます。スクリーンショットを参照してください。

「Word のオプション」ウィンドウで「校正」タブが開かれ、「オートコレクトのオプション」がクリックされている

「入力中に自動整形」セクションで、「ストレートクォートをスマートクォートに変更する」チェックボックスが選択されている

手順2：「ホーム」タブの「編集」グループ内にある「置換」をクリックするか、Ctrl + Hを押して検索と置換ダイアログボックスを開き、「‘または‘’」を「検索する文字列」ボックスに、「‘または’’」を「置換後の文字列」ボックスに入力します。スクリーンショットを参照してください：

検索と置換ダイアログ

手順3：「すべて置換」をクリックしてください。

注：すべてのカーリークォートを直線クォートに置き換えたい場合は、「直線クォートをスマートクォートに置き換える」のチェックボックスのチェックを外してください。

VBA で直線クォートをカーリークォートに変更する

Office Tab

Word、Excel、PowerPoint などにタブ付きナビゲーションを実装し、ウェブブラウザのように1 つのウィンドウでスムーズに切り替えられます。

無料ダウンロード詳細を見る

Word で VBA を使用してすべての直線クォートをカーリークォートに置き換えるには、まず「ファイル > オプション > 校閲」と進み、「オートコレクトオプション」を開いて、「直線クォートをスマートクォートに置き換える」のチェックボックスにチェックを入れてください。（)注：すべてのカーリークォートを直線クォートに置き換えたい場合は、「直線クォートをスマートクォートに置き換える」のチェックボックスのチェックを外してください。）

手順1：「Alt + F11」を押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

手順2：「挿入」タブから「標準モジュール」をクリックし、次の VBA コードを標準モジュールウィンドウにコピー＆ペーストします。

手順3：次に、「実行実行ボタン」ボタンをクリックして、VBA を適用します。

以下の VBA は、直線クォートをカーリークォートに変更するものです：

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

以下の VBA は、カーリークォートを直線クォートに変更するものです：

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub