word宏 将以数字开头的段落最后增加*号

13907933959

duquancai 发表于 2016-6-21 17:35
'在数字开头的段落末尾加一个或者多个任意字符：
Sub 数字开头段尾加字符()
    Dim reg As Object, i  ...

前辈好！
经测试 OK了，感谢您的再次出手相助！前辈的这种不啬赐教的精神和深厚的功底实在令人佩服！谢谢前辈！下次有不懂之处再向前辈求教！

wordaaaaa

duquancai 发表于 2016-6-20 16:24
请测试：
Sub test()
    Dim S As Range, reg As Object

你好  能不能麻烦您看看这个问题  我等了4，5个小时了  也没人回答我  拜托拜托
http://club.excelhome.net/thread-1285211-1-1.html

lzr122

duquancai 发表于 2016-6-20 16:24
请测试：
Sub test()
    Dim S As Range, reg As Object

大神，如何将以数字开头的行删除怎么写？

413191246se

1. Sub test删除数字开头段落()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range Like "#*" Then i.Range.Delete
   
5.     Next
   
6. End Sub

复制代码