关于word中插入的mathtype公式变形问题的解决方案

最新推荐文章于 2024-12-04 11:06:17 发布

ZZZ-Pumbaa

最新推荐文章于 2024-12-04 11:06:17 发布

阅读量1.8w

点赞数 41

分类专栏：总结

本文链接：https://blog.csdn.net/qq_34146849/article/details/116099673

版权

总结专栏收录该内容

4 篇文章

订阅专栏

本文介绍了在Word中调整MathType公式大小的三种方法，包括单个公式手动设置、批量转换公式以及使用VBA宏批量处理。针对批量处理可能出现的公式位置问题，提供了解决方案，并给出了具体的VBA代码示例。操作完成后，建议将文档另存为启用宏的文档以便后续使用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第一种解决方法（单个）

公式比较少的情况下可以使用，需要单个进行

步骤

选中公式，鼠标右键，选择图片
在“设置对象格式”中的“大小”选项卡中“缩放”一项，将高度和宽度设置为100%，此处可以点击下方重新设置完成（锁定纵横比勾不勾选无影响）

第二种方法（批量1）

可以批量使用，也可以单个操作，但是操作完成后有可能出现原本行间嵌入的公式与字体不在同高度，即偏上或者偏下的问题，详细事项可以参考官网为什么MathType公式会大小不一

步骤

在mathtype选项卡下的格式化中选择转换公式，然后更加需要设定，建议左边四个全部勾选

第三种方法（批量2，个人推荐）

需要编辑VBA的宏代码，并且将加载代码后的文档另存为“启用宏的文档”格式

步骤

在word中加载“开发工具”选项卡

2.在开发工具选项卡中选择“Visual Basic”，进入vba宏代码编辑界面
在左侧工程中，右键插入–>模块
在代码区域键入如下代码
以下代码来自word中mathtype公式变形问题解决方法，表示感谢，本文在此基础上，添加了代码运行完成的提示框

Sub ResizeEquations()
    For Each Field In ActiveDocument.Fields
        If Trim(Field.Code) = "EMBED Equation.DSMT4" Then
            With Field.InlineShape
                .LockAspectRatio = msoFalse
                .ScaleWidth = 100
                .ScaleHeight = 100
            End With
        End If
    Next Field
    MsgBox ("完成") '操作完成的提示框
End Sub

使用时，在开发工具中，选择宏
宏的位置处，选择文档的文件名，可以看到上面列出了宏的名称（名称和代码中Sub ResizeEquations()的一致），然后点击运行
运行完成后，会提示
之后可以将文件存为“启用宏的文档”，以备下次出现问题时使用

备注：若要保存为doc或者docx可以选择“word文档”，此时会提示是否删除，是的话会自动删除宏代码