分别统计文档中，符合条件各段落中的顿号数量

相见是缘8 · 发表于 2023-3-20 08:24

请各位老师帮忙，谢谢！

batmanbbs · 发表于 2023-3-20 10:02

本帖最后由 batmanbbs 于 2023-3-20 16:38 编辑

修正后见楼下

batmanbbs · 发表于 2023-3-20 10:15

Sub 顿号计数()
Dim myPG As Paragraph, myRegEx As Object, myMatches As Object
Dim i, s
Set myRegEx = CreateObject("VBSCRIPT.REGEXP")
i = 0
For Each myPG In ActiveDocument.Paragraphs
i = i + 1
With myPG.Range
s = Trim(Left(.Text, Len(.Text) - 1)) ' 去掉段落符和前后空格
If Len(s) > 2 And Right(s, 1) = "。" And Not (Right(s, 2) Like "[)）]。") Then
With myRegEx
.Pattern = "、"
.IgnoreCase = False
.MultiLine = False
.Global = True
Set myMatches = .Execute(myPG.Range.Text)
End With
If myMatches.Count > 0 Then
Debug.Print "第 " & i & " 段有 " & myMatches.Count & " 个顿号" ' 数量较多，酌情处理
End If
End If
End With
Next myPG
Set myPG = Nothing
End Sub

复制代码

相见是缘8 · 发表于 2023-3-21 06:05

batmanbbs 发表于 2023-3-20 10:15

Batmanbbs老师好！
感谢你的代码！
不知什么原因，代码在我这运行后，没什么反应？

gbgbxgb · 发表于 2023-3-21 08:15

只分别统计段落结尾为句号的，段落中的顿号数量。

但：
段落结尾为冒号的除外（类似下面红色所示段落）。
****************************************************

既然特地说明了要求：仅统计段落结尾为句号的所在段落的顿号数量，何来的段落结尾为冒号的除外这一说？
看不懂。

batmanbbs · 发表于 2023-3-21 08:20

相见是缘8 发表于 2023-3-21 06:05
Batmanbbs老师好！
感谢你的代码！
不知什么原因，代码在我这运行后，没什么反应？

因为段落数量较多，我使用的 debug.print 调试语句显示结果，因此你需要在VBE的立即窗口中才能看到。如果要在前端显示，请将上面第21句的 "debug.print" 修改为 "msgbox" 即可

相见是缘8 · 发表于 2023-3-21 09:05

本帖最后由相见是缘8 于 2023-3-21 09:16 编辑

batmanbbs 发表于 2023-3-21 08:20
因为段落数量较多，我使用的 debug.print 调试语句显示结果，因此你需要在VBE的立即窗口中才能看到。如果 ...

Batmanbbs老师好！

经你指教后，可以显示。这个每段顿号的统计结果，能不能不以这种形式出现，可不可以让它直接就放在该段落后面？

相见是缘8 · 发表于 2023-3-21 09:05

gbgbxgb 发表于 2023-3-21 08:15
只分别统计段落结尾为句号的，段落中的顿号数量。

但：

Gbgbxgb 老师好！好久不见！
仅统计段落结尾为句号的所在段落的顿号数量，但：
1、段落中需有顿号，结尾为冒号的段落除外（也就是：这种段落中的顿号，不统计）。
2、段落中需有顿号，结尾需为句号的段落，如段落中有冒号的除外（也就是：这种段落中的顿号，也不统计）。

gbgbxgb · 发表于 2023-3-21 09:38

相见是缘8 发表于 2023-3-21 09:05
Gbgbxgb 老师好！好久不见！
仅统计段落结尾为句号的所在段落的顿号数量，但：
1、段落中需有顿号，结 ...

2、段落中需有顿号，结尾需为句号的段落，如段落中有冒号的除外（也就是：这种段落中的顿号，也不统计）。
**********************
怎么需求条件增加了1条？即段落中（不仅段落尾）出现冒号的，则该段不统计。

我帮你整理下需求描述：
统计以句号结尾的各段落的顿号数量（请把各段的统计结果插入在该段落末尾，形如：【102】），但下列特征的段落不要统计：
1.虽以句号结尾，但句号前有中文右括号的段落，形如：）。
2.虽以句号结尾，但该段落含有中文冒号。

相见是缘8 · 发表于 2023-3-21 09:49

gbgbxgb 发表于 2023-3-21 09:38
2、段落中需有顿号，结尾需为句号的段落，如段落中有冒号的除外（也就是：这种段落中的顿号，也不统计） ...

对！感谢老师！

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

[求助] 分别统计文档中，符合条件各段落中的顿号数量