本示例将选中的艺术字的字体样式设为粗体。

Selection.ShapeRange.TextEffect.FONTBOLD = ksoTrue