Jacieは、テキストをTimes NewRomanに設定するマクロを作成したと書いています。彼女はマクロをTimesNewRomanと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：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1053）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Toggling_Font_Assignments_in_a_Macro [マクロでのフォント割り当ての切り替え]。