利用正则对象及字典对word文档进行排序

duquancai

利用正则对象及字典对word文档进行排序
文档中包含“嵌入式”图片、表格及文字对象，详见附件

1. Sub 排序()
   
2.     Dim mt, oRng As Range, n&, m&, str$, Unm, k()
   
3.     Dim d, Ydoc As Document, Mdoc As Document
   
4.     Set Ydoc = ThisDocument
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     Set reg = CreateObject("vbscript.regexp")
   
7.     reg.Global = True: reg.IgnoreCase = False: reg.MultiLine = True
   
8.     reg.Pattern = "^[(（]\s*(\d+)\s*[)）](?:(?!^[(（]\s*\d+\s*[)）]).)+"
   
9.     str = Replace(Ydoc.Content, Chr(7), "")
   
10.     For Each mt In reg.Execute(str)
    
11.         Unm = mt.submatches(0)
    
12.         m = mt.FirstIndex: n = mt.Length
    
13.         Set oRng = Ydoc.Range(m, m + n)
    
14.         Set d(Unm) = oRng
    
15.     Next
    
16.     k = d.keys: WordBasic.SortArray k()
    
17.     Set Mdoc = Documents.Add
    
18.     For i = 0 To d.Count - 1
    
19.         With Mdoc.Content
    
20.             .Collapse 0
    
21.             .FormattedText = d(CStr(k(i))).FormattedText
    
22.         End With
    
23.     Next
    
24. End Sub

复制代码

zhanglei1371

请教下，Replace(Ydoc.Content, Chr(7), "")是什么意思？有何作用

pbdq

zhanglei1371 发表于 2017-1-5 22:50
请教下，Replace(Ydoc.Content, Chr(7), "")是什么意思？有何作用

替换文档里面ascii码是 7 的字符串为空？？

wdpfox

学习了，多谢杜老师慷慨分享好代码！
　　　　　　Oooo
　　　　　　(___)
　　oooO  　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

我的电子表1516

顶起来，好资料，楼主辛苦

praijna

感恩老师的分享！

文化属性666

楼主的代码太厉害了