Word中查找末尾没有标点符号的段落

jyj_happy · 发表于 2013-9-9 18:33

Word中查找末尾没有标点符号的段落

例如：

春天来了，空气真好。
太阳出来了
大家约好出去玩，都商量商量去哪里。

需要出找出太阳出来了这一句话（word文档中有很多文字，需要找出来末尾没有标点符号的段落）

谢谢大家

wudixin96 · 发表于 2013-9-9 18:46

[!。,，.？?！]^13

dajiahaoxinku12 · 发表于 2013-9-9 21:54

本帖最后由 dajiahaoxinku12 于 2013-9-9 22:01 编辑

[一-歈]^13 或者 [一-歈]^l

jyj_happy · 发表于 2013-9-10 15:14

请问[]里面的数字是什么？
^13能找到段落末尾，但没有标点的段落找不到。

庭院深深 · 发表于 2013-9-10 16:31

使用[!，,。,！,、]^13，完全可以做到，其用意就是实现排除以逗号、句号、感叹号、顿号结尾的段落。

常扬帆 · 发表于 2022-10-9 11:34

整段还真查找不到？

蜀中草莽 · 发表于 2022-10-9 13:06

本帖最后由蜀中草莽于 2022-10-9 15:03 编辑

常扬帆发表于 2022-10-9 11:34
整段还真查找不到？

查找替换的话  分两次查找  可以找到的
第一次范围全部    主文档中查找 *^13       定位每一段
第二次范围向下  当前所选内容中查找 *[!，,。,！,、？]^13

Sub text()
Set 文档 = ActiveDocument
Set 段落 = 文档.Paragraphs
c = Array("。", "？", "！", "…", ".", "?", "!", "…")
For h = 1 To 文档.Paragraphs.Count
      n = Split(Right(段落(h).Range.text, 2), Chr(13))(0)
      段落(h).Range.Font.Bold = True
      段落(h).Range.Font.ColorIndex = wdRed
      For i = 0 To UBound(c) - 1
         If n = c(i) Then
            段落(h).Range.Font.Bold = 0
            段落(h).Range.Font.ColorIndex = 0
         End If
      Next
Next
End Sub

常扬帆 · 发表于 2022-10-12 14:39

蜀中草莽发表于 2022-10-9 13:06
查找替换的话分两次查找可以找到的
第一次范围全部主文档中查找 *^13 定位每 ...

两种都被您灌通了！您太难了

谢谢！！！

蜀中草莽 · 发表于 2022-10-12 18:21

常扬帆发表于 2022-10-12 14:39
两种都被您灌通了！您太难了谢谢！！！

会查找替换，代码是尝试着写的

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