能不能帮忙给一行代码？

Question

操作word的字体的，以前用过，现在代码找不到了。应该是这两个指针吧？ SelectionPtr spsel;
_FontPtr sFont;
能帮忙给行代码吗？把当前的spsel输出字体设置为L"Arial Black"？
这个是对应的宏，但是函数接口我找不到呀。
Sub A1()
'
' A1 宏
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend
    Selection.Font.Name = "Arial Black"
End Sub

Answer 1

_Font   font; 
font   =   selection.GetFont(); 
font.SetName( "Tahoma "); 
font.SetSize(12); 
selection.SetFont(font); 

Answer 2

找到了，font->PutName();
还是很感激的