1

Тема: Массивы в макросах

Как в макросах 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

2

Re: Массивы в макросах

Вождь пишет:

Кстати, как очистить заполненный массив Z() As Single, чтобы в нем не было записей? Я такой возможности в MS Visual Basic не нашел.

Может быть  Erase?