Quiero utilizar esta macro en Openoffice, pero no se nada de programacion en VisualBasic, la instale como macro, pero me marca errores de Syntaxis.
El codigo es:
Podria alguien ayudarme a hacer que esta macro funcione en Openoffice Calc ?FUNCTION CONVIERTENUMLETRA(NUMERO)
DIM TEXTO
DIM MILLONES
DIM MILES
DIM CIENTOS
DIM DECIMALES
DIM CADENA
DIM CADMILLONES
DIM CADMILES
DIM CADCIENTOS
TEXTO = NUMERO
TEXTO = FORMATNUMBER(TEXTO, 2)
TEXTO = RIGHT(SPACE(14) & TEXTO, 14)
MILLONES = MID(TEXTO, 1, 3)
MILES = MID(TEXTO, 5, 3)
CIENTOS = MID(TEXTO, 9, 3)
DECIMALES = MID(TEXTO, 13, 2)
CADMILLONES = CONVIERTECIFRA(MILLONES, 1)
CADMILES = CONVIERTECIFRA(MILES, 1)
CADCIENTOS = CONVIERTECIFRA(CIENTOS, 0)
IF TRIM(CADMILLONES) > "" THEN
IF TRIM(CADMILLONES) = "UN" THEN
CADENA = CADMILLONES & " MILLON"
ELSE
CADENA = CADMILLONES & " MILLONES"
END IF
END IF
IF TRIM(CADMILES) > "" THEN
CADENA = CADENA & " " & CADMILES & " MIL"
END IF
IF TRIM(CADMILES & CADCIENTOS) = "UN" THEN
CADENA = CADENA & "UNO PESOS" & DECIMALES & "/100" & " M.N. "
ELSE
IF MILES & CIENTOS = "000000" THEN
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
ELSE
CADENA = CADENA & " " & TRIM(CADCIENTOS) & " PESOS " & DECIMALES & "/100" & " M.N. "
END IF
END IF
CONVIERTENUMLETRA = TRIM(CADENA)
END FUNCTION
FUNCTION CONVIERTECIFRA(TEXTO, SW)
DIM CENTENA
DIM DECENA
DIM UNIDAD
DIM TXTCENTENA
DIM TXTDECENA
DIM TXTUNIDAD
CENTENA = MID(TEXTO, 1, 1)
DECENA = MID(TEXTO, 2, 1)
UNIDAD = MID(TEXTO, 3, 1)
SELECT CASE CENTENA
CASE "1"
TXTCENTENA = "CIEN"
IF DECENA & UNIDAD <> "00" THEN
TXTCENTENA = "CIENTO"
END IF
CASE "2"
TXTCENTENA = "DOSCIENTOS"
CASE "3"
TXTCENTENA = "TRESCIENTOS"
CASE "4"
TXTCENTENA = "CUATROCIENTOS"
CASE "5"
TXTCENTENA = "QUINIENTOS"
CASE "6"
TXTCENTENA = "SEISCIENTOS"
CASE "7"
TXTCENTENA = "SETECIENTOS"
CASE "8"
TXTCENTENA = "OCHOCIENTOS"
CASE "9"
TXTCENTENA = "NOVECIENTOS"
END SELECT
SELECT CASE DECENA
CASE "1"
TXTDECENA = "DIEZ"
SELECT CASE UNIDAD
CASE "1"
TXTDECENA = "ONCE"
CASE "2"
TXTDECENA = "DOCE"
CASE "3"
TXTDECENA = "TRECE"
CASE "4"
TXTDECENA = "CATORCE"
CASE "5"
TXTDECENA = "QUINCE"
CASE "6"
TXTDECENA = "DIECISEIS"
CASE "7"
TXTDECENA = "DIECISIETE"
CASE "8"
TXTDECENA = "DIECIOCHO"
CASE "9"
TXTDECENA = "DIECINUEVE"
END SELECT
CASE "2"
TXTDECENA = "VEINTE"
IF UNIDAD <> "0" THEN
TXTDECENA = "VEINTI"
END IF
CASE "3"
TXTDECENA = "TREINTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "TREINTA Y "
END IF
CASE "4"
TXTDECENA = "CUARENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "CUARENTA Y "
END IF
CASE "5"
TXTDECENA = "CINCUENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "CINCUENTA Y "
END IF
CASE "6"
TXTDECENA = "SESENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "SESENTA Y "
END IF
CASE "7"
TXTDECENA = "SETENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "SETENTA Y "
END IF
CASE "8"
TXTDECENA = "OCHENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "OCHENTA Y "
END IF
CASE "9"
TXTDECENA = "NOVENTA"
IF UNIDAD <> "0" THEN
TXTDECENA = "NOVENTA Y "
END IF
END SELECT
IF DECENA <> "1" THEN
SELECT CASE UNIDAD
CASE "1"
IF SW THEN
TXTUNIDAD = "UN"
ELSE
TXTUNIDAD = "UNO"
END IF
CASE "2"
TXTUNIDAD = "DOS"
CASE "3"
TXTUNIDAD = "TRES"
CASE "4"
TXTUNIDAD = "CUATRO"
CASE "5"
TXTUNIDAD = "CINCO"
CASE "6"
TXTUNIDAD = "SEIS"
CASE "7"
TXTUNIDAD = "SIETE"
CASE "8"
TXTUNIDAD = "OCHO"
CASE "9"
TXTUNIDAD = "NUEVE"
END SELECT
END IF
CONVIERTECIFRA = TXTCENTENA & " " & TXTDECENA & TXTUNIDAD
END FUNCTION
Gracias