查找（一）********的句子

菜菜行者 · 发表于 2016-8-20 23:23

文内的标题如：
（一）这是标题。
（二）这也是标题
（三）标题

如何查找以括号开始的句子

周星骋 · 发表于 2016-8-22 11:43

本帖最后由周星骋于 2016-8-22 11:46 编辑

[\(（][一二三四五六七八九十]@[\)）]*[^13^l]

复制代码

勾选“使用通配符”。

duquancai · 发表于 2016-8-22 12:35

本帖最后由 duquancai 于 2016-8-22 12:48 编辑

正则表达式 ^[\(（][一二三四五六七八九十〇百千万]+[\)）][^\r]*\r
使用通配符 [\(（][一二三四五六七八九十〇百千万]@[\)）][!^13]@^13 这还有一定局限性，这也是查找（一）********“开头”（还不一定是在开头）的段落！！！
说明：这是查找以（一）********开头的“段落”，而不是（一）********开头的“句子”！！！！

菜菜行者 · 发表于 2016-8-23 00:14

周星骋发表于 2016-8-22 11:43
勾选“使用通配符”。

谢谢你
这个只能部分正解，如何能做到只查找在段落的开头。

菜菜行者 · 发表于 2016-8-23 00:31

duquancai 发表于 2016-8-22 12:35
正则表达式 ^[\(（][一二三四五六七八九十〇百千万]+[\)）][^\r]*\r
使用通配符 [\(（][一二三四五六七八 ...

对，段落的开头，修改为红色，用正则怎么表示。

周星骋 · 发表于 2016-8-23 10:20

如果确定是严格的段落的话：

^13[\(（][一二三四五六七八九十]@[\)）]*^13

复制代码

如果不确定，可能还有换行符（软回车）的话：

[^13^l][\(（][一二三四五六七八九十]@[\)）]*[^13^l]

复制代码

菜菜行者 · 发表于 2016-8-23 21:20

周星骋发表于 2016-8-23 10:20
如果确定是严格的段落的话：

谢谢！
但这代码会连上一段的回车也一起查找了，这样的话，如果要应该字号或行距也会被应该到上一段了，这样不符合！能否再帮帮想办法，谢谢

413191246se · 发表于 2016-8-25 11:36

楼主说话不严密！每个段落包括一至多个句子，到底是查找句子还是段落呢？请参看我下面的代码：

Sub Title2345Auto()
Dim i As Paragraph, s As Long, t As Long, f As Long, v As Long
For Each i In ActiveDocument.Paragraphs
If i.Range Like "[一二三四五六七八九十]、*" Or i.Range Like "[一二三四五六七八九十][一二三四五六七八九十百]、*" Or i.Range Like "[二三四五六七八九]十[一二三四五六七八九]、*" Or i.Range Like "[一二三四五六七八九]百[一二三四五六七八九零][一二三四五六七八九十]、*" Or i.Range Like "[一二三四五六七八九]百[一二三四五六七八九]十[一二三四五六七八九]、*" Then
If i.Range.Sentences.Count = 1 Then s = 1 Else s = 2
ElseIf i.Range Like "（[一二三四五六七八九十]）*" Or i.Range Like "（[一二三四五六七八九十][一二三四五六七八九十百]）*" Or i.Range Like "（[二三四五六七八九]十[一二三四五六七八九]）*" Or i.Range Like "（[一二三四五六七八九]百[一二三四五六七八九零][一二三四五六七八九十]）*" Or i.Range Like "（[一二三四五六七八九]百[一二三四五六七八九]十[一二三四五六七八九]）*" Then
If i.Range.Sentences.Count = 1 Then t = 1 Else t = 2
ElseIf i.Range Like "#．*" Or i.Range Like "##．*" Or i.Range Like "###．*" Or i.Range Like "####．*" Then
If i.Range.Sentences.Count = 1 Then f = 1 Else f = 2
ElseIf i.Range Like "（#）*" Or i.Range Like "（##）*" Or i.Range Like "（###）*" Or i.Range Like "（####）*" Then
If i.Range.Sentences.Count = 1 Then v = 1 Else v = 2
End If
If s = 1 Or t = 1 Or f = 1 Or v = 1 Then
If i.Range Like "*[。：；，、！？”…—.:;,!?]" & vbCr Then i.Range.Characters.Last.Previous.Delete
With i.Range.ParagraphFormat
If s = 1 Then
.Style = wdStyleHeading2
.CharacterUnitFirstLineIndent = 1.74
i.Range.Font.Color = wdColorRed '红色
ElseIf t = 1 Then
.Style = wdStyleHeading3
.CharacterUnitFirstLineIndent = 1.75
i.Range.Font.Color = wdColorPink '粉红
ElseIf f = 1 Then
.Style = wdStyleHeading4
.CharacterUnitFirstLineIndent = 1.99
i.Range.Font.Color = wdColorGreen '绿色
ElseIf v = 1 Then
.Style = wdStyleHeading5
.CharacterUnitFirstLineIndent = 2
i.Range.Font.Color = wdColorOrange '橙色
End If
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacing = LinesToPoints(1.25)
.AutoAdjustRightIndent = False
.DisableLineHeightGrid = True
.KeepWithNext = False
.KeepTogether = False
End With
ElseIf s = 2 Or t = 2 Or f = 2 Or v = 2 Then
With i.Range.Sentences(1).Font
.Name = "黑体"
.Name = "Times New Roman"
.Bold = True
.Color = wdColorBrown '褐色
End With
'add
If f = 2 Then
i.Range.Characters.First.Select
Do While Selection Like "*[0-9]"
Selection.MoveEnd unit:=wdCharacter, Count:=1
Loop
Selection.Font.Name = "Arial"
Selection.Font.Bold = True
Selection.Characters.Last.Font.Name = "黑体"
End If
End If
s = 0: t = 0: f = 0: v = 0
Next
End Sub

复制代码

菜菜行者 · 发表于 2016-8-27 09:36

413191246se 发表于 2016-8-25 11:36
楼主说话不严密！每个段落包括一至多个句子，到底是查找句子还是段落呢？请参看我下面的代码：

不好意思，表述不直观，现附上图片和文档，请麻烦支支招，谢谢了！

标题.rar (10.93 KB, 下载次数: 14)
QQ截图20160827093312.png

菜菜行者 · 发表于 2016-8-27 09:37

413191246se 发表于 2016-8-25 11:36
楼主说话不严密！每个段落包括一至多个句子，到底是查找句子还是段落呢？请参看我下面的代码：

不好意思，文档我发在9楼了，谢谢！

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