ストレートクォートをワードのカーリークォートに変更するにはどうすればよいですか？

通常、MicrosoftWordは自動的に一重引用符を変更します カーリー（スマートortypographerの）引用符に 入力すると。 ただし、この機能をオフにすると、一重引用符と二重引用符の両方がドキュメントに直接表示される場合があります。 Wordで一重引用符を中引用符に、またはその逆に変更するためのヒントを次に示します。

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

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

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

Office タブ: Word、Excel、PowerPoint にタブ付きインターフェイスをもたらします...

今すぐワークフローを強化しましょう。      続きを読む       無料ダウンロード

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

Word 2003では、 オートコレクトオプション 下にあります ツール バー。 そしてWord2007では、 オートコレクトオプション クリックして  > オプション > 校正 > オートコレクトオプション。 ここでは、Word2010 / 2013を例にとります。

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

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

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

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

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

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

ステップ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 アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

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

🧹 楽にお掃除：振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

➕ クリエイティブインサート：挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択： ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には？ 機能の選択...

⭐ スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし！ 🚀

無料ダウンロード     続きを読む     今すぐ購入