Jacieは、テキストをTime NewRomanに設定するマクロを作成したと書いています。彼女は、マクロをTimes NewRomanとArialNarrow Boldの間の切り替えに変更したいと考え、その方法を考えました。

マクロでそれを行う最も簡単な方法は、選択したテキストで使用されているフォントを確認し、見つけたものに基づいて手順を実行することです。たとえば、次のマクロは、選択したテキストがTimes NewRomanまたはArialNarrowのいずれかである場合にのみアクションを実行します。

Sub ChangeSelectedFont()

Select Case Selection.Font.Name         Case "Times New Roman"

Selection.Font.Name = "Arial Narrow"

Selection.Font.Bold = True         Case "Arial Narrow"

Selection.Font.Name = "Times New Roman"

Selection.Font.Bold = False     End Select End Sub

ただし、ある程度意味のある、マクロ以外の別の方法があります。

スタイルを使ってみませんか？必要なフォーマット属性を包含するようにスタイルを定義できます。たとえば、Times New Romanを使用するスタイルと、Arial NarrowBoldを使用するスタイルを定義できます。ツールバーから自由にスタイルを適用でき、スタイルを使用して検索および置換することもできます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1300）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

linkマクロでのフォント割り当ての切り替え。