操作WORD的VBA语言的C++转换

var
VarWord: Variant;// 创建 WORD时所用
begin
try
// 1. 建立 OleObject，连接 word97
VarWord:=CreateOleObject('word.basic');
// 2. 建立 Word97的新文件
VarWord.FileNew;
// 3. 设置 Word97的基本状态
VarWord.ViewZoom75; //设置显示比例为 75%
VarWord.ViewPage; //改为页面显示方式
// 4. 将当前数据控件上的信息发送至 Word97
// 4.1 发送文号数据
VarWord.CenterPara; //居中
Varword.font('宋体 '); //设置字体
VarWord.FontSize(14); //设置字号
varword.insert(#13+#13+ Edit1.Text+#13+#13+#13);
// 4.2 发送标题数据
VarWord.font('黑体 ');
VarWord.Fontsize(16);
VarWord.insert( Edit1.text+#13);
// 4.3 发送收文单位数据
VarWord.LeftPara; //左对齐
VarWord.Font('宋体 ');
VarWord.fontSize(14);
VarWord.Insert(#13+ Edit1.Text+'： '+#13);
// 4.5 发送正文数据
VarWord.fontSize(14);
VarWord.Insert( Edit1.Text+#13);
// 4.6 发送发文单位数据

VarWord.RightPara; //右对齐
VarWord.fontSize(14);
VarWord.Insert( Edit1.Text+#13);
// 5 最后设置
VarWord.StartOfdocument; //到文首
VarWord.AppMaxiMize; //设置窗口最大化
VarWord.AppShow; //显示应用程序
except
showmessage('运行 Microsoft Word 失败！ ');
end; //end of try
end;
//end：数据发送到 word事件 



--------------------------------------------------------------------------------------------


Variant word;
 AnsiString AppName="Word.Application" ;
 HWND hPrevApp = ::FindWindow(NULL, "Microsoft Word");
 if(!hPrevApp)
 {
   word=CreateOleObject(AppName) ;
 }
 else
 word=GetActiveOleObject(AppName); 
 word.OlePropertyGet("Documents").OleFunction("Open","c:\\web.doc");
接着我要操作 CommandBars
应该怎么来实现?