如何在 Access 表单上创建可用字体的下拉列表？

Question

我有一个没有任何标准的Access数据库。 不同表单上的文本框采用不同的字体。 标题背景不同等等...... 我想创建一个“格式表单”。 该表单将包括一个列出所有可用字体的字体名称按钮。 我想使用微软程序中使用的相同按钮。
该选择将用于将所有表单上的所有文本框更改为该字体。

我有更改所有表单上所有文本框的代码。 我只需要知道是否有办法将控件放到表单上。

我可以对列表进行硬编码，但这在具有不同字体的机器上不起作用。 如果有办法访问字体，我可以创建自己的列表，但我宁愿使用现有的控件

Answer 1

评论中给出了解决方案，但另一种方法是从 MS Word 中获取它们。您可以将它们存储在本地表中以方便访问。

Sub T()
    On Error GoTo Trap
    
    Dim wd As Object
    Set wd = CreateObject("Word.Application")
    
    Dim fontID As Variant
    For Each fontID In wd.FontNames
        Debug.Print fontID
    Next
    
Leave:
   If Not wd Is Nothing Then wd.Quit
   Exit Sub
   
Trap:
    MsgBox Err.Description, vbCritical
    Resume Leave
End Sub