24小时热门版块排行榜

返回列表

【悬赏金币】回答本帖问题，作者甄大莹将赠送您 30 个金币

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

甄大莹

新虫 (著名写手)

应助: 0 (幼儿园)
金币: 1432.1
散金: 3900
红花: 3
帖子: 1089
在线: 71.9小时
虫号: 4018384
注册: 2015-08-12
专业: 固体力学

[求助] Word里用mathtype编辑的公式大小自己变化已有1人参与

请问大家有没有遇到过在Word里用mathtype编辑的公式文档保存后再打开公式的大小会变化的情况，不是尺寸变化，而是对象百分比变化，可以通过调整对象大小改回去，但是每次保存了都会变，有时变大，有时变小，不堪其扰，不知道大家有没有好的办法解决？

回复此楼

» 猜你喜欢

自荐读博已经有9人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
自然科学基金委宣布启动申请书“瘦身提质”行动已经有4人回复
求个博导看看已经有18人回复

1楼 2019-12-03 20:58:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

Newsam

木虫 (职业作家)

应助: 1 (幼儿园)
金币: 23597.7
散金: 6
红花: 1
帖子: 3585
在线: 260.9小时
虫号: 1394308
注册: 2011-09-07
专业: 机械结构强度学

【答案】应助回帖

源链接：https://sites.google.com/umich.edu/sjsung/gadgets/word-editing
原文是英文，以下是用翻译工具翻译的：

有时，Mathtype对象的大小会随机变化。将每个对象调整回100％是非常麻烦的。以下是将所有Mathtype对象重新调整为100％的VBA。
（注意：宏是由我自己建立和测试了很多次。但是，我不能保证它在所有情况下都能很好地工作。请在运行此宏之前保存副本。)

CODE:

Sub EqMathtype_100()

'

' EqMathtype_100 Macro

'

'

Dim i  As Integer

Dim total  As Integer

total = ActiveDocument.InlineShapes.Count

i = 0

For Each s In ActiveDocument.InlineShapes

    i = i + 1

    On Error Resume Next

    Application.StatusBar = "Progress: " & i & " of " & total

    If s.Type = msoAutoShape Then

        If s.OLEFormat.ClassType = "Equation.DSMT4" Then

            With s

                .ScaleHeight = 100

                .ScaleWidth = 100

            End With

        End If

    End If

Next

End Sub