如何给每个单词自动加序号

zzpsx

如何给每个单词自动标序号.rar (5.67 KB, 下载次数: 39)

2018-2-3 15:23 上传

点击文件名下载附件

http://cloud.video.taobao.com/play/u/700066814/p/1/e/6/t/1/50075246233.mp4

duquancai

1. Sub test()
   
2.     Dim n&, d As Document, r As Range
   
3.     Set d = ActiveDocument
   
4.     With d.Content.Find
   
5.         Do While .Execute("<[a-zA-Z]{1,}>", , , -1)
   
6.             n = n + 1
   
7.             With .Parent
   
8.                 .InsertBefore n & "."
   
9.                 .Start = .End
   
10.             End With
    
11.         Loop
    
12.     End With
    
13. End Sub

复制代码

wdpfox

杜老师真是热心的高手！

zzpsx

duquancai 发表于 2018-2-3 22:54

多谢大神的超级厉害代码。太赞了。

tangqingfu

duquancai 发表于 2018-2-3 22:54

感谢杜老师分享，学习ing.