Макросы в OpenOfice

Аватар пользователя kbu

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

Аватар пользователя Телепат_

Re: Макросы в OpenOfice

Вы видно что-то не договариваете. Вероятно вы открываете документы M$O в ООо.
макросы OOo != макросам vba.
неспешно переписываем их...
изучаем community.i-rs.ru

Аватар пользователя kbu

Re: Макросы в OpenOfice

вот в етом коде выполнение макроса спотыкается и грит "ожидается 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

Аватар пользователя Телепат_

Re: Макросы в OpenOfice

Дядя! Вы читать умеете???
Много ли кода выполнится, если вы засунете код от фортрана в компилятор паскаля????
Скачайте книжки по макросам в ООО и будет щастье.

Аватар пользователя karlson

Re: Макросы в OpenOfice

это не fortran. это - vba.
посему:

  1. вложения sub не допускаются.
  2. вероятно не допускаются русские имена.

после исправления компилируется нормально.

Аватар пользователя телепат_

Re: Макросы в OpenOfice

Для тех, кто в танке:
В ООО нет VBA.
Потрудитеь нажать клавишу f1 в ООО и почитать все про макросы ООО

RSS-материал