Function FindFontByName(fFontName As String) As Font
Dim fFonts As Fonts
Dim fFont As Font
Set FindFontByName = Nothing
Set fFonts = ActiveDesignFile.Fonts
For Each fFont In fFonts
If fFont.Name = fFontName Then Set FindFontByName = fFont
Next
End Function
说明:通过指定字体的名称返回相应字体,也放有更好的办法,但我暂时是这样实现的,好在也不太花时间。