瑕疵：将答案写入数组之中后删除原括号里的答案再将题目写入数组

weiyingde

下面这个程序是将word转化为ppt的前奏，目的是将答案写入数组之中后删除原括号里的答案再将题目写入数组，为的是转换一步到位。
问题：第一题的括号中的答案不删除，导致转化后的ppt中答案保留在题干中。
请大侠帮助优化，word文档和转化后的问题课件如下。
Sub 将答案和题目分别写入数组后删除括号原答案()
Application.ScreenUpdating = False
Dim gs%, sr$, arr(), did$, brr(), mths, ii%
Dim Appt As New PowerPoint.Application
With CreateObject("vbscript.regexp")
    .Global = True
    .MultiLine = True
    .Pattern = "[A-Z](?=\s*[/)）])"
    Set mths = .Execute(ActiveDocument.Content)
End With
For Each m In mths
    ii = ii + 1
ReDim Preserve brr(1 To ii)
brr(ii) = m
Next
ActiveDocument.Content.Find.Execute "([\(（])([A-D])([\)）])", , , 1, , , , , , "" & " \1" & Space(8) & "\3" & "", 2
With ActiveDocument
  wdnm$ = .Name
  did$ = .Paragraphs(1).Range.Text
  gs = (.Paragraphs.Count - 1) / 5
  ReDim Preserve arr(1 To gs)
  For i = 1 To gs
      For y = (i - 1) * 5 + 2 To 5 * i + 1
        sr = sr & .Paragraphs(y).Range.Text
      Next
      arr(i) = sr
      sr = ""
  Next
End With
ActiveDocument.Close savechanges:=wdSaveChanges
Word.Application.Quit
Application.ScreenUpdating = False
End Sub
附见如下。

weiyingde

自我解决，原来是第一题的括号里有空格，因此先处理一下，加一句：
ActiveDocument.Content.Find.Execute findtext:="^32", replacewith:="", Replace:=wdReplaceAll

kqbt

第一题括号里面有空格

1. ActiveDocument.Content.Find.Execute "([\(（]*)([A-D]@*)([\)）]^13)", , , 1, , , , , , "" & " \1" & VBA.Space(8) & "\3" & "", 2

复制代码

kqbt

现在回帖还要审核？然后不见了。。。
ActiveDocument.Content.Find.Execute "([\(（]*)([A-D]@*)([\)）]^13)", , , 1, , , , , , "" & " \1" & Space(8) & "\3" & "", 2

weiyingde

kqbt 发表于 2017-5-18 21:38
现在回帖还要审核？然后不见了。。。
ActiveDocument.Content.Find.Execute "([\(（]*)([A-D]@*)([\)）]^1 ...

我试试，是由于换行符的原因吗？

kqbt

weiyingde 发表于 2017-5-18 21:44
我试试，是由于换行符的原因吗？

正是因为第一题括号里面有空格的缘故。
其实查找替换里面可以通过诸如 [\(（]*、[A-D]@ 通配符的应用，尽可能把能够预想到可能会出现的各种情况都考虑进去，这样一来它的通用性或者理解为兼容性会更好，从而减少替换的次数。

weiyingde

weiyingde 发表于 2017-5-18 21:44
我试试，是由于换行符的原因吗？

也是可以的，怪哉！到底是空格的原因还是……

weiyingde

kqbt 发表于 2017-5-18 21:48
正是因为第一题括号里面有空格的缘故。
其实查找替换里面可以通过诸如 [\(（]*、[A-D]@ 通配符的应用， ...

言之有理，多谢赐教。
我事后默想的确如此。

leikaiyi123

ppt中也能搜，你在帮助里搜下find

ammyc

好好学习天天向上