Тема: Массивы в макросах
Как в макросах MS Word определить, что массив пуст?
Я ничего другого, кроме обработки ошибки не придумал:
Public Function ArrayIsEmpty(ByRef A As Variant) As Boolean
' возвращает True, если в массиве A нет элементов или это не массив
' !!! LBound(Array()) = 0
ArrayIsEmpty = False
On Error Resume Next
If UBound(A) < 0 Then ArrayIsEmpty = True
End Function
Public Sub Проверка_массива()
Dim Z() As Single
If ArrayIsEmpty(Z) Then
MsgBox "Массив пуст"
Else
MsgBox "В массиве есть данные"
End If
End SubМожет, есть другой способ?
Кстати, как очистить заполненный массив Z() As Single, чтобы в нем не было записей? Я такой возможности в MS Visual Basic не нашел.
Макросы под заказ и готовый пакет - mtdmacro.ru
