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

pipiludaxian

我很菜了，谢谢大家鼓励啊。
loquat对多种情况考虑的周全，值得大家学习啊

pipiludaxian

这是改进的程序
Sub get_specitied_apar()
Dim apar As Paragraph
For Each apar In ActiveDocument.Paragraphs
aparlong = Len(apar.Range)
    If aparlong < 10 And aparlong > 1 And apar.Range.Information(wdWithInTable) = False And apar.Range.InlineShapes.Count = 0 Then
        With apar
            .Range.font.Color = wdColorBlue
            .Range.ParagraphFormat.Style = "标题 1"
        End With

    End If
Next
End Sub

loquat

pipiludaxian 发表于 2014-9-21 11:27
这是改进的程序
Sub get_specitied_apar()
Dim apar As Paragraph

兄台谦虚了。
其实这些也只是我能想到的情况了，我没什么排版经验，估计还可能会有其他的例外情况。。。

pbdq

雨吁 发表于 2014-9-18 16:55
先用“^13[一-﨩]{1,10}^13”查找，再继续在查找到的范围内查找“[一-﨩]{1,10}^13”。记得选择“突出显示” ...

回复是为了收藏.............!

遥控器78

loquat 发表于 2014-9-19 14:39
10个汉字
Sub MeThee()
Dim aCount&, i&, aPara As Paragraph, aText$

我运行后所有的文字都变成标题1的样式了，不知道哪里出错了。