Wordで直線の引用符をカギ括弧に変更するにはどうすればよいですか？

Author: Amanda Li Last Modified: 2025-05-23

通常、Microsoft Wordは自動的に直線の引用符をカギ括弧（スマートまたはタイポグラファーの引用符）に変更します。しかし、この機能がオフになっている場合、単一引用符と二重引用符の両方が文書内で直線として表示されることがあります。以下は、Wordで直線の引用符をカギ括弧に、またその逆に変更するためのヒントです。

検索と置換を使用して直線の引用符をカギ括弧に変更する

VBAを使用して直線の引用符をカギ括弧に変更する

Wordのおすすめ生産性向上ツール

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

Office Tab: ブラウザのようなタブをWord（およびその他のOfficeツール）に導入し、複数の文書間での移動を簡素化します。無料ダウンロード

検索と置換を使用して直線の引用符をカギ括弧に変更する

検索と置換を適用する前に、オートコレクトオプションに移動して「直線の引用符をスマート引用符に」チェックボックスをオフにする必要があります。

ステップ 1. ファイル＞ オプション＞校正＞オートコレクトオプション＞入力時に自動書式設定 をクリックし、 「直線の引用符をスマート引用符に」チェックボックスを選択します。スクリーンショットをご覧ください。

Word Options window with Proofing tab opened, AutoCorrect Options clicked

AutoFormat As You Type section with 'Straight quotes' with 'smart quotes' checkbox selected

ステップ 2. ホーム＞編集グループ内の置換をクリックするか、Ctrl + Hを押して検索と置換ダイアログを表示し、「 検索する文字列」ボックスに「'」または「''」を入力し、「置換後の文字列」ボックスに「‘」または「 ’’」を入力します。スクリーンショットをご覧ください：

Find and Replace dialog

ステップ 3. すべて置換 をクリックします。

注: すべてのカギ括弧を直線の引用符に置き換えたい場合は、「直線の引用符をスマート引用符に」チェックボックスをオフにしてください。

VBAを使用して直線の引用符をカギ括弧に変更する

Office Tab: Word、Excel、PowerPointにタブインターフェースを提供します。

Navigate through documents using Office Tab

今すぐワークフローを強化しましょう。Office Tabについてさらに詳しく 無料ダウンロード

Word 2010で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