Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

REM  *****  BASIC  *****
Option Explicit

Sub CrearHojaSegunColumna()
	Dim DocCalc As Object
	Dim Seleccion As Object
	Dim NombreNuevaHoja As String
	Dim HojasEnLibro As Object
	
	On Error Goto CONTROL_ERRORES
	DocCalc = ThisComponent
	Seleccion = DocCalc.getCurrentSelection()
	With Seleccion
		'Solo si es una sola celda
		If .supportsService("com.sun.star.sheet.SheetCell") Then
			'También If .getImplementationName() = "ScCellObj" Then
			'Si no es la columna A sale del procedimiento
			'En OOBasic las columnas y filas comienzan en 0 (cero)
			If .getCellAddress.Column <> 0 Then Exit Sub
			NombreNuevaHoja = .getString()
			'Si la celda está vacía sale del procedimiento
			If NombreNuevaHoja = "" Then Exit Sub
        NombreNuevaHoja = "Ficha Técnica " & NombreNuevaHoja
			HojasEnLibro = DocCalc.getSheets()
			With HojasEnLibro
				If Not .hasByName(NombreNuevaHoja) Then
					'Si no existe la insertamos al final
					.insertNewByName(NombreNuevaHoja, .getCount())
				Else
					MsgBox "Esta hoja ya existe", 16, "¡Atención!"
				End If
			End With
		End If
	End With
	Exit Sub
CONTROL_ERRORES:
	MsgBox "Se ha producido un error ...", 16, "¡Atención!"
End Sub