topirol 发表于 2003-7-21 21:33:00

用addtext创建单行文字，请问如何设置该文字的字体（中文）

set temptext=mospace.addtext("中国",insertpoint,2)
temptext.stylename="TTHT" '粗体
....

由于该文档没有加载TTHT字体，所以出现错误


请问如果加载字体呢？

风魔飘香 发表于 2003-9-18 14:46:00

直接设为“宋体”吗。
Set oTextStyle = oDoc.TextStyles.Add("NewStyle")
oTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
oTextStyle.SetFont "宋体", False, False, charSet, PitchandFamily

oDoc.ActiveTextStyle = oTextStyle

Set oText = oDoc.ModelSpace.AddText(strText, InsertPoint, Height)

gzy 发表于 2003-9-22 22:15:00

没有这个字体好象不能加载哦

风魔飘香 发表于 2003-9-26 14:32:00

当然那。不过，可以通过API获取系统中存在字体集合嘛。

dazhangyu 发表于 2003-9-26 15:02:00

我怎么觉得本楼主问的问题有问题呀？
temptext.stylename="ttht" '粗体
你到底是想设字体呢？还是想设置文本的样式？
页: [1]
查看完整版本: 用addtext创建单行文字，请问如何设置该文字的字体（中文）