VC++利用EQ域向word中插入公式

来源:互联网 发布:有卖淘宝账号的吗 编辑:程序博客网 时间:2024/05/20 23:34

今天头给的任务是在word中把原来用sqrt(**)中的sqrt去掉,要用word中的根式来表达。这可麻烦了,刚开始我用√{***}被否定了。然后就上网查资料,后来知道WORD有个EQ域,在没有公式编辑器的情况下也能输入公式,于是开始找怎么利用EQ域向word中写公式。这可费劲了,以前没用过,网上找到的是C#的连接如下:

http://www.cnblogs.com/chuncn/archive/2010/07/05/1771596.html

但是我用的是C++里面的东西名字不一样。后来发现其实都差不多,然后就开始对着写,可是参数总是写不对。运行出错。

后来找到篇c++关于操作word的文章,写的很全,连接如下:

http://blog.sina.com.cn/s/blog_6af293570100l9g3.html

里面写了很多方法,然后我知道应该传什么参数了。程序也就写出来了。但是新问题出现了。word里面的结果没有变成想要的形式(),而是{EQ \R(***)};需要手动在选中公式按shift+F9才行。

后来对比word里面用定义同样功能的宏的代码,知道了问题的关键:fields.ToggleShowCodes()调用的时候需要将当前光标Selection移到公式里面才行。

下面贴出关键代码:

COleVariant vTrue((short)TRUE), vFalse((short)FALSE), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);    Selection oSel;    oSel = wordApp.wordApplication.GetSelection();    Fields fields = oSel.GetFields();    Range range = oSel.GetRange();    COleVariant formula = sText;//sText = _T("EQ \\R(***)")    fields.Add(range, vOpt, &formula, vFalse);    oSel.MoveLeft(COleVariant((short)1), COleVariant((short)1), COleVariant((short)0));    fields.ToggleShowCodes();    oSel.MoveRight(COleVariant((short)1), COleVariant((short)1), COleVariant((short)0));