摘要: Sub LayoutForExamPaper() '其他想法: '1自动顺题号,修改引言中完成下列各题的题号 '2综合题每一问空白处理 Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = Fal... 阅读全文
posted @ 2019-04-12 16:01 wangway 阅读(609) 评论(0) 推荐(0) 编辑
摘要: Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range C... 阅读全文
posted @ 2019-04-12 12:28 wangway 阅读(735) 评论(0) 推荐(0) 编辑