如何用 VBA 判断系统中有某种字体？

413191246se

各位老师、朋友们：请教如何用 VBA 判断系统中有“方正小标宋简体”？
如果有，则设置标题一为该字体，不加粗；如果没有，则设置标题一为宋体，加粗。

zhanglei1371

Sub ListAvailableFonts()
    Dim font As Variant
    Dim fonts As Variant
    Dim i As Integer
   
    ' 获取Word中的所有可用字体
    fonts = Application.FontNames
   
    ' 遍历字体列表
    For i = LBound(fonts) To UBound(fonts)
        Debug.Print fonts(i)
    Next i
End Sub

413191246se

zhanglei1371老师：我运行宏，显示错误，提示“运行时错误 450”和"错误的参数号或无效的属性赋值"。
请老师再给看看。

batmanbbs

413191246se 发表于 2024-7-19 20:31
zhanglei1371老师：我运行宏，显示错误，提示“运行时错误 450”和"错误的参数号或无效的属性赋值"。
请老 ...

zhanglei1371

413191246se 发表于 2024-7-19 20:31
zhanglei1371老师：我运行宏，显示错误，提示“运行时错误 450”和"错误的参数号或无效的属性赋值"。
请老 ...

我发的是ai生成的。并未做测试。
不过编程这东西得举一反三啊。
Application.FontNames就是整个代码的核心。
根据这个可以随意创造的。

413191246se

* 多谢 zhanglei1371 老师 和 batmanbbs 老师！搞定！本人愚钝，无法举一反三。完全仰仗两位老师！
* 下面是对第一段落进行设置标题一的示例代码：（小标宋无须加粗，宋体须加粗）

1. Sub a0720_ListAvailableFonts_TEST_OK()
   
2. 'Code by zhanglei1371
   
3. 'Code by batmanbbs
   
4.     Const oFont As String = "方正小标宋简体"
   
5.     Dim myFont As Variant, i&
   
6.    
   
7.     For Each myFont In FontNames
   
8.         If myFont = oFont Then i = 1
   
9.     Next myFont
   
10.    
    
11. '    Stop
    
12.     MsgBox i
    
13.     Stop
    
14.    
    
15.     With ActiveDocument.Paragraphs(1).Range.font
    
16.         If i = 1 Then
    
17.             .Name = oFont
    
18.             .Bold = False
    
19.             .ColorIndex = wdRed
    
20.         Else
    
21.             .NameFarEast = "宋体"
    
22.             .NameAscii = "Times New Roman"
    
23.             .Bold = True
    
24.             .ColorIndex = wdPink
    
25.         End If
    
26.     End With
    
27.    
    
28.     MsgBox "OK"
    
29. End Sub

复制代码