数组已经标注尺寸 - 类模块

Question

出于某些技术原因，我们不能在单词中使用样式。为了加快反复应用全局属性，我创建了一个可以从简单的xml样式表中读取的类。该表包含不同的＆＃34;段落。＆＃34;每个段落只存储我们最常使用的段落属性。

我习惯使用C ++，我可以使用动态内存，而且我试图复制动态分配的数组的行为。但是，当我尝试重新调暗时，我收到错误消息＆＃34; Array arleady dimensioned。＆＃34;

我对MSDN的研究表明，为了ReDim，数组必须是全局的或者在＆＃34;一般声明上下文中＃34;这让我觉得可能根本无法在课堂上进行。

摘自MSDN：

  

＆＃34;您只能在程序级别使用ReDim。因此，申报   变量的上下文必须是一个过程;它不能成为一个来源   文件，命名空间，接口，类，结构，模块或   。块＆＃34;

我试图搜索堆栈溢出＆＃34;已经标注了Word VBA阵列＆＃34;并且完成了所有3页的结果，但没有用。

private type pStyle 'Definition removed because it's not needed
private Paragraphs(0) As pStyle 'Initially an empty array of paragraphs

稍后我有以下功能

Public Function AddEmpty()

'Create space
count = count + 1
ReDim Preserve Paragraphs(count)
AddEmpty = count
End Function

如果有任何想法，请告诉我。我宁愿不必估计＆＃34;每个样式表我们需要的段落样式的数量，因为每个文件都不同。

Answer 1

Private Paragraphs(0) As ...

这不是一个空数组，而是一个固定长度数组，其中包含 1 元素。

对于动态数组 - 您将稍后重新定义 - 只需将其声明为：

Private Paragraphs() As ...

Answer 2

Dim numbers(10) As Integer
MsgBox (UBound(numbers))
ReDim numbers(4)
MsgBox (UBound(numbers))

上面的代码将引发数组已维数。
我们可以做到

ReDim numbers(10) As Integer
MsgBox (UBound(numbers))
ReDim numbers(4)
MsgBox (UBound(numbers))