怎样用WORD正则表达式查找出每段小于10个汉字的段落

panshihz

问题：
怎样用WORD正则表达式查找出每段小于10个汉字的段落，我的目的是将这些正文“标题”，查找替换成一级标题
如下面的正文标题：生命的源泉-太阳、金星的世界、地球的起源。。。

－－－文章如下－－－
生命的源泉-太阳
   现在我们来说，。。。后面正文
   接着，。。。后面正文2

金星的世界
正文 。。

地球的起源
正文 。。
最大行星木星
正文 。。。

日月星辰xu

可能要用引文目录。      不知妥否

panshihz

引文目录？
不懂
师兄能尝试一下不

雨吁

先用“^13[一-﨩]{1,10}^13”查找，再继续在查找到的范围内查找“[一-﨩]{1,10}^13”。记得选择“突出显示”和“使用通配符”。

loquat

4楼好方法啊

pipiludaxian

Sub get_specitied_apar()
Dim apar As Paragraph
For Each apar In ActiveDocument.Paragraphs
    If Len(apar.Range) < 10 Then
        With apar
            .Range.font.Color = wdColorBlue
            .Range.ParagraphFormat.Style = "标题 1"
        End With
        
    End If
Next
End Sub

loquat

pipiludaxian 发表于 2014-9-19 13:54
Sub get_specitied_apar()
Dim apar As Paragraph
For Each apar In ActiveDocument.Paragraphs

10个汉字
Sub MeThee()
Dim aCount&, i&, aPara As Paragraph, aText$
With ActiveDocument
aCount = .Paragraphs.Count
For i = 1 To aCount
    Set aPara = .Paragraphs(i)
    If aPara.Range.Information(wdWithInTable) = False Then  '不在表格中
        aText = myRegExp(aPara.Range.Text, "[^一-﨩]")
        'If Len(aText) < 10 And Len(aText) > 0 Then aPara.Range.Style = wdStyleHeading1
        If Len(aText) < 10 And Len(aText) > 0 Then aPara.Range.Style = .Styles("标题 1")   '汉字个数(1,10]
    End If
Next
End With
End Sub
Public Function myRegExp(ByVal str$, ByVal aPattern$) As Long
On Error Resume Next
With CreateObject("Vbscript.RegExp")
    .Global = True
    .Pattern = aPattern
    myRegExp = .Replace(str, "")
End With
End Function

panshihz

感恩大家~
@ 雨吁 的办法，我不知怎么用，试了几次，不知如何操作
@ pipiludaxian ,我的第一次在WORD用VBS,用了你的代码后，哇，太赞了，以后要重视VBS了~
同时也感谢@loquat，你的代码很严谨！

loquat

注意，表格，空行，嵌入式图片，少于10个的任意字符也会设置标题
不可否认皮皮鲁大仙真的是高手

zjgwzj

总结：两次查找的方法比较麻烦，VBA的好处是修改样式比较方便，几位参与讨论的朋友都是高手，今天尝到了不少知识。