Question

word中怎样批量调整公式大小

Answer 1

从菜单的工具-宏-宏...中新建一个宏过程

 Sub AdjustQuationWH()
 For i = 1 To ActiveDocument.InlineShapes.Count
   If ActiveDocument.InlineShapes(i).Type = wdInlineShapeEmbeddedOLEObject Then  '如果对象时公式则进行长宽等比放大1倍
      ActiveDocument.InlineShapes(i).Width = ActiveDocument.InlineShapes(i).Width * 2  '这里的2是等比放大1倍的，如果要放大3倍，将2改成4即可，同理类推
      ActiveDocument.InlineShapes(i).Height = ActiveDocument.InlineShapes(i).Height * 2
   End If
 Next 
 End sub