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

jason19840307 · 发表于 2024-1-26 15:35

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

413191246se · 发表于 2024-1-27 01:36

本帖最后由 413191246se 于 2024-1-27 09:05 编辑

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

复制代码

batmanbbs · 发表于 2024-1-27 09:07

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

413191246se · 发表于 2024-1-27 19:18

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

文化属性666 · 发表于 2024-3-13 14:54

学习收藏了

		自动登录	找回密码
密码			免费注册

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

评分