質問の、したいこと、とずれているかもしれませんが、思いついたことを記してみます。
（一般にエクセルワードのメニューなどをいじくる（表示順序を変えるなど）のは、させないようにしてあるように思う（経験から）。
ーー
それで、ＶＢＡを使えないか調べた。
http://officetanaka.net/excel/vba/tips/tips41.htm
フォントの一覧を取得する
を参考にして
標準モジュールに
Sub test01()
Dim i As Long
With Application.CommandBars("Formatting").Controls(1)
For i = 1 To .ListCount
Cells(i, "A") = .List(i)
Next i
End With
End Sub
で、自分のそのパソコンに入っているフォント名がＡ列に出る。
それで望みの書体のインデックス番号を知る。
目立つところの「勘亭流」にしてみた。
小生の場合は「勘亭流」は６番でした。
Sub test02()
Dim i As Long
With Application.CommandBars("Formatting").Controls(1)
MsgBox .List(6)
Range("C1:C20").Font.Name = .List(6)
End With
End Sub
これで指定セル範囲のフォントは「勘亭流」になった。
上記そのままでは機動的でないので、これをボタン等のクリックイベントやメニューに割り当てておくと、迷いは少なく、指定できるのではないかな。
（結論）ＶＢＡを使えば、質問に近いことができるということ。
ーー
コードは古い時代からのものと思うが、エクセル２０１３で確認。
ーー
ワードＶＢＡでフォント一覧を作る。
Sub test02()
'あらかじめワードの新規文書で、ワードの表を相当行数で作成しておく
Dim cb As CommandBarComboBox
Set cb = Application.CommandBars.FindControl(ID:=1728) 'フォント
'MsgBox cb.ListCount
For i = 1 To cb.ListCount
ActiveDocument.Tables(1).Cell(i, 1).Range = cb.List(i)
Next i
End Sub
を実行。
お礼
有難うございます。 う～ん これは難解そうです。