検索のマクロの作成

質問

記号入力のツールバー（マクロ）があります。
そのツールバーから入力していない同じ記号
（例：ＭＳゴシックで入力されている）文字を
検索するマクロを作成したいのですが
、どうしたらいいのですか。

ツールバーに登録されているマクロ↓
以下のマクロでTimesNewRomanの%が入力できます。

Sub enpercent()
Selection.InsertSymbol CharacterNumber:=37, Font:="TimesNewRoman",
Unicode:=True, Bias:=0
End Sub

回答No.1

Wendy02 · ベストアンサー

こんばんは。

質問とVBAのコードとは何の関係もないようなのですが。
記録マクロ程度なら、こんな風にすればよいのですが、もしかしたら、英文を書いていらっしゃるのですか？本当は、置換ではないでしょうか？自分の文章（英文）でやってみたら、思ってもみないところで、MS ゴシックになっていました。

Sub FindFontName()
　　Selection.Find.ClearFormatting
　　Selection.Find.Replacement.ClearFormatting
　　With Selection.Find
　　　　.Text = ""
　　　　.Replacement.Text = ""
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Font.NameFarEast = "ＭＳ ゴシック"
　　　　.Format = True
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = False
　　End With
　　Selection.Find.Execute
End Sub

お礼

お礼が遅くなりました。

いろいろとありがとうございました。