word如何查找字数小于n的段落？

b41xnimi

段落比如下面这种，最好能直接全部选中字数小于n的段落，步骤越少越好

一

一二

1234567890

一二三

1234

一二三四五

一二三四五六

一二三四五六七

12345678

一二三四五六七八九

一二三四五六七，八九十

413191246se

请 楼主 备份后应用下面的宏：

1. Sub aaaa循环遍历所有段落_删除字数小于N的段落()
   
2.     Dim n$
   
3.     n = InputBox("请输入数字！", "删除字数小于N的段落", "30")
   
4.     If n = "" Then Exit Sub
   
5. 
   
6.     Dim i As Paragraph
   
7.     For Each i In ActiveDocument.Paragraphs
   
8.         If Len(i.Range) <= n Then i.Range.Font.ColorIndex = wdRed
   
9.     Next
   
10. 
    
11.     Selection.HomeKey 6
    
12. 
    
13.     If MsgBox("是否删除红色段落？", 4 + 16) = vbNo Then End
    
14. 
    
15.     For Each i In ActiveDocument.Paragraphs
    
16.         If i.Range.Font.ColorIndex = wdRed Then i.Range.Delete
    
17.     Next
    
18. End Sub

复制代码

b41xnimi

413191246se 发表于 2020-10-12 00:50
请 楼主 备份后应用下面的宏：

谢谢，但是不是要删除，是要选中以便进一步编辑，比如使用通配符在段首增加字符，或者段尾增加粘贴板的内容等等