第1个问题:要在文本框的文字中间插入一个特殊字符,但需要按一个按钮来实现插入，这就需要在光标离开文本框时获取光标在这些文字中的具体位置，以便在按这个按钮后把这个特殊字符插入到文本中的相应位置。
第2个问题：有时用户安装了多个操作系统，如何获取当前操作系统字库文件所在路径，一般是C:\WINDOWS\FONTS，但有时当前系统不一定在C盘。
------解决方案--------------------------------------------------------
2. ? Getenv("windir") + '\font'
------解决方案--------------------------------------------------------
1、
假设你的文本框为 Text1，在此控件的 Lostfocus 事件写代码：
This.Tag=Transform(This.SelStart)
然后在你的输入特殊字符的按钮的 Click 事件写代码：
Thisform.Text1.Value=Left(Thisform.Text1.Value,Val(Thisform.Text1.Tag))+'特殊字符'+Substr(Thisform.Text1.Value,Val(Thisform.Text1.Tag)+1)
2、
loShell=createobject('wscript.shell')
lcMyPath=loShell.SpecialFolders('Fonts')
?lcMyPath