VC如何对word文档不同字设置不同颜色 [

[wq1982718]

我想在VC中实现这样功能：对一个句子中的不同词语设置不同颜色，效果如下


有如下代码。

Selection wsel;
wsel = wwin.GetSelection();
wsel.WholeStory();

_Font f1,f2;
Range r1,r2;
f1 = wsel.GetFont();
f1.SetColorIndex((long)3);
wsel.SetFont(f1);
wsel.TypeText("颜色一");

f2 = wsel.GetFont();
f2.SetColorIndex((long)2);
wsel.SetFont(f2);
f1.SetColorIndex((long)1);
wsel.InsertAfter("其他颜色");

但是运行到 wsel.SetFont(f2); 时就报错“参数不正确”，而前面的wsel.SetFont(f1);就可以执行，请问这个是怎么回事？ 我这个功能应该如何实现呢

[赵4老师]

在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。