VBA word 文件类型html 使用vba进行Word文档的数学格式设置

使用vba进行Word文档的数学格式设置

李志军

使用方法：

打开word的视图菜单，选择查看宏，再选择创建宏，将下面的代码，拷贝到代码窗口，运行即可

主要功能：

处理word中，字母和数字，符合编辑规范，包括字体，字号，字形，行距等，支持基本初等函数名称，如sin,cos等

Sub SetMathStyle()

Selection.WholeStory

Selection.Range.CharacterWidth = wdWidthHalfWidth

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.Font.Italic = True

With Selection.Find

.Text = "^$"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = True

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting