查找中英字符，数字混合的段落，如何控制查找段落的总字符数？

相见是缘8 · 发表于 2020-5-31 15:13

有很多这种单独一段的文字，有的段落是纯中文字符，有的段落中分别混有：中文字，中文符号，中文数字，英文字母，阿拉伯数字，且它们在段落中所处的顺序和字符数都不同，相同点只是段尾都有一个中文冒号。

想只查找这种1～50字符的段落，加粗蓝色处理，求老师们帮忙！谢谢！

请看附件！

ming0018 · 发表于 2020-6-1 09:19

遍历段落，判断段落的长度，段落内容可以用正则判断。

相见是缘8 · 发表于 2020-6-1 09:46

ming0018 发表于 2020-6-1 09:19
遍历段落，判断段落的长度，段落内容可以用正则判断。

汗颜！水平不够！还请老师援手！谢谢！

ming0018 · 发表于 2020-6-1 10:10

相见是缘8 发表于 2020-6-1 09:46
汗颜！水平不够！还请老师援手！谢谢！

1-50字的段落，段落文字的要求是什么？你上面写的比较模糊。

相见是缘8 · 发表于 2020-6-1 13:17

ming0018 发表于 2020-6-1 10:10
1-50字的段落，段落文字的要求是什么？你上面写的比较模糊。

老师好！

就是查找：
一、1～50 纯中文字符的段落，段尾都有一个中文冒号的段落。找到后加粗蓝色处理。
二、1～50 字符的段落（段落中分别混有：中文字，中文符号，中文数字，英文字母，阿拉伯数字，且它们在段落中所处的顺序和字符数都不同），段尾都有一个中文冒号的段落。找到后加粗蓝色处理。

简单来说，就是查找：
1～50个任意字符的段落，段尾都有一个中文冒号的段落。找到后加粗蓝色处理。

ming0018 · 发表于 2020-6-1 17:49

Sub 查找特定的段落()
Dim Doc As Document
Dim Par As Paragraph
Dim TmpTxt As String
Dim reg1 As Object
Set Doc = ActiveDocument
Set reg1 = CreateObject("VBSCRIPT.REGEXP") 'RegEx为建立正则表达式
With reg1
.Global = True: .Pattern = "^.+：$"
End With
For Each Par In Doc.Paragraphs
'文档中都是纯文本，无图片表格之类的其它元素。
TmpTxt = Par.Range.Text
If Trim(Len(TmpTxt)) > 1 Then
TmpTxt = Replace(TmpTxt, Chr(13), "")
If Len(TmpTxt) <= 50 Then
If reg1.test(TmpTxt) Then
Par.Range.Font.Bold = True
Par.Range.Font.ColorIndex = wdBlue
End If
End If
End If
Next
End Sub

复制代码

413191246se · 发表于 2020-6-1 23:28

* 虽然 ming 老师出手了，我不应该出手；但只是想力求简洁；另外，50字的段落字数是否太长了？

Sub test()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) < 50 And i.Range Like "*：?" Then i.Range.Font.ColorIndex = wdPink: i.Range.Bold = True
Next
End Sub

复制代码

相见是缘8 · 发表于 2020-6-6 12:14

ming0018 发表于 2020-6-1 17:49

ming0018 老师好！
抱歉！因家里有事，回了趟老家，今天上午刚回来，回复晚了敬请见谅！
感谢老师出手帮忙，代码刚以测试，完美达愿！多谢！多谢！

相见是缘8 · 发表于 2020-6-6 12:15

本帖最后由相见是缘8 于 2020-6-13 07:01 编辑

413191246se 发表于 2020-6-1 23:28
* 虽然 ming 老师出手了，我不应该出手；但只是想力求简洁；另外，50字的段落字数是否太长了？

413191246se 老师好！
抱歉！因家里有事，回了趟老家，今天上午刚回来，回复晚了敬请见谅！
感谢老师出手帮忙，代码刚以测试，完美达愿！谢谢！谢谢！
之所以要限定为50个字符，是要修改的文档，有很多超过50个字符的类似段落，无需加粗、变色处理。

相见是缘8 · 发表于 2020-6-12 14:55

413191246se 发表于 2020-6-1 23:28
* 虽然 ming 老师出手了，我不应该出手；但只是想力求简洁；另外，50字的段落字数是否太长了？

老师好！
想请你在这个代码上再加一句：把段落符全部替换为“五号、黑色、非加粗”的代码，可以吗？谢谢！

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

[求助] 查找中英字符，数字混合的段落，如何控制查找段落的总字符数？

评分