0
下面的代碼找到字體「Arial」,但我希望在標題中找到所有Arial字體(如「Arial Rounded」,「Arial Unicode」等)。我應該可以使用通配符嗎?我不知道它在哪裏。有人能幫我回應所有字體中有「Arial」的字體嗎?查找名稱中包含「Arial」的所有字體
Const FONTS = &H14&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(FONTS)
Set objFolderItem = objFolder.Self
Set colItems = objFolder.Items
For Each objItem In colItems
If objItem = "Arial" Then
Wscript.Echo objItem.Name
End If
Next