精华内容
下载资源
问答
  • 实现效果 一键批量将word内mathtype公式转换成word自带公式! 一、mathtype与word自带公式omaths 1.mathtype在word中的表现形式 mathtype在word是以 inlineshape 形状类型插入到word中的,如果运行下面vba代码,...


    ❤️转载请标注转载引用谢谢!

    实现效果

    一键批量将word内mathtype公式转换成word自带公式!


    在这里插入图片描述

    一、mathtype与word自带公式omaths

    1.mathtype在word中的表现形式

    mathtype在word是以 inlineshape 形状类型插入到word中的,如果运行下面vba代码,所有的mathtype将被删除.但inlineshape查找却识别不出查找的对象是图片还是mathtype公式!

    
    Sub test1()
        
        Dim a As InlineShape
        For Each a In Word.ActiveDocument.InlineShapes
            a.Delete
        Next
    End Sub
    
    

    而解析时候,目前本章方法可操作的,是将mathtype先转换成MathML2.0(namespaceattr)格式:
    在这里插入图片描述
    公式转换后如下:
    在这里插入图片描述

    <math xmlns='http://www.w3.org/1998/Math/MathML'>
     <mrow>
      <msqrt>
       <mrow>
        <msup>
         <mi>a</mi>
         <mn>2</mn>
        </msup>
        <mo>+</mo><msup>
         <mi>b</mi>
         <mn>2</mn>
        </msup>
        </mrow>
      </msqrt>
      </mrow>
    </math>
    
    

    2.实现原理

    word会自动将mathtype转换后的代码识别成公式,当Ctrl C复制这串代码后,Ctrl V黏贴进word时,会提供选择生成公式的类型,见下图:
    在这里插入图片描述
    omml公式即word自带的omaths公式,在已经安装了公式编辑器的前提下,你也可以直接复制上面的转换后代码到word中尝试一下!
    【注意】如果之前已经点击了“记住我的选择”,则后续黏贴会记住选择直接黏贴!

    所以:
    【实现方式】
    ①先利用公式编辑器全文转换mathtype成MathML2.0(namespaceattr)格式
    ②利用word vba中的selection.find方法逐个复制copy转换后的公式,替换黏贴成无格式文本即可直接转换成omaths公式!

    3.为什么要将mathtype转换成word自带公式?

    目前大部分网页web应用或者程序运行对于公式的处理基本上是以LaTeX公式为主,omaths为辅,而公式编辑器商用识别费用不菲,所以能自己单独转换可以省一部分不少的功能开销!

    二、代码实现方式

    1.word自带vba实现

    代码如下(示例):

    
    Sub 公式转换()
        'On Error Resume Next
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        
        With Selection.Find
            .Text = "</math>^p"
            .Replacement.Text = "</math>"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        
        
        Selection.Find.ClearFormatting
        
        With Selection.Find
            .Text = "\<math?*\</math\>"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        
        Selection.HomeKey wdStory
        While Selection.Find.Execute
            Selection.Copy
            
            Dim t, i As Single
            t = Timer
            Do
                i = i + 1
            Loop While Timer - t < 0.05
            Selection.PasteAndFormat (WdRecoveryType.wdFormatPlainText)
        Wend
    End Sub
    
    
    
    

    2.vbnet实现

    代码如下(示例):

    Imports Microsoft.Office.Interop.Word
    Module Module1
        Sub 公式转换(app As Microsoft.Office.Interop.Word.Application, time As Double)
            Dim w As Microsoft.Office.Interop.Word.Application = app
            w.Selection.Find.ClearFormatting()
            w.Selection.Find.Replacement.ClearFormatting()
    
            With w.Selection.Find
                .Text = "</math>^p"
                .Replacement.Text = "</math>"
                .Forward = True
                .Wrap = Microsoft.Office.Interop.Word.WdFindWrap.wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchByte = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            w.Selection.Find.Execute(Replace:=WdReplace.wdReplaceAll)
    
           
    
            w.Selection.Find.ClearFormatting()
    
            With w.Selection.Find
                .Text = "\<math?*\</math\>"
                .Replacement.Text = ""
                .Forward = True
                .Wrap = WdFindWrap.wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchByte = False
                .MatchAllWordForms = False
                .MatchSoundsLike = False
                .MatchWildcards = True
            End With
    
            w.Selection.SetRange(0, 0)
            While w.Selection.Find.Execute()
                w.selection.copy
    
                Dim t, i As Single
                t = Timer
                Do
                    i += 1
                Loop While Timer - t < time
                w.Selection.PasteAndFormat(WdRecoveryType.wdFormatPlainText)
            End While
        End Sub
    
    
    End Module
    
    

    该处使用的url网络请求的数据。


    总结

    其实公式转换应用非常多,LaTeX、omaths、mathtype相互转换应用非常广,其他公式的相互之间的转换请见本人博客专栏-office vba.

    博主已封装好的vba/工程附件

    vba版:vba版
    vbnet版:vbnet版

    TIPS:商用软件推荐

    如果想用已经打包好的商业软件,要求大规模公式转换,请了解一下专业软件:GrindEQ.
    使用方法与效果见本人博文:
    在word中10秒一键将900个mathtype公式转换成word自带公式–GrindEQ公式转换神器

    公式转换功能很优秀!
    官网:官网
    价格:价格链接

    展开全文
  • Word文档中插入用MathType编辑的公式后,经常会发现行距明显变大,就好像插入的公式把行与行之间给撑开了一样。 设置页面格式 在Word文档状态下中,调出“文件”——“页面设置”下拉菜单,在“文档网格”项中,勾选...

    一、插入MathType公式行距变大的解决方法

    Word文档中插入用MathType编辑的公式后,经常会发现行距明显变大,就好像插入的公式把行与行之间给撑开了一样。

    设置页面格式

    在Word文档状态下中,调出“文件”——“页面设置”下拉菜单,在“文档网格”项中,勾选“无网格”项。 这样也可以解决行距不同的问题。这可以说是一种解决方法,但是文章总体上的排版就错了,比如每页的行数不等了,对应的行距好像缩小了。
    在这里插入图片描述

    在“文档网格”中选择“无网格”就好了

    二、解决Word中MathType公式显示不全问题

    MathType和Word可以融合,用MathType编辑的公式放在Word中有时会显示不全,仅显示其中一部分。
    在这里插入图片描述
    比如就像上图所示的情况,分数显示不全。究其问题所在,是段落选项中的行距设置成了固定值,公式因为纵向过长,仅能显示固定值设定的磅值区域。
    在Word中粘贴完公式后,选中该公式,在工具栏里选择“段落”,在打开的段落多话框选择“行距”为“单倍行距”即可。
    在这里插入图片描述
    注意:
    (1)一定是“选定”公式后再调整,不是只是把光标点到公式所在行。
    (2)不要选择“如果定义了文档网格……”,可能你的格式占用的比较宽,如果行距设置的是单倍行距,再设置对齐网格的话,公式就会显示不全。

    展开全文
  • 本文介绍了一种将Latex公式转换成MathType公式的方法,动作演示证实了方法的有效性。

    Latex公式转化成MathType公式

    背景

    改投的期刊指定使用MathType公式,但平常使用的公式编辑器是AxMath,故需对公式格式进行转换。在转换过程中,Latex公式形式起到了很好的桥梁作用。本文将讲述一种将Latex公式转换成MathType公式的方法。

    使用的软件

    • AxMath
    • MathType 6.9a
    • Typora

    操作流程叙述

    在AxMath公式编辑器界面中,将需要转换的公式选中,右键复制TeX脚本(或者采用动作演示中的流程),粘贴至Typora的文档中,逐一进行,将所有的需要转换的公式汇总一个文档,利于后续工作的展开。将Latex公式代码复制到MathType公式编辑器界面,可自动实现公式的转换。

    动作演示

    在这里插入图片描述

    缺点

    需要指出的是:对矢量符号斜体加粗,转换结果出现bug,本应为斜体加粗的公式,转换成了正体加粗,需要在MathType公式编辑器内进行微调,将正体转换成斜体。

    在这里插入图片描述

    展开全文
  • MathType公式转换为Word自带公式

    万次阅读 多人点赞 2019-05-19 15:15:41
    在写论文时,遇到在word中插入MathType公式后导致行距不一致的问题。在几经尝试之后,发现插入word自带的公式并不会导致行距不一问题,就想着将所有的MathType公式都转为word自带的公式进行插入,但重新输入公式太花...

    在写论文时,遇到在word中插入MathType公式后导致行距不一致的问题。在几经尝试之后,发现插入word自带的公式并不会导致行距不一问题,就想着将所有的MathType公式都转为word自带的公式进行插入,但重新输入公式太花时间了,因此,找到了一种将MathType公式转换为word自带公式的方法。

    本人的环境为:word2013、mathtype6.9


    1. 打开MathType公式编辑窗口,菜单栏 —> 剪切和复制选项
    在这里插入图片描述

    选择:MathML 2.0 (namespace attr) —> 确定

    在这里插入图片描述

    2. 打开目标Word文档 —> 双击MathType公式(使用MathType打开需要转换的公式)— > 在MathTpye对话框中复制需要转换的公式(或者Ctrl+C)

    在这里插入图片描述

    在Word文档中用Ctrl+V粘贴 —> Create an OMML equation —> Remember my choice —> OK

    在这里插入图片描述

    在这里插入图片描述

    然后,根据情况进行微调

    在这里插入图片描述

    展开全文
  • 遇到公式间距较大时,去除掉红框部分的√,即可解决公式导致的正文间距不匹配问题。
  • 论文中MathType公式居中,编号右对齐

    万次阅读 2019-12-03 18:59:38
    新建一个Word文档,插入两个mathtype公式, 1.MathType公式光标 在Word中插入mathtype公式后,后面再次打开Word,会发现公式前后的光标不在中间,而是靠下, 此时,只需要选中公式所在行,依次点击字体→...
  • 论文用的字体,一开始就得用mathtype,别用word自带的公式编辑器,有如下几个好处,而word做不到这些好处: 1. mathtype编辑公式可能速度会稍微快一点 2. mathtype支持批量整篇修改公式尺寸还有各种格式,这个...
  • 1、mathtype公式转换成Latex公式 在word中选中需要转换的mathtype公式,点击切换Tex,得到转换的latex代码; 2、Latex里的公式在word中转换成mathtype公式 在latex中复制公式代码,粘贴到word中,注意要在代码首尾...
  • 文章目录Mathtype公式编辑器常用快捷键1. 放大或缩小尺寸2.在数学公式中插入一些符号3.微移间隔4.元素间的跳转用键盘选取菜单或工具条贴加常用公式 Mathtype公式编辑器常用快捷键 1. 放大或缩小尺寸 Ctrl+1...
  • 注意:本方法对任何word模板和纸张大小都生效 1、首先打开word视图中的 标尺,如下图所示,我们可以发现我们当前word可以编辑的字符范围。...5、设置之后,在公式前面按一下Tab键,公式就居中了,再在编号前面按
  • 我的word是2019版的,...需要将光标定在一行最左边,然后点击”右编号“,在mathtype中输入公式,ctrl+s保存,这时候就会公式居中,编号靠右。效果 在这里我要纠正一下很多人的误区,这里面的两个箭头不是敲tab键敲出
  • 解决word插入mathtype公式后自动生成空格,右键以管理员权限运行就可以。
  • word中批量修改mathtype公式大小 以小四字体中的公式改为小三字体的公式为例 1、在word中打开一个公式,点击菜单栏大小->定义,出现下图界面。设定为需要的尺寸,小四字体为12pt,小三字体为14pt,小五字体为10pt...
  • MathType 公式自动编号

    2021-03-31 13:29:02
    MathType 公式自动编号 设置好后,先right-numbered输入公式,编号自动右对齐,若有修改点击update ,自动更新。
  • 1.双击任何一个公式,进入MathType编辑窗口;点击“预置”——“公式选项”——“保存到文档”,保存一个与默认配置文件不同的名字,比如“test”,然后关闭MathType回到Word文档; 在预置中将公式保存为一个文件 ...
  • 利用MathType工具栏中的根式与分式模板中的要式模板编辑出自己所需要的符号。
  • 原创 LaTex 论文排版(2): 插入公式 (从MathType公式编辑器导入到LaTex中) ...
  • (1)首先我们确保自己的PC端已经安装了如下软件:QQ(截图)或者Snipaste(截图),Mathtype7(7以下的版本如6可能不适用于该方法)。 ... (3)再次,我们使用以下截图为例。...那么,同理可以得到截图2的公式
  • 2.在MathType菜单中点击“公式编号格式”(Format Equation Number)。 3.在弹出的对话框中,选择“简单格式”(Simple Format)。修改项目,在下面的“preview”(预览)中查看修改后的效果。 ...
  • LaTeX公式与MathType公式的快速转换abstract1. LaTeX在线公式编辑器:2. MathType公式编辑器:3. MathType公式转LaTex公式:3.1 例:MathType公式转LaTex公式4. LaTex公式转MathType公式:4.1 例LaTex公式转MathType...
  • 原文地址:如何解决mathtype公式拉大word中行间距的问题作者:dbstr Mathtype是个好东西,但使用过程中往往还是存在一些问题,大部分都是因为没有熟练应用mathtype所致。在Word文档中插入公式后,行距便会变得很大...
  • 版本:office 2019专业版,visio2019专业版,mathtype7.4.8.0 ...问题描述:visio中画流程图,插入-对象-mathtype公式进行公式插入,如果有改动粘贴到word后公式会变模糊。 解决办法:重新插入公式代替模糊公式 ...
  • LaTeX公式转MathType公式

    千次阅读 2019-09-07 22:57:00
    LaTeX公式转MathType公式步骤: 方式一: 打开链接,复制编写的LaTex公式,加入$$中,右键选择如图,复制代码到word的MathType公式编辑器里面即可。 https://www.zybuluo.com/mdeditor 方式二: 类似地,打开链接...
  • 问题:给word中的mathtype编辑的公式右边按序编号 环境:我的是word2013,mathtype6.9 解决方法: 1、设置编号格式:在Word菜单中点击【MathType】选项卡,然后点击【插入编号的倒三角】,点击【格式化】,然后...
  • 1、使用visio2013绘制方框图时,从word中复制mathtype公式到在visio2013中,然后对双击公式并修改,复制该公式,发生变形,如下所示 根据其他答主的方法,双击该公式进行修改,再退出,可以暂时不变形,但是关闭...
  • 怎样修改MathType公式编号

    千次阅读 2019-04-17 11:00:34
    选中不按顺序编号的第一个公式,点击MathType标签下的章&节,然后点击修改分隔符,在弹出的Modify Chapter/Section Break窗口中点Delete。 点击一次如果公式编号没有变化,重复上述操作,直到公式按顺序编号为止...
  • visio里插入mathtype公式变形

    千次阅读 2021-01-18 15:22:30
    visio里面插入mathtype对象,注意不要把公式拉大拉小,否则在显示的时候就会变形,像这样 怎么知道当前的公式是不是出于放大缩小的状态,可以打开编辑器之后,添加点东西然后删除添加的东西,然后ctrl+s保存一下...
  • word中添加Mathtype公式行间距改变问题

    万次阅读 多人点赞 2018-06-13 15:12:16
    mathtype中编辑任何一个公式,将字体调整好,然后在公式编辑窗口中点“Preference”-“Save to file”,将设置保存为一个文件,文件名任取。关闭公式编辑窗口,退回到Word窗口,然后在Mathtype菜单中点“Format ...
  • 为了方便大家的使用,下面就详细介绍在Word中调整MathType公式间距的方法,使其与文字相媲美。 具体的操作步骤如下: 步骤一 事先准备的测试文档,如下图所示,我们发现红色框中的字体间距与上下文间距,存在差异...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,672
精华内容 1,468
关键字:

MathType公式