2019年6月11日
根据答案颜色提取答案
摘要： Sub 根据红色整理选择题答案() N = 0 Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed Selection.Find.Replacement.ClearFormatting With S... 阅读全文
posted @ 2019-06-11 15:14 wangway 阅读(292) 评论(0) 推荐(0)
paper8
摘要： Sub LayoutForExamPaper8() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range ... 阅读全文
posted @ 2019-06-11 09:00 wangway 阅读(198) 评论(0) 推荐(0)