如何将二维数组传递给过程，并在函数内部对其进行修改？ VBA

Question

使用 VBA 创建 Word 宏遇到以下问题：

我正在尝试使用函数填充二维数组。问题是当我尝试将二维数组传递给函数时，出现以下错误：

类型不匹配的数组或预期的用户定义类型

我的宏：

Sub Tests()
'
' Tests Macro
'
Dim paragraphs(21, 1) As String
populate_paragraph (paragraphs)
End Sub

调用过程：

Sub populate_paragraph(replacers() As String)

ReDim replacers(21, 1) As String

replacers(0, 0) = "%HEADER%"
replacers(1, 0) = "%DESIGN_BRIEF_PARAGRAPH%"
...
replacers(21, 0) = "%DISCLAIMER_PARAGRAPH%"

replacers(0, 1) = create_header
replacers(1, 1) = create_design_brief_paragraph
...
replacers(21, 1) = create_disclaimer_paragraph

End Sub

如果我没有将二维数组传递给过程，而是尝试使用函数的返回值对其进行初始化，则会收到以下错误：

无法分配给数组

本例代码为：

Sub Tests()
'
' Tests Macro
'
Dim paragraphs(21, 1) As String
paragraphs = populate_paragraph
End Sub

调用函数：

Function populate_paragraph() As String

Dim replacers(21, 1) As String

replacers(0, 0) = "%HEADER%"
replacers(1, 0) = "%DESIGN_BRIEF_PARAGRAPH%"
...
replacers(21, 0) = "%DISCLAIMER_PARAGRAPH%"

replacers(0, 1) = create_header
replacers(1, 1) = create_design_brief_paragraph
...
replacers(21, 1) = create_disclaimer_paragraph

populate_paragraph = replacers

End Function

感谢您阅读我的问题并提供帮助

Answer 1

这很棘手......

您必须传递数组ByRef，因为您正在调用的过程中对其进行更改，而这不是函数，因此您可以将其传回。在这个特定的例子中，VBA 坚持传递值ByRef。

与此相关的是您将要传递的参数放在括号中：(paragraphs())。由于参数被传递给“方法”而不是函数，因此您不应使用括号。如果你这样做了，你就是在告诉 VBA 你想传递参数ByVal。

以下作品：

Sub Tests()
  Dim paragraphs(21, 1) As String

  populate_paragraph paragraphs()
End Sub

Sub populate_paragraph(ByRef replacers() As String)

  ReDim replacers(21, 1) As String
 'etc.

End Sub