メインコンテンツへスキップ
 

Word で直線引用符を波引用符に変更するにはどうすればよいでしょうか?

著者: アマンダ・リー 最終更新日:2024年08月02日

通常、MicrosoftWordは自動的に一重引用符を変更します 引用符 カーリー(スマートortypographerの)引用符に カーリー引用符 入力すると、一重引用符と二重引用符の両方が文書内でまっすぐな文字として表示されます。ここでは、Word でまっすぐな引用符を波型引用符に、またその逆に変換するヒントを紹介します。

検索と置換を使用して、ストレートクォートをカーリークォートに変更します

VBAを使用して、ストレートクォートをカーリークォートに変更します

Wordに推奨される生産性ツール

Kutools for Word: AIの統合 🤖、100 を超える高度な機能により、ドキュメントの処理時間が 50% 節約されます。無料ダウンロード

Office Tab: Word (およびその他の Office ツール) にブラウザーのようなタブが導入され、複数ドキュメントのナビゲーションが簡素化されます。無料ダウンロード

引用符 矢印 カーリー引用符

検索と置換を使用して、一重引用符を中引用符に変更します

申請する前に 検索および置換、あなたは行くべきです オートコレクトオプション チェックを外す 「ストレートクォート」と「スマートクォート」 チェックボックスをオンにします。

ステップ1。 クリック File > オプション > 校正 > オートコレクトオプション > 入力時にオートフォーマット、および選択 「ストレートクォート」と「スマートクォート」 チェックボックス。スクリーンショットを参照

オプションを選択したファイルメニュー 矢印 Word オプション ウィンドウの [文章校正] タブを開き、[オートコレクトのオプション] をクリックします。
矢印
「入力時に自動フォーマット」セクションで「直線引用符」と「スマート引用符」チェックボックスが選択されている

ステップ2。 クリック ホーム > 交換する セクションに 編集 グループまたはプレス Ctrl + H 表示する 検索および置換 ダイアログを入力し、 ' or '' in 見つける ボックスに入力し、 ' or 「」 in と交換 ボックス。 スクリーンショットを参照してください:

検索と置換ダイアログ

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

ご注意: すべてのカーリークォートをストレートクォートに置き換えたい場合は、クリアしてください 「ストレートクォート」と「スマートクォート」 チェックボックス)。


VBAを使用して、ストレートクォートをカーリークォートに変更します

Office タブ: Word、Excel、PowerPoint にタブ付きインターフェイスをもたらします...
Officeタブを使用してドキュメント内を移動する
今すぐワークフローを強化しましょう。      Officeタブの詳細       無料ダウンロード

VBAを使用してWord2010ですべてのストレートクォートをカーリークォートに置き換えるには、をクリックしてください File> オプション > 校正 をクリックし オートコレクト オプション 選択 「ストレートクォート」と「スマートクォート」 最初に次のチェックボックスをオンにします。 ((注意:すべてのカーリークォートをストレートクォートに置き換える場合は、[ストレートクォート]を[スマートクォート]チェックボックスでオフにしてください。

ステップ1:Alt-F11」をクリックして、Microsoft Visual Basic forApplicationウィンドウを開きます。

ステップ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

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AIの機能: コンテンツを生成する / テキストを書き換える / ドキュメントに関するQ&A / すぐに回答を得る / ドキュメントを翻訳する / ポーランド語文書(保存形式)...

📘 ドキュメントマスタリー: 分割ページ / ドキュメントをマージする / 選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...) / PDFへの一括変換...

コンテンツ編集: 複数のファイルにわたるバッチ検索と置換 / すべての画像のサイズを変更する / テーブルの行と列を転置する / 表をテキストに変換...

🧹 楽にお掃除: 掃き捨てる 余分なスペース / セクションブレーク / テキストボックス / ハイパーリンク / その​​他の取り外しツールについては、 削除します グループ...

クリエイティブインサート:挿入 千の区切り文字 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の写真 / 詳細はこちら インセット グループ...

🔍 正確な選択: ピンポイント 特定のページ / テーブル類 / 形状 / 見出し段落 / ナビゲーションを強化する 他には? 選択 機能を使用...

スターの強化: 任意の場所に移動 / 繰り返しテキストの自動挿入 / ドキュメントウィンドウ間の切り替え / 11 変換 ツール...

Word リボンの Kutools および Kutools Plus タブ
👉 これらの機能を試してみませんか? 今すぐ Kutools for Word をダウンロードしてください! 🚀