Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range Call ClearParagraphFill Call ConvertNoToText '项目编号转为文本 Call ConvertShape '图形转为in…