word VBA 运行是错误4218,类型不匹配

weiyingde

word VBA 运行是错误4218,类型不匹配
代码如下：
目的：
1、要求实现答案的隐现。但隐藏答案时，也要显示“括号、答：改：”等提示性的字符。
2、要求代码简洁。
问题
1、运行时出现上述错误。
2、代码对“答：”字符后面的内容没有效果。
诚请大侠修改代码。

Public 次数 As Integer
Sub 删除空行通用版()
次数 = 次数 + 1
k = 次数 Mod 2 + 1
'On Error Resume Next
With ActiveDocument.Content '以下处理各种特殊格式
      With .Find '处理答案，包括（ABCD)形式的答案，再就是答：这种形式的答案。
       Do While .Execute("[\(（\[【][A-D]@[\)）\]】]", , , 1) '1, , , , , , "^&", 2
          With .Parent
               .Start = .Start + 1: .End = .End - 1
               .Font.Name = "Arial Black"
               .Font.ColorIndex = Choose(k, 8, 2)
               .Font.Size = 18
               .Collapse 0
          End With
       Loop
      End With
      With .Find
           .Replacement.Font.ColorIndex = Choose(k, 8, 2)
           .Replacement.Font.Underline = wdUnderlineWavy
           .Replacement.Font.UnderlineColor = wdColorDarkBlue
           .Execute "([修回]@[改答]@：[!^13]@^13)", , , 1, , , , , , "\1", 2 '隐藏答案
      
      End With
      With .Find
           .Replacement.Font.ColorIndex = 1
           .Execute "([修回]@[改答]@：)", , , 1, , , , , , , "\1", 2 '显示"回答"或“修改”二字。
      End With
  End With
End Sub

weiyingde

附件如下，请接收没谢谢了。

13907933959

前辈好！

代码运行时，提示错误：4218，类型不匹配。

可能是代码中的这句语句 .Execute "([修回]@[改答]@：)",, , 1, , , , , , , "\1", 2 '显示"答案"二字。多了一个逗号及一个半角空格。

weiyingde

13907933959 发表于 2017-4-20 16:44
前辈好！ 好像这句 .Execute "([修回]@[改答]@：)",, , 1, , , , , , , "\1", 2 '显示"答案"二字。多了一个 ...

是的，老眼昏花，竟没有发现。
只是“回答：”之后的内容没有变化。

weiyingde

自我解决问题，代码共享如下：
Public 次数 As Integer
Sub 删除空行通用版()
次数 = 次数 + 1
k = 次数 Mod 2 + 1
With ActiveDocument.Content '以下处理各种特殊格式
      With .Find '处理答案，包括（ABCD)形式的答案，再就是答：这种形式的答案。
       Do While .Execute("[\(（\[【][A-D]@[\)）\]】]", , , 1) '1, , , , , , "^&", 2
          With .Parent
               .Start = .Start + 1: .End = .End - 1
               .Font.Name = "Arial Black"
               .Font.ColorIndex = Choose(k, 8, 2)
               .Font.Size = 18
               .Collapse 0
          End With
       Loop
      End With
      With .Find
           .Replacement.Font.ColorIndex = Choose(k, 8, 2)
           .Replacement.Font.Underline = wdUnderlineWavy
           .Replacement.Font.UnderlineColor = wdColorDarkBlue
           .Execute "([修改|回答]@[：:][!^13]@^13)", , , 1, , , , , , "\1", 2 '隐藏答案
           .Execute "([修改|回答]@[：:][!^13]@^13)", , , 1, , , , , , "\1", 2 '隐藏答案
      End With
      With .Find
           .Replacement.Font.ColorIndex = 1
           .Execute "([修改|回答]@[：:])", , , 1, , , , , , "\1", 2  '显示"答案"二字。
      End With
  End With
End Sub