1.word-视图-宏 2.自己随便输入一个宏名,比如就叫InsertEqua,然后将 Sub InsertEqua() Selection.OMaths.Add Range:=Selection.Range Selection.OMaths(1).ConvertToMathText Selection.OMaths(1).ConvertToMathText End Sub 这几行代码复制到里边去.注意这里会根据你起的宏名称自动生成sub和end sub这部分,所以真正复制的部分是中间的3行 3
原先博客放弃使用,几篇文章搬运过来 在 视图—>宏 内新建宏 '终极版 Sub ReColor() Dim sld As Slide Dim sh As Shape For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes Call ReColorSH(sh) Next Next ActivePresentation.ExtraColors.Add , Green:=, Blue:=) If ActivePresent
在 视图—>宏 内新建宏 '终极版 Sub ReColor() Dim sld As Slide Dim sh As Shape For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes Call ReColorSH(sh) Next Next ActivePresentation.ExtraColors.Add , Green:=, Blue:=) If ActivePresentation.HasTitleMast