Помогите с макросами под OenOffice

[Magik]

Не могу написать макрос под Open Office для копирования столбцов и строк из одного докеумента в другой, сделал макрос в Excel, но он в OpenOffice не пашет. Вот макрос в Excel :

Attribute VB_Name = "Module6"
Sub Макрос1()
Attribute Макрос1.VB_Description = "Макрос записан 19.08.2009 (Admin)"
Attribute Макрос1.VB_ProcData.VB_Invoke_Func = "ф\n14"
'
' Макрос1 Макрос
' Макрос записан 19.08.2009 (Admin)
'
' Сочетание клавиш: Ctrl+ф
'
Windows("Ведомость остатков.xls").Activate
Columns("A:A").Select
Selection.Copy
Windows("Товарные позиции операции № 640245N1043 от 04.08.xls").Activate
ActiveSheet.Paste
Windows("Ведомость остатков.xls").Activate
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Товарные позиции операции № 640245N1043 от 04.08.xls").Activate
Range("B1").Select
ActiveSheet.Paste
Windows("Ведомость остатков.xls").Activate
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Товарные позиции операции № 640245N1043 от 04.08.xls").Activate
Range("C1").Select
ActiveSheet.Paste
Windows("Ведомость остатков.xls").Activate
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Товарные позиции операции № 640245N1043 от 04.08.xls").Activate
Range("R1").Select
ActiveSheet.Paste
Range("A1:E2313").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).L ineStyle = xlNone
Selection.Borders(xlDiagonalUp).Lin eStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizonta l)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:A").ColumnWidth = 10.71
Columns("A:A").EntireColumn.AutoFit
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Sheets("Лист2").Select
Rows("1:2").Select
Selection.Copy
Sheets("Ведомость остатков").Select
Range("A1").Select
ActiveSheet.Paste
Columns("D:D").ColumnWidth = 8.29
Columns("D:D").EntireColumn.AutoFit
Columns("D:D").Select
Windows("Ведомость остатков.xls").Activate
Windows("Товарные позиции операции № 640245N1043 от 04.08.xls").Activate
Sheets("Лист2").Select
Range("A6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Ведомость остатков").Select
Range("A5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"Ф.И.О. считавшего________________________ Подпись____________________"
Range("A6").Select
ActiveWindow.SmallScroll Down:=-27
Range("E8").Select
ActiveCell.FormulaR1C1 = "=RC[13]-RC[-1]"
Range("E8").Select
Selection.AutoFill Destination:=Range("E8:E2471"), Type:=xlFillDefault
Range("E8:E2471").Select
Range("A1").Select
End Sub

[Screame]

Насколько я знаю OpenOffice calc, и Excel абсолютно разные вещи советую для начала просто поискать в google разницу между OpenOffice и Excel, а просто скопировав макрос у Вас ничего не получится. И вообще это форум Microsoft Office Excel а не OpenOffice calc!!!

[Magik]

мОГЛИ БЫ И ПОМОЧЬ!

[viter.alex]

Макрорекордер есть в Calc? Если есть, то просто нужно провести все эти действия и все.

[Magik]

Я проводил запись, но в конечном результе он выполняет только последнее действие, а все остальное не выполныется