引用符内のテキストを自動的にフォーマットする(Microsoft Word)
Sandyは、引用符で囲まれたすべてのテキストを検索し、太字にフォーマットする方法を尋ねました。ソリューションは、引用符の間の複数の単語、つまり太字にする必要のあるフレーズ全体を処理できる必要があります。これは興味深い質問であり、アプローチする方法はいくつかあります。
1つのアプローチは、Wordの強力な検索と置換機能を使用して必要なことを実行することです。次の手順に従ってください:
。 [編集]メニューから[置換]を選択します。 Wordは、[検索と置換]ダイアログボックスの[置換]タブを表示します。 (図1を参照)
。 [検索する文字列]ボックスに、次のように入力します。
。スペースを入れずにそのまま入力する必要があります。最初の垂直バーの後の文字は開始スマートクォートであり、2番目の垂直バーの後の文字は終了スマートクォートです。スマートクォートは、Altキーを押しながら、最初のクォートの場合はキーパッドで0147と入力し、2番目のキーパッドの場合は0148と入力して、ダイアログボックスに入力します。
。挿入ポイントを[置換]ボックスに移動します。
。 [フォーマット]、[フォント]の順にクリックします。 Wordは、[フォントの置換]ダイアログボックスを表示します。
([フォーマット]ボタンが表示される前に、[その他]ボタンをクリックする必要がある場合があります。)
。フォントスタイルリストの太字オプションをクリックします。
。 [OK]をクリックします。
。 [ワイルドカードを使用する]チェックボックスがオンになっていることを確認します。
。 [すべて置換]をクリックします。
Wordでこの検索と置換が完了すると、引用符内のテキストだけでなく、引用符自体も太字になります。
引用符を通常に戻したい場合は、別のワイルドカード検索を実行できます。今回は、単に[“|” | “](ステップ2、最後の2つの引用符はスマート引用符の開閉です)を検索して、次のように置き換えます。大胆なフォーマットではありません(ステップ5)。
単に「」ではなく、[“|”] [“|”]を検索する必要があることに注意してください。この理由は次のとおりです。非常に簡単です。他の人からドキュメント(フォーマットしているドキュメント)を取得している場合、スマート引用符、通常の引用符、またはその両方の組み合わせを使用しているかどうかはすぐにはわかりません。垂直バーの両側にある2種類の引用符は、開始引用符または終了引用符のいずれかのタイプと一致するようにWordに指示しています。[ワイルドカードを使用]を選択すると、Wordは通常の引用符とスマート引用符を区別します。
ワイルドカードをオンにせずに検索と置換を使用しているかどうかを区別しないでください。)
かなり行う必要がある場合この方法で引用符の間の情報を少しフォーマットする場合、最善の策は、メニュー選択またはツールバーボタンに追加できるマクロを作成することです。おそらく最も簡単な方法は、マクロレコーダーを使用して上記の手順を記録することです。必要に応じて、次のVBAマクロを使用してトリックを実行できます。
Sub BoldBetweenQuotes() ' base for a quotes finding macro Dim blnSearchAgain As Boolean ' move to start of doc Selection.HomeKey Unit:=wdStory ' start of loop Do ' set up find of first of quote pair With Selection.Find .ClearFormatting .Text = Chr(34) .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Execute End With If Selection.Find.Found Then Selection.MoveRight Unit:=wdCharacter, Count:=1 ' switch on selection extend mode Selection.Extend ' find second quote of this pair Selection.Find.Execute If Selection.Find.Found Then Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' make it bold Selection.Font.Bold = True Selection.Collapse Direction:=wdCollapseEnd Selection.MoveRight Unit:=wdCharacter, Count:=1 blnSearchAgain = True Else blnSearchAgain = False End If Else blnSearchAgain = False End If Loop While blnSearchAgain End Sub
注:
このページ(または_WordTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
(Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。)このヒント(1500)は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス(Word 2007)用のこのヒントのバージョンを見つけることができます。以降)ここ: