On Mon, 2005-02-14 at 13:17 +0100, Filip Ruymen wrote:
> Hi,
>
> I just started using Openoffice, and I have 1 macro that is not
> working under OO.
> Since I know nothing about scripting, is it possible that anyone can
> convert it for me so that it works with OpenOffice?
>
> The Macro I use is the following
> [Macro]
> Sub Colors()
> 'ActiveSheet.Unprotect Password:=""
> Application.ScreenUpdating = False
> Range("B4:AF15").Select
> For Each cell In Selection
> Select Case UCase(cell.Value)
> Case "B"
> cell.Interior.ColorIndex = 1
> Case "F"
> cell.Interior.ColorIndex = 45
> Case "SV"
> cell.Interior.ColorIndex = 4
> Case "V"
> cell.Interior.ColorIndex = 33
> Case "Z"
> cell.Interior.ColorIndex = 26
> Case "R"
> cell.Interior.ColorIndex = 36
> Case Else
> cell.Interior.ColorIndex = 50
> End Select
> Next cell
> Range("K21").Select
> Application.ScreenUpdating = False
> 'ActiveSheet.Protect Password:="", DrawingObjects:=True,
> Contents:=True, Scenarios:=True
> End Sub
> [/macro]
>
That looks like VB, is it? If yes then I suggest that you use
http://documentation.openoffice.org/HOW_TO/various_topics/VbaStarBasicXref.pdf
and the accompanying examples zipfile to port your macro.
--
Documentation Co-Lead
PLEASE - keep list traffic on the list. Email sent directly to me may
be ignored utterly.
"Dinna meddle wi' things ye ken nuthin' aboot!"
J.Herriot
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
