谁会批量改修 WORD 中MathType 公式的颜色

显示全部楼层 · 发表于 2009-4-15 17:03:12

谁会批量改修 WORD 中MathType 公式的颜色

很多，一个个修改工作量太大，太麻烦。
拜托！！！拜托！！！拜托！！！拜托！！！

显示全部楼层 · 发表于 2009-4-15 17:07:54

http://hi.baidu.com/maytao/blog/ ... c31acb7bcbe1cc.html

显示全部楼层 · 发表于 2009-4-15 17:17:15

LS，我需要批量，他那种方法只能一个个修改

显示全部楼层 · 发表于 2009-4-15 17:20:10

解决办法，批量修改：双击一个公式，打开mathtype，进入编辑状态，
　　点击size菜单->define->字号对应的pt值，一般五号对应10pt，小四对应12pt
　　其他可以自己按照具体要求自行调节。其他默认大小设置不推荐改动。
　　然后点击preference->equation preference -> save to file ->存一个与默认配置文件不同的名字，然后关闭mathtype回到word文档。
　　点击word界面上的mathtype ->format equation -> load equation preferrence选项下面的browse按钮，选中刚才存的配置文件，点选whole document选项，确定，就安心等着公式一个个改过来。

显示全部楼层 · 发表于 2009-4-15 17:50:20

好像不行。。我用的 6.5B 最新版

显示全部楼层 · 发表于 2009-4-15 18:14:54

Sub Macro5()
'
' Macro5 Macro
' 宏在 2009-4-15 由 USER 录制
'
Selection.InlineShapes(1).Shadow.Type = msoShadow17
Selection.InlineShapes(1).Shadow.IncrementOffsetX -1#
Selection.InlineShapes(1).Shadow.IncrementOffsetY 1#
Selection.InlineShapes(1).Shadow.IncrementOffsetY 1#
Selection.InlineShapes(1).Shadow.IncrementOffsetY -1#
Selection.InlineShapes(1).Shadow.IncrementOffsetY -1#
Selection.InlineShapes(1).Shadow.IncrementOffsetY -1#
Selection.InlineShapes(1).Shadow.ForeColor.RGB = RGB(255, 0, 0)
Selection.InlineShapes(1).Shadow.Visible = msoTrue
End Sub

宏也不行。

也会 VB

显示全部楼层 · 发表于 2009-4-15 18:15:26

上面是我录制的。。

谁会 VB 帮我写个宏

显示全部楼层 · 发表于 2009-4-15 18:54:46

http://www.emath.cn/mathtype.htm

显示全部楼层 · 发表于 2009-4-15 18:55:20

上面方法再不行用按键精灵..................

显示全部楼层 · 发表于 2009-4-15 18:57:08

http://zhidao.baidu.com/question/92720666.html
又找了一条再不行偶只能说没的办法了.....

[已解决] 谁会批量改修 WORD 中MathType 公式的颜色