- Сообщения
- 1 833
- Реакции
- 302
Досталось "по наследству" много файлов, во многих не понятно для чего созданы слои и объекты размещены хаотично на этих слоев.
Есть и однослойные документы.
Сделал макрос в секции ThisMacrosStorage, который при открытии считает кол-во слоев и если слоев больше одного - выдает инфу о кол-ве слоев
В таком виде он работает правильно, но не могу понять, почему даже если слой один - выдает сообщение что их два. Именно поэтому сделал i=-1, изначально было 0. Откуда берется еще один слой?
Есть и однослойные документы.
Сделал макрос в секции ThisMacrosStorage, который при открытии считает кол-во слоев и если слоев больше одного - выдает инфу о кол-ве слоев
Код:
Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
Dim lrs As Layer, i As Integer
i = -1
For Each lrs In ActiveDocument.ActivePage.Layers
i = i + 1
Next lrs
If i > 1 Then MsgBox ("Кол-во слоев " + CStr(i))
End Sub
В таком виде он работает правильно, но не могу понять, почему даже если слой один - выдает сообщение что их два. Именно поэтому сделал i=-1, изначально было 0. Откуда берется еще один слой?