Подскажите плиз,как разрулить чтобы в OpenOfice работали макросы?просто в вЕндах работают без проблем,а вот в OpenOfice вылазят ошибки,что Бейски ожидает какой-то символ...Кто что знает?

• Макросы в OpenOffice,Андрей, 23:04 , 17-Апр-09
  • Макросы в OpenOffice,kbu, 12:19 , 18-Апр-09
    • Макросы в OpenOffice,Миха, 17:39 , 10-Июн-09
• Макросы в OpenOffice,поц, 19:20 , 01-Мрт-12

покажите код не работающий в OpenOffice под Linux и работающий в OpenOffice Windows
а то у вас голове такой туман, что не возможно читать ваши мысли.

>покажите код не работающий в OpenOffice под Linux и работающий в OpenOffice
>Windows
>а то у вас голове такой туман, что не возможно читать ваши
>мысли.

вот в етом коде выполнение макроса спотыкается и грит "ожидается Sub"

что в нем не так??

Attribute VBA_ModuleType=VBAModule
Sub Модуль4
Sub Media()
Rem '
Rem ' Макрос5 Макрос
Rem ' Макрос записан 18.04.03 (Alexey V.)
Rem '

Rem '

     bbb = InputBox("Как называется ролик?")
    
     Sheets("Отчет").Select
     Range("C13:AO43").Select
     Selection.ClearContents
    
     Sheets("T").Select
     Cells(107, 1).Formula = bbb
     If Cells(108, 1) = 0 Then
         Sheets("Отчет").Select
         MsgBox ("Ролика с именем " & bbb & " нет")
         Exit Sub
     End If
     aaa = "=" & bbb
     Sheets("H").Select
     Selection.AutoFilter Field:=1
     Columns("A:A").Select
     Selection.Find(What:="###@@@", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False).Activate
     ActiveCell.Offset(-1, 1).Select
     Range(ActiveCell, Cells(2, 32)).Select
     Selection.AutoFilter Field:=1, Criteria1:=aaa, Operator:=xlAnd
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("Отчет").Select
     Range("C13").Select
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=True
     Range("M8").Activate
     ActiveCell.Formula = bbb
     Sheets("H").Select
     ActiveSheet.ShowAllData
     Sheets("Отчет").Select
End Sub
Sub InsertZ()
Rem '
Rem ' InsertZ Макрос
Rem ' Макрос записан 20.04.03 (Alexey V.)
Rem '
Rem ' Сочетание клавиш: Ctrl+z
Rem '
     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
         False, Transpose:=False
End Sub

End Sub

>Sub Модуль4
> Sub Media()
>...
> End Sub
> Sub InsertZ()
>...
> End Sub
>
>End Sub

А зачем нужен Модуль4?
Если из него вызываются другие подпрограммы, то и закрыть Sub нужно до определения следующего.

> Подскажите плиз,как разрулить чтобы в OpenOfice работали макросы?просто в вЕндах работают
> без проблем,а вот в OpenOfice вылазят ошибки,что Бейски ожидает какой-то символ...Кто
> что знает?

Дуракам закон не писан...