VBA编程实现文档中形如（23）的序号重新排序。

xiaoxiaoshitou · 发表于 2016-12-2 18:50

求助，将文档中序号重新排序。如
更改前：
（1）
（6）
（999）
更改后：
（1）
（2）
（3）

duquancai · 发表于 2016-12-2 19:07

莫名其妙！！！问题也描述不清楚，最重要的是无附件说明！！！

xiaoxiaoshitou · 发表于 2016-12-2 20:27

duquancai 发表于 2016-12-2 19:07
莫名其妙！！！问题也描述不清楚，最重要的是无附件说明！！！

不好意思没说清楚。我的意思是更改前序号没有规律，如图。我希望通过编程将序号按从小到大排列，如图更改后。能提供一下思路吗

duquancai · 发表于 2016-12-2 21:29

xiaoxiaoshitou 发表于 2016-12-2 20:27
不好意思没说清楚。我的意思是更改前序号没有规律，如图。我希望通过编程将序号按从小到大排列，如图更改 ...

你不模拟附件，我模拟了一个文件，请看链接：
http://club.excelhome.net/thread-1315541-1-1.html

413191246se · 发表于 2016-12-4 12:49

呵呵！不敢在杜先生的专门帖子中发，在这里发一个自己琢磨的小宏，功能一样，语句少了一些，也许有缺陷，用的是《循环遍历段落法》：

Sub 自动编号标题5()
Dim i As Paragraph, j As Long
For Each i In ActiveDocument.Paragraphs
If i.Range Like "（#*）*" And i.Range.Information(wdWithInTable) = False Then
j = j + 1
ActiveDocument.Range(Start:=i.Range.Start + 1, End:=i.Range.Start + InStr(i.Range, "）") - 1) = j
End If
Next
End Sub

复制代码

xiaoxiaoshitou · 发表于 2016-12-4 15:18

duquancai 发表于 2016-12-2 21:29
你不模拟附件，我模拟了一个文件，请看链接：
http://club.excelhome.net/thread-1315541-1-1.html

谢谢了。又学了不少东西

		自动登录	找回密码
密码			免费注册

[求助] VBA编程实现文档中形如（23）的序号重新排序。