word 正则无果：将文档中以数字开头的段落依次录入数组

weiyingde

jiminyanyan 发表于 2017-5-25 17:18
http://club.excelhome.net/thread-1343056-1-1.html
和我的差不多吧。。。。

正是，我想借此练习一下dictionary的用法，不想出错，恳请你看看。
其实，dictionary，以前也用过，不过，理解不深，运用不熟，不想这次遭此麻烦。

小花鹿

duquancai 发表于 2017-5-24 21:44
Sub 将文档中以数字开头的文段依次录入数组()
    Dim doc As Document, j&, ksr$, x&, arr()
    Set do ...

用的着这么复杂吗？判断首字符是不是数字不就行了？
Sub test()
Dim ar(), n&, s, i&
s = ThisDocument.Range.Text
s = Split(s, Chr(13))
For i = 0 To UBound(s)
    If IsNumeric(Left(s(i), 1)) Then
        ReDim Preserve ar(n)
        ar(n) = s(i)
        n = n + 1
    End If
Next i
End Sub

weiyingde

小花鹿 发表于 2017-5-26 13:24
用的着这么复杂吗？判断首字符是不是数字不就行了？
Sub test()
Dim ar(), n&, s, i&

呵呵，没别的意思。
借此想练习一下数组、和字典在word中的运用，若以后程序过程中能用得着，也就没有白费劲了。