[求助]如何用VBA批量给附件里的“公式”更改成粗体？

skyya

碰到一个麻烦，请大家看看这个文档，如何用VBA批量给“公式”更改成粗体？谢谢

 

o7ruEtKQ.rar (13.56 KB, 下载次数: 10)

2007-2-22 21:25 上传

点击文件名下载附件
[求助]如何用VBA批量给附件里的“公式”更改成粗体？

ssq1109

QUOTE:

以下是引用skyya在2007-2-22 21:26:45的发言：

碰到一个麻烦，请大家看看这个文档，如何用VBA批量给“公式”更改成粗体？谢谢

Fxaw4m8M.rar (14.31 KB, 下载次数: 8)

2007-2-22 22:20 上传

点击文件名下载附件
[求助]如何用VBA批量给附件里的“公式”更改成粗体？

用VBA大概是不行的。据我所知，VBA的对象中没有公式对象。公式对象是第三方软件MathType生成的（即使是“公式编辑器3.0”也是MathType的简装版）。

不过您的问题有一个简单的解决办法，即使用MathType的“格式化公式（Format Equations）”的功能。先须安装MathType 5.2（中文版或英文版均可），安装后即在WORD菜单中有一“MathType”项，其下拉菜单中即有“格式化公式（Format Equations）”，因您的要求较特殊，系统并未为此准备格式化脚本文件，我调出它的缺省脚本文件作了修改大概能满足您的要求（即Times+Symbol 105B.eqp，如不能完全满足，您自己再作适当修改，它是一文本文件，虽然其扩展名不是TXT，可用记事本打开并修改）。您可将此文件COPY到MathType安装目录下的Preferences目录下，然后点击“MathType→格式化公式（如为英文版为Format Equations）”，在弹出式菜单中选“MathType preferences file:”，点击“Browse...”找到“Times+Symbol 105B.eqp”文件，再点击“OK”即可（不要更改其他设置，我用的是英文版，如为中文版找对应项）。

skyya

QUOTE:

以下是引用ssq1109在2007-2-22 22:21:17的发言：

用VBA大概是不行的。据我所知，VBA的对象中没有公式对象。公式对象是第三方软件MathType生成的（即使是“公式编辑器3.0”也是MathType的简装版）。

不过您的问题有一个简单的解决办法，即使用MathType的“格式化公式（Format Equations）”的功能。先须安装MathType 5.2（中文版或英文版均可），安装后即在WORD菜单中有一“MathType”项，其下拉菜单中即有“格式化公式（Format Equations）”，因您的要求较特殊，系统并未为此准备格式化脚本文件，我调出它的缺省脚本文件作了修改大概能满足您的要求（即Times+Symbol 105B.eqp，如不能完全满足，您自己再作适当修改，它是一文本文件，虽然其扩展名不是TXT，可用记事本打开并修改）。您可将此文件COPY到MathType安装目录下的Preferences目录下，然后点击“MathType→格式化公式（如为英文版为Format Equations）”，在弹出式菜单中选“MathType preferences file:”，点击“Browse...”找到“Times+Symbol 105B.eqp”文件，再点击“OK”即可（不要更改其他设置，我用的是英文版，如为中文版找对应项）。

首先谢谢你的回答，这个方法我试了，不知是用的不对还是怎的，不起作用？（用你的脚本只能一个一个格式化，能不能在使所有公式都一次格式化呢）如果你成功的话，请再教教我！再次谢谢你！

[此贴子已经被作者于2007-2-23 11:13:14编辑过]

ssq1109

你是否按上述菜单设置？

我就是一次性格式化的呀！你看了我回的附件吗？那个不是一个一个格式化的。

skyya

是这样子的呀，不过我的是中文版5.2，提示我没有方程/或更新

ssq1109

忘了交待，中文版5.2和WIN XP SP2是有冲突的，这就是我不用中文版的原因。

建议你用英文版，它是5.2c版，而我见到的5.2中文版为5.2a版。

skyya

哦！我试试，再次谢谢你的指导！

果然如你所说 是版本问题！现在解决了！不过我想VBA也是可能做到的，起码可以用sendkey嘛，现我已解决wordtype的两个文件，看看源程序中怎么做的！呵呵！如有兴趣一起来研究一下！

[此贴子已经被作者于2007-2-23 16:42:22编辑过]