在VBA中，如何读取数组书签？

Dim bookmarkRange As Range
Set bookmarkRange = ActiveDocument.Bookmarks("ArrayBookmark").Range

Sub ReadArrayBookmark()
    Dim bookmarkRange As Range
    Set bookmarkRange = ActiveDocument.Bookmarks("ArrayBookmark").Range
    
    Dim numRows As Long
    Dim numCols As Long
    numRows = bookmarkRange.Rows.Count
    numCols = bookmarkRange.Columns.Count
    
    Dim dataArray() As Variant
    ReDim dataArray(1 To numRows, 1 To numCols)
    
    Dim row As Long
    Dim col As Long
    For row = 1 To numRows
        For col = 1 To numCols
            dataArray(row, col) = bookmarkRange.Cells(row, col).Value
        Next col
    Next row
    
    ' 现在可以使用dataArray中的值进行后续操作
    ' 例如，可以将数组值输出到调试窗口
    For row = 1 To numRows
        For col = 1 To numCols
            Debug.Print dataArray(row, col)
        Next col
    Next row
End Sub