Function&nbspFindFontByName(fFontName&nbspAs&nbspString)&nbspAs&nbspFont
Dim&nbspfFonts&nbspAs&nbspFonts
Dim&nbspfFont&nbspAs&nbspFont
Set&nbspFindFontByName&nbsp=&nbspNothing
Set&nbspfFonts&nbsp=&nbspActiveDesignFile.Fonts
For&nbspEach&nbspfFont&nbspIn&nbspfFonts
&nbsp&nbsp&nbsp&nbspIf&nbspfFont.Name&nbsp=&nbspfFontName&nbspThen&nbspSet&nbspFindFontByName&nbsp=&nbspfFont
Next
End&nbspFunction
说明:通过指定字体的名称返回相应字体,也放有更好的办法,但我暂时是这样实现的,好在也不太花时间。&nbsp