word怎么用宏吧作为“单独一行的”特定数字删除？

o0star0o

如图，有很多这种单独作为一行的数据，有“数字1-50”的单独为一行的，有“段落修改”文字单独为一样的，能通过宏实现把这种单独一行的字符都删了吗？
或者是单独一行不超过8个字符内的字符都删除（4个汉字占8个字符）

413191246se

1. Sub test删除单行字符()
   
2.     Dim i As Paragraph, j$
   
3.     With ActiveDocument
   
4.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
5.         .Select
   
6.         CommandBars.FindControl(ID:=122).Execute
   
7.         CommandBars.FindControl(ID:=123).Execute
   
8. 
   
9.         For Each i In .Paragraphs
   
10.             If Asc(i.Range) = 13 Then i.Range.Delete
    
11.         Next
    
12. 
    
13.         Do
    
14.             j = InputBox("请输入欲删除单行字符长度！(默认6字符删除4个汉字！输入较大数字可以删除所有单行字符！)", "删除单行字符", "6")
    
15.             If Len(j) = 0 Then End
    
16.             For Each i In .Paragraphs
    
17.                 With i.Range
    
18.                     If Len(.Text) < j Then
    
19.                         If .ComputeStatistics(1) = 1 Then .Delete
    
20.                     End If
    
21.                 End With
    
22.             Next
    
23.             If MsgBox("是否继续？", 4 + 16) = vbNo Then End
    
24.         Loop
    
25.     End With
    
26. End Sub

复制代码

继续写诗

413191246se 发表于 2019-6-6 02:53

你好，运行代码后提示If Asc(i.Range) = 13 Then i.Range.Delete中无法编辑Range。在几个文档中试验后发现在文档中有表格图片是都有报错，没有表格和图片的文档中能正常运行。
有解决办法吗？


刚刚试验又发现部分小的文档即使有表格图片偶尔也能执行。但是大文档就出现报错

小声说话666

413191246se 发表于 2019-6-6 02:53

首先感谢你的无私分享，抄了许多实用的代码。
以我的理解，这个代码有我想要的一部分效果。抄作业简单，改造代码已超出我的能力了。
请大神拨冗垂阅，赐代码为盼。
问题详见:
http://club.excelhome.net/thread-1532715-1-1.html
只是论坛ID级别低，尚不能发短信。 只好回贴呼叫大神了。