|
- Public Sub tt()
- Dim pg As Paragraph, i&, reg As Object, dic As Object
- Dim arr As Variant, n&, m&
- Set dic = CreateObject("scripting.dictionary")
- Set reg = CreateObject("vbscript.regexp")
- reg.Pattern = "^\d+\."
- arr = Split(Documents("药师审方技能培训荟萃--第四章--答案解析.docx").Content.Text, Chr(13))
- For i = 0 To UBound(arr)
- If Len(arr(i)) > 1 Then
- If reg.test(arr(i)) Then
- 'Set ms = reg.Execute(arr(i))
- n = Split(reg.Execute(arr(i))(0).Value, ".")(0)
- dic(n) = dic(n) & " " & arr(i)
- Else
- dic(n) = dic(n) & " " & arr(i)
- End If
- End If
- Next
- For Each pg In ThisDocument.Paragraphs
- If reg.test(pg.Range.Text) Then
- m = Split(reg.Execute(pg.Range.Text)(0).Value, ".")(0)
- If m > 1 Then
- pg.Range.InsertBefore (dic(m - 1) & Chr(13))
- End If
- End If
- Next
- ThisDocument.Range.InsertAfter (dic(n))
- End Sub
复制代码 |
|