好的，我想我知道我需要做什么，但我想知道是否有更好的方法。下面的代码检查dwg中有哪些字体，包括来自Xrefs的字体。下面引用的文本在我对dwg的文本文件“审计”中，您可以看到3D-TTL-B|一直被发现是错误的。所以我尝试使用通配符*|也失败了（我预计会失败，但希望如此）。所以我“认为”我应该使用Instr（）来检查“|”字符，并使用字符串末尾的下一个char进行检查。有更好的方法吗？还是我走在正确的轨道上？
- For Each objFont In ThisDrawing.TextStyles
- Select Case UCase(objFont.Name)
- Case "STANDARD"
- Case "*|STANDARD" ' eval if xrefed
- Case "TEP"
- Case "TEP-TITLE"
- Case "TEP-TITLE 3-16"
- Case "TEP-TITLE 1-8"
- Case Else
- MyFile.writeline vbTab & objFont.Name & vbTab & objFont.fontFile
- KillDaFile = True
- End Select
- Next objFont
| 
