(6)修改页面边距后调整MathType公式（续）

修改页面边距后调整MathType公式（续）

  (2013-08-28 12:26:38)

转载▼

标签：  word   vba   mathtype   宏   it

分类： 计算机与 Internet

    以前在《修改页面边距后调整MathType公式》提到，修改了文档页面的左右边距后，插入的MatyType公式就歪了。如下所示
修改页面边距前：

修改页面边距后：


当时给出的方法，是手动修改。前天有个朋友遇到了这个问题，我说照着《修改页面边距后调整MathType公式》的步骤做就可以了。但是想一想，《修改页面边距后调整MathType公式》给出的步骤实在有些繁琐，有时候操作稍有不慎，可能就达不到需要的效果。为什么不用宏来实现一个呢？想必很多人看过顾经宇的书，他似乎对这些问题颇有研究，说不定他已经写了相关的宏发到了他的网站上呢？我没有去考证。不管他有没有写，我们自己写一个也不麻烦，主要就是录制宏和删代码。最终的代码如下

Sub 更新公式对齐方式()

' 调整页边距之后，MathType的RightNumbered公式的对齐需要调整

' 本sub自动计算调整量，并调整对应样式的制表位

    With ActiveDocument

        With .PageSetup

            available_width = .PageWidth - .LeftMargin - .RightMargin - .Gutter

        End With

        With .Styles("MTDisplayEquation").ParagraphFormat.TabStops

            .ClearAll

            .Add _

                Position:=available_width / 2, _

                Alignment:=wdAlignTabCenter, _

                Leader:=wbTabLeaderSpaces

            .Add _

                Position:=available_width, _

                Alignment:=wdAlignTabRight, _

                Leader:=wbTabLeaderSpaces

        End With

    End With

End Sub

下面演示一下，看看实际效果。

插入公式


调整页边距


运行宏


更新结果