求助大神，对WORD中不连续选中区域如何求和。

jason19840307

以下代码仅能对连续选中的文本中的数值进行求和，对不连续选中的文本执行后只求和最后选中的区域中的数值。还望各位大神赐教。
如图，当先选中第一行，再选中第三行时，求和结果是29,384.37。无法实现对第一行和第三行中两个数据的求和。

413191246se

1. Sub a01_Sum_No_Continous_Area()
   
2. '非连续区域数据求和
   
3. '请注意：用鼠标选定任意段落后，按住 Ctrl 键不放手，
   
4. '再点击其它段落；然后应用本宏。非标准数据会出错！
   
5. '将本宏复制到空白文档后，全选，复制，再粘贴到 VBE 中，以防乱码！
   
6.     Dim s!
   
7.     With ActiveDocument.Content.Find
   
8.         .Parent.Font.Color = wdColorAutomatic
   
9.         Selection.Font.ColorIndex = wdRed
   
10.         .ClearFormatting
    
11.         .Text = "[0-9.,]{1,}元"
    
12.         .Forward = True
    
13.         .MatchWildcards = True
    
14.         Do While .Execute
    
15.             With .Parent
    
16.                 .MoveEnd 1, -1
    
17.                 If .Font.ColorIndex = wdRed Then s = s + Replace(.Text, ",", "")
    
18.                 .Start = .End
    
19.             End With
    
20.         Loop
    
21.         Selection.Font.ColorIndex = wdAuto
    
22.     End With
    
23.     MsgBox "Sum = " & Format(s, "Standard") & " 元！", 0 + 48
    
24. End Sub

复制代码

batmanbbs

楼主代码写的不错，学习。其实这个问题以前就讨论很多次。目前，想到两种方法。
一个是楼上se老师的方法，给选区文本标注一种格式，为了提高容错性，建议先判断文档中的文本是否有对应标注格式（比如se老师的标注字体红色），然后再操作，同时需要注意查找的开始位置。
第二个就是使用剪贴板，楼主的代码中已经有写入操作，开始位置增加一个复制读取的操作就可以，注意需要延时。
PS：两个代码其实都已经完成，但是楼主代码写的很好，我就提供个思路，我想楼主应该能够写出来。如果遇到什么问题，我们再交流，说不定我能学习到楼主更好的思路。

413191246se

天！经过 batmanbbs 老师点评后，我看了 楼主 的代码，我实在是小巫见大巫了！正则我不会。

文化属性666

学习收藏了