Microsoft 製品に組み込まれている Visual Basic の実装。
こんにちは。
手元の環境で確認してみました。
Microsoft 365 バージョン 2604 (ビルド 19929.20106 クイック実行)
普通に実行すると同じ様に①などの丸数字の記号だけが「MS P明朝」ではなく「游明朝」になりました。
試したところ、Word で「フォント」>「フォントのカスタマイズ」>「既定に設定」で上手く行くようになりました。
1 . Word の[デザイン] > [フォント]で[フォントのカスタマイズ]で、
日本語文字用のフォント
・見出しのフォント(日本語):MS P明朝
・本文のフォント(日本語):MS P明朝
として保存します。
2 . フォントでユーザー定義を選択したら「既定に設定」をクリックすると、
「現在のスタイルセットとテーマ(フォント、色、効果、および段落の間隔など)を既定値として設定しますか?
これらの設定は、すべての空の文書に適用されます。」と聞かれるので[はい]で確定します。
- Word を終了して再度 Access からVBAを実行すると、丸数字の記号が「MS P明朝」になったことを確認しました。
・サンプルコード
Sub test1()
Dim wd As Object
Set wd = CreateObject("Word.Application")
wd.Visible = True
With wd.Documents.Add
wd.Selection.Font.Name = "MS P明朝"
wd.Selection.Font.NameFarEast = "MS P明朝"
wd.Selection.TypeText "1行目:①②③"
wd.Selection.TypeParagraph
wd.Selection.TypeText "2行目:ABC 123"
wd.Selection.TypeParagraph
wd.Selection.TypeText "3行目:テスト"
End With
End Sub
同じ様に上手く行くと良いのですが・・・。