设置正文中字母与数字的格式为TimesNewRomanSubSetEnglishAndNumbersFontToTimesNewRoman()DimrngAsRangeDimdocAsDocumentDimparaAsParagraphDimiAsInteger'获取当前活动文档Setdoc=ActiveDocument'循环遍历