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

topirol

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

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


请问如果加载字体呢？

风魔飘香

直接设为“宋体”吗。
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

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

风魔飘香

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

dazhangyu

我怎么觉得本楼主问的问题有问题呀？
temptext.stylename="ttht" '粗体
你到底是想设字体呢？还是想设置文本的样式？