Sub 试卷顺题号()Selection.HomeKey 6Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingn = 0With Selection.Find.text = "(^13)[0-9]@(.)".Wrap = wdFindContinue.MatchWildcards = TrueDo While .Executen = n + 1.Replacement.text = "\1" & n & "\2".Execute Replace:=wdReplaceOne'StopLoopEnd With End Sub 'CABACBCADCABBABBBDCDABACDBBDCBCCDACAAABCBD Sub 答案填在括号里()s = "CABACBCADCABBABBBDCDABACDBBDCBCCDACAAABCBD"Selection.HomeKey 6Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingn = 0With Selection.Find.text = "(()())".Wrap = wdFindContinue.MatchWildcards = TrueDo While .Executen = n + 1.Replacement.text = "\1" & Mid(s, n, 1) & "\2".Execute Replace:=wdReplaceOneSelection.Collapse WdCollapseDirection.wdCollapseEndDebug.Print n ' StopLoopEnd With End Sub