Apache OpenOffice Wiki - User contributions [en]

ES/Manuales/GuiaAOO/TemasAvanzados/Macros/StarBasic/TrabajandoConCalc/TrabajandoConHojas

2015-04-28T10:53:21Z

Salva:

{{DISPLAYTITLE:Trabajando con hojas}}
{{ES/AyudaWiki/Borrador}}

== Accediendo a las hojas ==
Para acceder a todas las hojas de un documento de hoja de calculo, usamos.

<source lang="oobas">
Sub TodasLasHojas1()
Dim oDoc As Object
Dim oHojas As Object

'Acceso al documento desde donde se llama a esta macro
oDoc = ThisComponent
'Nos aseguramos de que sea una hoja de calculo
If oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
'Referencia a TODAS las hojas del documento
oHojas = oDoc.getSheets()
'Mostramos cuantas son
MsgBox oHojas.getCount()
Else
MsgBox "No es un documento de hoja de calculo"
End If

End Sub
</source>

Asegúrate de llamar a la macro anterior desde una hoja de calculo, si estas usando el archivo especial Mis Macros, te recomiendo siempre verificar que {{TextColor|Blue|ThisComponent}}, apunta efectivamente a un documento de hoja de calculo como se vio más arriba, de ahora en adelante, daré por hecho que lo sabes y tú determinaras si haces la validación o no.

Podemos acceder a los nombres de todas las hojas.

<source lang="oobas">
Sub TodasLasHojas2()
Dim oDoc As Object
Dim oHojas As Object
Dim mNombresHojas() As String
Dim sMensaje As String

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Obtenemos una matriz con los nombres de todas las hojas
mNombresHojas() = oHojas.getElementNames()

'Construimos el mensaje
sMensaje = "El archivo " & FileNameOutOfPath( oDoc.getLocation() ) & _
Chr(13) & "tiene las siguientes hojas" & Chr(13) & Chr(13)
sMensaje = sMensaje & Join( mNombresHojas(), Chr(13) )

'Lo mostramos
MsgBox sMensaje

End Sub
</source>

La función {{TextColor|Blue|FileNameOutOfPath}}, viene incorporada en OpenOffice.org y nos devuelve solo el nombre del archivo de la ruta pasada.

También podemos mostrar los nombres de las hojas una a una.

<source lang="oobas">
Sub TodasLasHojas3()
Dim oDoc As Object
Dim oHojas As Object
Dim mNombresHojas() As String
Dim co1 As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Obtenemos una matriz con los nombres de todas las hojas
mNombresHojas() = oHojas.getElementNames()

For co1 = LBound( mNombresHojas() ) To UBound( mNombresHojas() )
MsgBox mNombresHojas(co1)
Next

End Sub
</source>

Podemos devolver solo la hoja que nos interesa por su nombre.

<source lang="oobas">
Sub UnaHoja1()
Dim oDoc As Object
Dim oHoja As Object

oDoc = ThisComponent
'Accedemos a una hoja por su nombre
oHoja = oDoc.getSheets.getByName("Datos Agosto")

'Solo comprobamos que es la hoja correcta
MsgBox oHoja.getName()

End Sub
</source>

Pero si la hoja no existe, la macro anterior te dará un error, el método {{TextColor|Blue|hasByName}} es muy útil para saber si una hoja existe, lo cual es indispensable para acceder a ella.

<source lang="oobas">
Sub UnaHoja2()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim sNombreHoja As String

oDoc = ThisComponent
oHojas = oDoc.getSheets()

sNombreHoja = "Datos Agosto"

'Comprobamos que la hoja exista para poder acceder a ella
If oHojas.hasByName( sNombreHoja ) Then
'Accedemos a una hoja por su nombre
oHoja = oHojas.getByName( sNombreHoja )
MsgBox oHoja.getName() & " - existe en el documento"
Else
MsgBox "La hoja -" & sNombreHoja & "- no existe"
End If

End Sub
</source>

Nota que el método {{TextColor|Blue|hasByName}} es un método del conjunto de las hojas ({{TextColor|Blue|getSheets}}) y te devolverá verdadero ({{TextColor|Blue|True}}) en caso de que la hoja exista y falso ({{TextColor|Blue|False}}) en caso de que no. Este método no distingue entre mayúsculas y minúsculas.

Podemos acceder a una hoja por su índice, recuerda que los índices en OpenOffice.org empiezan en cero, en las hojas, la numeración empieza de izquierda a derecha.

<source lang="oobas">
Sub UnaHoja3()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Accedemos a la hoja por el indice
oHoja = oHojas.getByIndex( 1 )
MsgBox oHoja.getName()

End Sub
</source>

Del mismo modo que por el nombre, si tratas de acceder a una hoja por un índice que no exista, te dará un error, lo podemos comprobar asegurándonos que el numero de índice a consultar siempre es menor al total de las hojas.

<source lang="oobas">
Sub UnaHoja4()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim iNumeroHoja As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()
iNumeroHoja = 1

'Comprobamos que la hoja exista
If iNumeroHoja < oHojas.getCount() Then
'Accedemos a la hoja por el índice
oHoja = oHojas.getByIndex( iNumeroHoja )
MsgBox oHoja.getName()
Else
MsgBox "Numero de hoja no existe"
End If

End Sub
</source>

Por lo que podemos acceder a cada hoja de un documento, también por su índice.

<source lang="oobas">
Sub TodasLasHojas4()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim co1 As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Nota que el limite, es el total de hojas menos uno, por que comienza en 0
For co1 = 0 To oHojas.getCount()-1
oHoja = oHojas.getByIndex( co1 )
MsgBox oHoja.getName()
Next

End Sub
</source>

Toma en cuenta que si mueves una hoja de posición en relación con las demás, su índice cambiara, no así su nombre, pero el nombre es susceptible de ser cambiado por el usuario, así que siempre comprueba que exista una hoja antes de intentar acceder a ella.

Otra opción es devolver la hoja activa.

<source lang="oobas">
Public Sub HojaActiva()
Dim oHoja As Object

'Hacemos una referencia a la hoja activa
oHoja = ThisComponent.getCurrentController.getActiveSheet()
Msgbox oHoja.getName()

End Sub
</source>

Ahora, ya puedes crearte tus útiles funciones para trabajar con hojas, por ejemplo, una función que nos devuelva falso o verdadero según exista o no el nombre de la hoja pasado como argumento, una primera aproximación podría ser.

<source lang="oobas">
Option Explicit

Sub SaberSiExisteHoja()

MsgBox ExisteHoja( "Hoja3" )

End Sub

'Saber si una hoja existe
Function ExisteHoja(ByVal NombreHoja As String) As Boolean
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
ExisteHoja = oHojas.hasByName(NombreHoja)

End Function
</source>

Podemos hacerla incluso más genérica pasándole el documento donde se desea comprobar la existencia de la hoja y comprobando que sea una hoja de calculo.

<source lang="oobas">
Option Explicit

Sub SaberSiExisteHoja2()

MsgBox ExisteHoja2( ThisComponent, "Hoja3" )

End Sub

'Saber si una hoja existe
Function ExisteHoja2(Documento As Object, NombreHoja As String) As Boolean
Dim oHojas As Object

'Si no es una hoja de calculo devuelve falso (False)
If Documento.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
oHojas = Documento.getSheets()
ExisteHoja2 = oHojas.hasByName(NombreHoja)
End If

End Function
</source>

Ahora devolvemos la hoja.

<source lang="oobas">
Option Explicit

Sub DevuelveReferenciaAHoja1()
dim oHoja As Object

oHoja = DevuelveHoja1( "Datos Enero" )
If IsNull(oHoja) Then
MsgBox "La hoja no existe"
Else
MsgBox oHoja.getName()
End If

End Sub

'Saber si existe la hoja y regresarla, si llamas a esta función,
'tienes que verificar que se devolvió algo con IsNull
Function DevuelveHoja1(ByVal NombreHoja As String) As Object
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
If oHojas.hasByName(NombreHoja) Then
DevuelveHoja1 = oHojas.getByName(NombreHoja)
End If

End Function
</source>

De nuevo, si lo deseas, puedes pasarle el documento del cual te interesa devolver la hoja, observa como comprobamos también que la hoja exista, esto lo puedes hacer directamente o usando la función creada más arriba, queda a tu criterio.

<source lang="oobas">
Sub DevuelveReferenciaAHoja2()
dim oHoja As Object

oHoja = DevuelveHoja2( ThisComponent, "Datos Enero" )
If IsNull(oHoja) Then
MsgBox "La hoja no existe"
Else
MsgBox oHoja.getName()
End If

End Sub

'Saber si existe la hoja y regresarla, si llamas a esta función,
'tienes que verificar que se devolvió algo con IsNull
Function DevuelveHoja2(Documento As Object, NombreHoja As String) As Object
Dim oHojas As Object

If Documento.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
oHojas = Documento.getSheets()
If oHojas.hasByName(NombreHoja) Then
DevuelveHoja2 = oHojas.getByName(NombreHoja)
End If
End If

End Function
</source>

== Insertando hojas ==
Para insertar nuevas hojas, usamos el método: {{TextColor|Blue|insertNewByName(Nombre, Posición)}}, en donde necesitamos el nombre de la nueva hoja a insertar y la posición donde la queremos, la siguiente macro agrega una hoja nueva al inicio de las demás.

<source lang="oobas">
Sub InsertarNuevaHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
oHojas.insertNewByName("Datos Sep", 0)

End Sub
</source>

Ejecuta la macro anterior dos veces y notaras que te dará un error, pues no puedes tener dos hojas con el mismo nombre, entonces, tenemos que verificar si la hoja existe o no.

<source lang="oobas">
Sub InsertarNuevaHoja2()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String

'Solicitamos un nombre para la nueva hoja
sNombre = Trim(InputBox("Nombre de la nueva hoja"))
'Verificamos que no este vacio
If sNombre <> "" Then
'Referencia a todas las hojas
oHojas = ThisComponent.getSheets()
'Verificamos si ya existe la hoja
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos el inicio
oHojas.insertNewByName(sNombre, 0)
Else
MsgBox "Esta hoja ya existe"
End If

'Referencia a la nueva hoja o a la existente
oHoja = ThisComponent.getSheets.getByName(sNombre)
'La activamos
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Observa que si la hoja ya existe, solo hacemos una referencia a ella. La ultima linea para activar la hoja no es necesaria para que la manipules, solo en caso de que quieras que el usuario haga o manipule algo en ella, si no, puedes omitirla. Es sumamente frecuente en programadores noveles, querer “activar” toda hoja que se quiera manipular, esto no es necesariamente así, de hecho, la mayor parte de las veces, con la referencia es suficiente.

También podemos agregar la hoja al final de todas las demás.

<source lang="oobas">
Sub InsertarNuevaHoja3()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String

sNombre = Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <> "" Then
oHojas = ThisComponent.getSheets()
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos al final
oHojas.insertNewByName( sNombre, oHojas.getCount() )
End If
oHoja = ThisComponent.getSheets.getByName(sNombre)
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Observa entonces que el argumento posición puede tomar valores desde 0 y hasta el total de hojas devuelto por {{TextColor|Blue|getCount()}} pero incluso si es mayor a este valor, no te dará error y la insertara al final de las demás hojas. Si quieres insertar la hoja antes o después de la hoja activa, primero tienes que encontrar el índice de la hoja activa.

<source lang="oobas">
Sub IndiceHojaActiva()
Dim co1 As Integer
Dim oHojaActiva As Object
dim oHoja As Object

oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()

For co1 = 0 To ThisComponent.getSheets.getCount() - 1
oHoja = ThisComponent.getSheets.getByIndex(co1)
If oHoja.getName() = oHojaActiva.getName() then
MsgBox "El indice de la hoja activa es: " & co1
Exit For
End If
Next

End Sub
</source>

Que podemos convertir a una función.

<source lang="oobas">
Function BuscarIndiceHoja(ByVal NombreHoja As String) As Integer
Dim co1 As Integer
dim oHoja As Object

For co1 = 0 To ThisComponent.getSheets.getCount() - 1
oHoja = ThisComponent.getSheets.getByIndex(co1)
If oHoja.getName() = NombreHoja then
BuscarIndiceHoja = co1
Exit Function
End If
Next
BuscarIndiceHoja = -1

End Function
</source>

Observa que si no la encuentra el valor devuelto es -1, lo cual hay que evaluar en caso necesario. Para insertar antes de la hoja activa usamos.

<source lang="oobas">
Sub InsertarNuevaHoja4()
Dim oHojas As Object
Dim oHoja As Object
Dim oHojaActiva As Object
Dim sNombre As String
Dim pos As Integer

sNombre = Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <> "" Then
oHojas = ThisComponent.getSheets()
oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
If Not oHojas.hasByName(sNombre) Then
'Buscamos el índice de la hoja activa
pos = BuscarIndiceHoja(oHojaActiva.getName())
oHojas.insertNewByName( sNombre, pos )
End If
oHoja = ThisComponent.getSheets.getByName(sNombre)
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Para insertar después de la hoja activa, solo sumas uno al valor devuelto por la función {{TextColor|Blue|BuscarIndiceHoja}}.

<source lang="oobas">
pos = BuscarIndiceHoja(oHojaActiva.getName()) + 1
</source>

Podemos aventurar una primera versión de una función genérica para insertar una nueva hoja de calculo donde quieras.

<source lang="oobas">
'Como función regresamos la nueva hoja insertada o la existente en su caso
'Posición: 1 = Inicio
' 2 = Final
' 3 = Antes de la hoja activa
' 4 = Después de la hoja activa
Function getNuevaHoja(NombreHoja As String, Posicion As Integer) As Object
Dim oHojas As Object
Dim oHojaActiva As Object
Dim iPos As Integer

If NombreHoja <> "" Then
oHojas = ThisComponent.getSheets()
oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
Select Case Posicion
Case 1 : iPos = 0
Case 2 : iPos = oHojas.getCount()
Case 3 : iPos = oHojaActiva.getRangeAddress.Sheet
Case 4 : iPos = oHojaActiva.getRangeAddress.Sheet + 1
Case Else : iPos = 0
End Select
If Not oHojas.hasByName(NombreHoja) Then
oHojas.insertNewByName(NombreHoja, iPos)
End If
getNuevaHoja = ThisComponent.getSheets.getByName(NombreHoja)
End If

End Function
</source>

Nota como estamos obteniendo el índice de la hoja activa ({{TextColor|Blue|oHoja.getRangeAddress.Sheet}}), con lo cual nos evitamos tener que hacer un ciclo por las hojas del documento. Puedes mejorar esta función para insertar la hoja en cualquier otro documento, así como ingeniártelas para pedirle al usuario el número de hojas nuevas que quiera insertar e insertarlas por supuesto, esa, es tu tarea.

== Borrando hojas ==
Para borrar hojas, usamos el método {{TextColor|Blue|removeByName(Nombre)}}, donde '''''Nombre''''' es el nombre de la hoja que queremos borrar, no esta de más recomendarte usar con cuidado el borrado de hojas, aunque algo que me gusta mucho de OpenOffice.org, es que muchas de las acciones que hacemos por código, son susceptibles de deshacerse de forma normal con la barra de herramientas o con CTRL+Z, el borrado de hojas es una de ellas, compruébalo.

<source lang="oobas">
Sub BorrarHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
'Borramos la hoja por su nombre
oHojas.removeByName( "Hoja11" )

End Sub
</source>

Por supuesto no puedes borrar una hoja que no exista, así que verifícalo.

<source lang="oobas">
Sub BorrarHoja2()
Dim oHojas As Object
Dim sNombre As String

sNombre = Trim( InputBox( "Nombre de la hoja a borrar" ))
If sNombre <> "" Then
oHojas = ThisComponent.getSheets()
If oHojas.hasByName( sNombre ) Then
oHojas.removeByName( sNombre )
Else
MsgBox "La hoja no existe"
End If
End If

End Sub
</source>

Puedes borrar la hoja activa.

<source lang="oobas">
Sub BorrarHojaActiva()
Dim oHojas As Object
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
oHojas = ThisComponent.getSheets()
oHojas.removeByName( oHojaActiva.getName() )

End Sub
</source>

Ejecuta la macro anterior hasta que no quede ni una, claro, no te dejara por que un documento de hoja de calculo por lo menos debe de tener una hoja, para evitar el error que te da al tratar de borrar la ultima hoja, valida que siempre quede más de una.

<source lang="oobas">
Sub BorrarHoja3()
Dim oHojas As Object
Dim sNombre As String

sNombre = Trim( InputBox( "Nombre de la hoja a borrar" ))
If sNombre <> "" Then
oHojas = ThisComponent.getSheets()
If oHojas.hasByName( sNombre ) And oHojas.getCount()>1 Then
oHojas.removeByName( sNombre )
Else
MsgBox "La hoja no existe o solo queda una"
End If
End If

End Sub
</source>

== Moviendo hojas ==
Para mover hojas usamos el método {{TextColor|Blue|moveByName(NombreHoja, PosicionNueva)}}, donde '''''NombreHoja''''' tiene que ser el nombre de una hoja existente.

<source lang="oobas">
Sub MoverHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
'Movemos la hoja especificada al inicio
oHojas.moveByName( "Hoja2", 0 )

End Sub
</source>

Ahora, la movemos al final.

<source lang="oobas">
Sub MoverHoja2()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
'Movemos la hoja especificada al final
oHojas.moveByName( "Hoja2", oHojas.getCount() )

End Sub
</source>

Si usas una versión anterior a la 3.1, ten cuidado con mover tus hojas no más allá de la ultima hoja, pues te puede provocar un error en toda la aplicación, este error (bug) se reportó en su momento ([http://www.openoffice.org/issues/show_bug.cgi?id=92477 http://www.openoffice.org/issues/show_bug.cgi?id=92477]), y ha sido arreglado a partir de esta versión (3.1), aun así, usa siempre {{TextColor|Blue|getCount()}} para asegurarte.

Vamos a hacer algo muy divertido, como ya sabemos obtener los nombres e índices de cada hoja, y ahora hemos aprendido a mover hojas, hagamos una macro que nos ordene alfabéticamente nuestras hojas, para ello nos apoyaremos en una función que ordena la matriz que le pasemos.

<source lang="oobas">
Sub PruebaOrdenar1()
Dim mDatos()

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
mDatos() = Array("5","l","o","f","e","v","y","d","h","u",)

'Mostramos los datos desordenados
MsgBox Join( mDatos(), Chr(13) )

'Ordenamos los datos
mDatos() = BubbleSortList( mDatos() )

'Mostramos los datos ordenados
MsgBox Join( mDatos(), Chr(13) )

End Sub
</source>

La función {{TextColor|Blue|BubbleSortList}}, viene incorporada a las macros de OpenOffice.org y usa el método de burbuja para ordenar la lista pasada, no es el algoritmo más eficiente, pero en listas pequeñas y dada su sencillez de implementación es perfectamente válida para nuestros fines, si quieres saber más de este algoritmo visita: [http://es.wikipedia.org/wiki/Bubblesort http://es.wikipedia.org/wiki/Bubblesort]

También puedes crearte tu versión de este algoritmo, aquí esta la mía, puedes ordenar de forma ascendente o descendente.

<source lang="oobas">
Sub PruebaOrdenar2()
Dim mDatos()

mDatos() = Array("5","l","o","f","e","v","y","d","h","u",)
'Mostramos los datos desordenados
MsgBox Join( mDatos(), Chr(13) )

'Ordenamos los datos
Call OrdenarBurbuja( mDatos(), 1 )

'Mostramos los datos ordenados
MsgBox Join( mDatos(), Chr(13) )

End Sub

' Datos = matriz de datos a ordenar
' Orden = 1 ascendente
' 2 descendente
Sub OrdenarBurbuja(ByRef Datos() As Variant, ByVal Orden As Integer)
Dim NumDatos As Long
Dim co1 As Long, co2 As Long

NumDatos = UBound(Datos)
For co1 = 1 To NumDatos
For co2 = NumDatos To co1 Step -1
If Orden = 1 Then
If Datos(co2) < Datos(co2 - 1) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
Else
If Not (Datos(co2) < Datos(co2 - 1)) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
End If
Next co2
Next co1

End Sub

'Macro para intercambiar un par de valores
Sub Intercambio(ByRef Dato1 As Variant, ByRef Dato2 As Variant)
Dim sTmp As Variant

sTmp = Dato1
Dato1 = Dato2
Dato2 = sTmp

End Sub
</source>

Ahora si, nuestra macro para ordenar hojas en acción, puedes usar la función o macro que prefieras para ordenar la matriz de nombres obtenida, incluso, crearte tu propia versión si así lo prefieres.

<source lang="oobas">
Option Explicit

'Ordenamos las hojas por orden alfabético
Sub OrdenarHojas()
Dim oHojas As Object
Dim mNombres() As Variant
Dim aTmp As Variant
Dim co1 As Integer
Dim oHoja As Object

'Referencia a todas las hojas del documento
oHojas = ThisComponent.getSheets()

'Matriz con los nombres de todas las hojas
mNombres() = oHojas.getElementNames()

'Ordenamos la matriz
Call OrdenarBurbuja( mNombres(), 1 )

'Recorremos la matriz
For co1 = LBound( mNombres() ) To UBound( mNombres() )

'El índice en la matriz, sera el mismo de la posición
oHojas.moveByName( mNombres(co1), co1 )

Next co1

End Sub
</source>

== Copiando hojas ==
Para copiar hojas usamos el método {{TextColor|Blue|copyByName ( NombreHoja, NombreNuevo, Posicion )}} de la siguiente manera.

<source lang="oobas">
Sub CopiarHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()

'Copiamos la "hoja2" como "Nueva Hoja2" al inicio
oHojas.copyByName( "Hoja2", "Nueva Hoja2", 0 )

End Sub
</source>

Por supuesto el nombre de la hoja a copiar debe de existir y el nombre nuevo de la hoja no debe existir, lo mejor, es evaluarlo antes.

<source lang="oobas">
Sub CopiarHoja2()
Dim oHojas As Object
Dim sNombre As String
Dim sNombreNuevo As String

sNombre = "Datos"
sNombreNuevo = "Datos nuevos"

oHojas = ThisComponent.getSheets()

'Solo copia la hoja, si la hoja a copiar existe y el nombre nuevo no existe
If oHojas.hasByName(sNombre) And (Not oHojas.hasByName(sNombreNuevo)) Then
oHojas.copyByName( sNombre, sNombreNuevo, oHojas.getCount() )
Else
MsgBox "No se copió la hoja"
End If

End Sub
</source>

Podemos intentar copiar una hoja y asegurarnos de que el nombre no exista, tomando como base el nombre actual de la hoja, por ejemplo.

<source lang="oobas">
Sub CopiarHojaActiva()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String
Dim sNombre2 As String
Dim co1 As Long

'Referencia a todas las hoja
oHojas = ThisComponent.getSheets()

'Nombre de la hoja activa
sNombre = ThisComponent.getCurrentController.getActiveSheet.getName()

'Contador para construir el nuevo nombre
co1 = 1

'El nuevo nombre es igual mas un guión bajo y un numero
sNombre2 = sNombre & "_" & Format(co1)

'Hace el ciclo mientras el nuevo nombre exista
Do While oHojas.hasByName( sNombre2 )
'Si ya existe incrementamos el contador
co1 = co1 + 1
'y construimos el nuevo nombre
sNombre2 = sNombre & "_" & Format(co1)
Loop

'Sale del ciclo cuando el nuevo nombre no exista, entonces
'podemos copiar la hoja al final (o donde quieras)
oHojas.copyByName(sNombre, sNombre2, oHojas.getCount())

'Referencia a la nueva hoja
oHoja = ThisComponent.getSheets.getByName(sNombre2)

'Y la activamos
ThisComponent.getCurrentController.setActiveSheet(oHoja)

End Sub
</source>

Solo te resta preguntarle al usuario cuantas nuevas hojas quiere e insertar ese número de hojas nuevas, pero esa, es tu tarea.

== Renombrando hojas ==
Para renombrar hojas usamos el método {{TextColor|Blue|setName}}, de la siguiente manera.

<source lang="oobas">
Sub CambiarNombreHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
'Cambiamos el nombre de la hoja “Hola”, por “Prueba”
oHojas.getByName("Hola").setName( "Prueba" )

End Sub
</source>

También puedes usar el índice para referirte a la hoja.

<source lang="oobas">
Sub CambiarNombreHoja2()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
oHojas.getByIndex( 0 ).setName( "Gastos" )

End Sub
</source>

Es recomendable validar que la hoja a renombrar exista y que el nuevo nombre no.

<source lang="oobas">
Sub CambiarNombreHoja3()
Dim oHojas As Object
Dim sNombreActual As String
Dim sNombreNuevo As String

sNombreActual = "Resumen"
sNombreNuevo = "Terminado"
oHojas = ThisComponent.getSheets()

'Validamos que la hoja exista y el nuevo nombre no
If oHojas.hasByName(sNombreActual) And (Not oHojas.hasByName(sNombreNuevo)) Then
oHojas.getByName( sNombreActual ).setName( sNombreNuevo )
Else
MsgBox "No se renombro la hoja"
End If

End Sub
</source>

Solo para divertirnos, cambiamos los nombres de las hojas por números.

<source lang="oobas">
Sub CambiarNombreHoja4()
Dim oHojas As Object
Dim co1 As Integer

oHojas = ThisComponent.getSheets()

For co1 = 1 To oHojas.getCount()
oHojas.getByIndex( co1-1 ).setName( co1 )
Next

End Sub
</source>

Ahora por letras, el código siguiente podría fallarte si tienes más de 25 hojas en tu documento, tu tarea es decirme ¿porqué? y corregirlo, en algunos casos, “el cambio de nombre no tendrá efecto”, también, te toca averiguar ¿porqué?

<source lang="oobas">
Sub CambiarNombreHoja5()
Dim oHojas As Object
Dim co1 As Integer

oHojas = ThisComponent.getSheets()

For co1 = 1 To oHojas.getCount()
oHojas.getByIndex( co1-1 ).setName( Chr( co1+64 ) )
Next

End Sub
</source>

O los meses del año:

<source lang="oobas">
Sub CambiarNombreHoja6()
Dim oHojas As Object
Dim co1 As Integer
Dim Limite As Byte
Dim sMes As String

oHojas = ThisComponent.getSheets()

'Para que solo cambie las primeras 12
If oHojas.getCount() > 12 Then
Limite = 12
Else
'O las que haya si son menos de 12
Limite = oHojas.getCount()
End If

For co1 = 1 To Limite
'Obtenemos el nombre del mes
sMes = Format( DateSerial(Year(Date),co1,1) ,"mmmm")
oHojas.getByIndex( co1-1 ).setName( sMes )
Next

End Sub
</source>

Te queda de tarea lograr completar los meses para que sean los doce del año, es decir, tienes que insertar los meses que te hagan falta si el documento tiene menos de las hojas necesarias, si tiene más de doce borra las sobrantes.

== Ocultando y mostrando hojas ==
Mostrar y ocultar hojas es muy sencillo, solo hay que establecer su propiedad {{TextColor|Blue|isVisible}} en verdadero (True) o falso (False) según se requiera de la siguiente manera,

<source lang="oobas">
Sub OcultarHoja1()
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()

oHojaActiva.isVisible = False

End Sub
</source>

La macro anterior te ocultara la hoja activa, si la ejecutas varias veces te ira ocultando tus hojas hasta que solo quede una, si solo hay una no te dará error, pero la dejará visible por que, como sabes, tiene que haber al menos una hoja visible en un documento de Calc. También puedes ocultar una hoja por medio de su índice, como en.

<source lang="oobas">
Sub OcultarHoja2()
Dim oHoja As Object

oHoja = ThisComponent.getSheets.getByIndex(1)

oHoja.isVisible = False

End Sub
</source>

Toma en cuenta que: el índice de la hoja “debe” existir, sino te dará un error, así mismo, si ocultas una hoja, esta no cambia de índice por lo que puedes usar el mismo para acceder a ella, aunque este oculta, la siguiente macro alterna entre mostrar y ocultar la primer hoja del documento.

<source lang="oobas">
Sub OcultarHoja3()
Dim oHoja As Object

oHoja = ThisComponent.getSheets.getByIndex(0)

oHoja.isVisible = Not oHoja.isVisible

End Sub
</source>

Como ya habrás intuido, para mostrar una hoja oculta simplemente hay que establecer esta propiedad en verdadero (True).

<source lang="oobas">
Sub OcultarHoja4()
Dim oHoja As Object

oHoja = ThisComponent.getSheets.getByIndex(1)

oHoja.isVisible = True

End Sub
</source>

El siguiente código te oculta todas las hojas, excepto la hoja activa.

<source lang="oobas">
Sub OcultarHoja5()
Dim oHojaActiva As Object
Dim oHojas As Object
Dim co1 As Long

oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
oHojas = ThisComponent.getSheets()
For co1 = 0 To oHojas.getCount() - 1
If oHojas.getByIndex(co1).getName <> oHojaActiva.getName() Then
oHojas.getByIndex(co1).isVisible = False
End If
Next

End Sub
</source>

Tu tarea es hacer la función inversa, muestra todas las hojas ocultas.

== Protección y desprotección de hojas ==
Para terminar este capítulo, veamos como proteger una hoja, es decir, establecer una contraseña para evitar modificaciones a la misma, además, recuerda que para que la protección de celdas individuales sea efectiva, la hoja debe estar protegida. Para proteger una hoja, usamos el método {{TextColor|Blue|Protect}}, pasándole como argumento, la contraseña que queremos establecer, por supuesto, puedes pasarle una contraseña vacía, con lo que la hoja no estará muy protegida que digamos, pero créeme, muchos usuarios no saben desproteger una hoja, aun sin contraseña.

<source lang="oobas">
Sub ProtegerHoja1()
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController().getActiveSheet()
'Para que veas que si me ocurren otras contraseñas
oHojaActiva.Protect( "letmein" )

End Sub
</source>

Y para desproteger, usamos el método {{TextColor|Blue|unProtect}}, si la hoja tiene contraseña hay que pasársela como argumento, si no es correcta, el método no te devolverá ningún error como en la interfaz del usuario que te avisa que la contraseña es incorrecta, para saber si tuvo éxito o no la desprotección, hay que verificar la propiedad {{TextColor|Blue|isProtected}}, si es verdadera ({{TextColor|Blue|True}}) la hoja sigue protegida, si es falsa ({{TextColor|Blue|False}}), la hoja esta desprotegida.

<source lang="oobas">
Sub ProtegerHoja2()
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController().getActiveSheet()
If oHojaActiva.isProtected Then
MsgBox "La hoja esta protegida"
'Intentamos desprotegerla
oHojaActiva.unProtect( "letmein" )
'Verificamos si tuvo éxito la desprotección
If oHojaActiva.isProtected Then
MsgBox "La contraseña no es correcta"
Else
MsgBox "Hoja desprotegida correctamente"
End If
Else
MsgBox "La hoja NO esta protegida"
End If

End Sub
</source>

Te queda de tarea modificar la macro para solicitar al usuario la contraseña, verificar si es correcta o no y darle solo tres intentos para ingresarla. Fácil, ¿verdad?. Como comentarios finales, si intentas proteger una hoja que ya tiene contraseña, no obtendrás ningún error, pero la hoja permanecerá con la contraseña original, para cambiarla, primero tienes que desprotegerla y después cambiarla. Cuando proteges una hoja e intentas hacer modificaciones a esta, por ejemplo, escribir en una celda, tampoco retornará ningún error, pero no será efectiva la modificación, procura usar la propiedad para saber si una hoja esta o no protegida ({{TextColor|Blue|isProtected}}), para actuar en consecuencia.
{{ES/Foro|macros}}

[[Category:ES]][[Category:Manuales]][[Category:ES/StarBasic]]

ES/Manuales/GuiaAOO/TemasAvanzados/Macros/StarBasic/TrabajandoConCalc/TrabajandoConHojas

2015-04-28T10:47:36Z

Salva: /* Insertando hojas */

{{DISPLAYTITLE:Trabajando con hojas}}
{{ES/AyudaWiki/Borrador}}

== Accediendo a las hojas ==
Para acceder a todas las hojas de un documento de hoja de calculo, usamos.

<source lang="oobas">
Sub TodasLasHojas1()
Dim oDoc As Object
Dim oHojas As Object

'Acceso al documento desde donde se llama a esta macro
oDoc = ThisComponent
'Nos aseguramos de que sea una hoja de calculo
If oDoc.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
'Referencia a TODAS las hojas del documento
oHojas = oDoc.getSheets()
'Mostramos cuantas son
MsgBox oHojas.getCount()
Else
MsgBox "No es un documento de hoja de calculo"
End If

End Sub
</source>

Asegúrate de llamar a la macro anterior desde una hoja de calculo, si estas usando el archivo especial Mis Macros, te recomiendo siempre verificar que {{TextColor|Blue|ThisComponent}}, apunta efectivamente a un documento de hoja de calculo como se vio más arriba, de ahora en adelante, daré por hecho que lo sabes y tú determinaras si haces la validación o no.

Podemos acceder a los nombres de todas las hojas.

<source lang="oobas">
Sub TodasLasHojas2()
Dim oDoc As Object
Dim oHojas As Object
Dim mNombresHojas() As String
Dim sMensaje As String

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Obtenemos una matriz con los nombres de todas las hojas
mNombresHojas() = oHojas.getElementNames()

'Construimos el mensaje
sMensaje = "El archivo " & FileNameOutOfPath( oDoc.getLocation() ) & _
Chr(13) & "tiene las siguientes hojas" & Chr(13) & Chr(13)
sMensaje = sMensaje & Join( mNombresHojas(), Chr(13) )

'Lo mostramos
MsgBox sMensaje

End Sub
</source>

La función {{TextColor|Blue|FileNameOutOfPath}}, viene incorporada en OpenOffice.org y nos devuelve solo el nombre del archivo de la ruta pasada.

También podemos mostrar los nombres de las hojas una a una.

<source lang="oobas">
Sub TodasLasHojas3()
Dim oDoc As Object
Dim oHojas As Object
Dim mNombresHojas() As String
Dim co1 As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Obtenemos una matriz con los nombres de todas las hojas
mNombresHojas() = oHojas.getElementNames()

For co1 = LBound( mNombresHojas() ) To UBound( mNombresHojas() )
MsgBox mNombresHojas(co1)
Next

End Sub
</source>

Podemos devolver solo la hoja que nos interesa por su nombre.

<source lang="oobas">
Sub UnaHoja1()
Dim oDoc As Object
Dim oHoja As Object

oDoc = ThisComponent
'Accedemos a una hoja por su nombre
oHoja = oDoc.getSheets.getByName("Datos Agosto")

'Solo comprobamos que es la hoja correcta
MsgBox oHoja.getName()

End Sub
</source>

Pero si la hoja no existe, la macro anterior te dará un error, el método {{TextColor|Blue|hasByName}} es muy útil para saber si una hoja existe, lo cual es indispensable para acceder a ella.

<source lang="oobas">
Sub UnaHoja2()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim sNombreHoja As String

oDoc = ThisComponent
oHojas = oDoc.getSheets()

sNombreHoja = "Datos Agosto"

'Comprobamos que la hoja exista para poder acceder a ella
If oHojas.hasByName( sNombreHoja ) Then
'Accedemos a una hoja por su nombre
oHoja = oHojas.getByName( sNombreHoja )
MsgBox oHoja.getName() & " - existe en el documento"
Else
MsgBox "La hoja -" & sNombreHoja & "- no existe"
End If

End Sub
</source>

Nota que el método {{TextColor|Blue|hasByName}} es un método del conjunto de las hojas ({{TextColor|Blue|getSheets}}) y te devolverá verdadero ({{TextColor|Blue|True}}) en caso de que la hoja exista y falso ({{TextColor|Blue|False}}) en caso de que no. Este método no distingue entre mayúsculas y minúsculas.

Podemos acceder a una hoja por su índice, recuerda que los índices en OpenOffice.org empiezan en cero, en las hojas, la numeración empieza de izquierda a derecha.

<source lang="oobas">
Sub UnaHoja3()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Accedemos a la hoja por el indice
oHoja = oHojas.getByIndex( 1 )
MsgBox oHoja.getName()

End Sub
</source>

Del mismo modo que por el nombre, si tratas de acceder a una hoja por un índice que no exista, te dará un error, lo podemos comprobar asegurándonos que el numero de índice a consultar siempre es menor al total de las hojas.

<source lang="oobas">
Sub UnaHoja4()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim iNumeroHoja As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()
iNumeroHoja = 1

'Comprobamos que la hoja exista
If iNumeroHoja < oHojas.getCount() Then
'Accedemos a la hoja por el índice
oHoja = oHojas.getByIndex( iNumeroHoja )
MsgBox oHoja.getName()
Else
MsgBox "Numero de hoja no existe"
End If

End Sub
</source>

Por lo que podemos acceder a cada hoja de un documento, también por su índice.

<source lang="oobas">
Sub TodasLasHojas4()
Dim oDoc As Object
Dim oHojas As Object
Dim oHoja As Object
Dim co1 As Integer

oDoc = ThisComponent
oHojas = oDoc.getSheets()

'Nota que el limite, es el total de hojas menos uno, por que comienza en 0
For co1 = 0 To oHojas.getCount()-1
oHoja = oHojas.getByIndex( co1 )
MsgBox oHoja.getName()
Next

End Sub
</source>

Toma en cuenta que si mueves una hoja de posición en relación con las demás, su índice cambiara, no así su nombre, pero el nombre es susceptible de ser cambiado por el usuario, así que siempre comprueba que exista una hoja antes de intentar acceder a ella.

Otra opción es devolver la hoja activa.

<source lang="oobas">
Public Sub HojaActiva()
Dim oHoja As Object

'Hacemos una referencia a la hoja activa
oHoja = ThisComponent.getCurrentController.getActiveSheet()
Msgbox oHoja.getName()

End Sub
</source>

Ahora, ya puedes crearte tus útiles funciones para trabajar con hojas, por ejemplo, una función que nos devuelva falso o verdadero según exista o no el nombre de la hoja pasado como argumento, una primera aproximación podría ser.

<source lang="oobas">
Option Explicit

Sub SaberSiExisteHoja()

MsgBox ExisteHoja( "Hoja3" )

End Sub

'Saber si una hoja existe
Function ExisteHoja(ByVal NombreHoja As String) As Boolean
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
ExisteHoja = oHojas.hasByName(NombreHoja)

End Function
</source>

Podemos hacerla incluso más genérica pasándole el documento donde se desea comprobar la existencia de la hoja y comprobando que sea una hoja de calculo.

<source lang="oobas">
Option Explicit

Sub SaberSiExisteHoja2()

MsgBox ExisteHoja2( ThisComponent, "Hoja3" )

End Sub

'Saber si una hoja existe
Function ExisteHoja2(Documento As Object, NombreHoja As String) As Boolean
Dim oHojas As Object

'Si no es una hoja de calculo devuelve falso (False)
If Documento.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
oHojas = Documento.getSheets()
ExisteHoja2 = oHojas.hasByName(NombreHoja)
End If

End Function
</source>

Ahora devolvemos la hoja.

<source lang="oobas">
Option Explicit

Sub DevuelveReferenciaAHoja1()
dim oHoja As Object

oHoja = DevuelveHoja1( "Datos Enero" )
If IsNull(oHoja) Then
MsgBox "La hoja no existe"
Else
MsgBox oHoja.getName()
End If

End Sub

'Saber si existe la hoja y regresarla, si llamas a esta función,
'tienes que verificar que se devolvió algo con IsNull
Function DevuelveHoja1(ByVal NombreHoja As String) As Object
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
If oHojas.hasByName(NombreHoja) Then
DevuelveHoja1 = oHojas.getByName(NombreHoja)
End If

End Function
</source>

De nuevo, si lo deseas, puedes pasarle el documento del cual te interesa devolver la hoja, observa como comprobamos también que la hoja exista, esto lo puedes hacer directamente o usando la función creada más arriba, queda a tu criterio.

<source lang="oobas">
Sub DevuelveReferenciaAHoja2()
dim oHoja As Object

oHoja = DevuelveHoja2( ThisComponent, "Datos Enero" )
If IsNull(oHoja) Then
MsgBox "La hoja no existe"
Else
MsgBox oHoja.getName()
End If

End Sub

'Saber si existe la hoja y regresarla, si llamas a esta función,
'tienes que verificar que se devolvió algo con IsNull
Function DevuelveHoja2(Documento As Object, NombreHoja As String) As Object
Dim oHojas As Object

If Documento.supportsService("com.sun.star.sheet.SpreadsheetDocument") Then
oHojas = Documento.getSheets()
If oHojas.hasByName(NombreHoja) Then
DevuelveHoja2 = oHojas.getByName(NombreHoja)
End If
End If

End Function
</source>

== Insertando hojas ==
Para insertar nuevas hojas, usamos el método: {{TextColor|Blue|insertNewByName(Nombre, Posición)}}, en donde necesitamos el nombre de la nueva hoja a insertar y la posición donde la queremos, la siguiente macro agrega una hoja nueva al inicio de las demás.

<source lang="oobas">
Sub InsertarNuevaHoja1()
Dim oHojas As Object

oHojas = ThisComponent.getSheets()
oHojas.insertNewByName("Datos Sep", 0)

End Sub
</source>

Ejecuta la macro anterior dos veces y notaras que te dará un error, pues no puedes tener dos hojas con el mismo nombre, entonces, tenemos que verificar si la hoja existe o no.

<source lang="oobas">
Sub InsertarNuevaHoja2()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String

'Solicitamos un nombre para la nueva hoja
sNombre <nowiki>=</nowiki> Trim(InputBox("Nombre de la nueva hoja"))
'Verificamos que no este vacio
If sNombre <nowiki><></nowiki> "" Then
'Referencia a todas las hojas
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
'Verificamos si ya existe la hoja
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos el inicio
oHojas.insertNewByName(sNombre, 0)
Else
MsgBox "Esta hoja ya existe"
End If

'Referencia a la nueva hoja o a la existente
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByName(sNombre)
'La activamos
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Observa que si la hoja ya existe, solo hacemos una referencia a ella. La ultima linea para activar la hoja no es necesaria para que la manipules, solo en caso de que quieras que el usuario haga o manipule algo en ella, si no, puedes omitirla. Es sumamente frecuente en programadores noveles, querer “activar” toda hoja que se quiera manipular, esto no es necesariamente así, de hecho, la mayor parte de las veces, con la referencia es suficiente.

También podemos agregar la hoja al final de todas las demás.

<source lang="oobas">
Sub InsertarNuevaHoja3()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String

sNombre <nowiki>=</nowiki> Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <nowiki><></nowiki> "" Then
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos al final
oHojas.insertNewByName( sNombre, oHojas.getCount() )
End If
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByName(sNombre)
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Observa entonces que el argumento posición puede tomar valores desde 0 y hasta el total de hojas devuelto por {{TextColor|Blue|getCount()}} pero incluso si es mayor a este valor, no te dará error y la insertara al final de las demás hojas. Si quieres insertar la hoja antes o después de la hoja activa, primero tienes que encontrar el índice de la hoja activa.

<source lang="oobas">
Sub IndiceHojaActiva()
Dim co1 As Integer
Dim oHojaActiva As Object
dim oHoja As Object

oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()

For co1 <nowiki>=</nowiki> 0 To ThisComponent.getSheets.getCount() - 1
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByIndex(co1)
If oHoja.getName() <nowiki>=</nowiki> oHojaActiva.getName() then
MsgBox "El indice de la hoja activa es: " & co1
Exit For
End If
Next

End Sub
</source>

Que podemos convertir a una función.

<source lang="oobas">
Function BuscarIndiceHoja(ByVal NombreHoja As String) As Integer
Dim co1 As Integer
dim oHoja As Object

For co1 <nowiki>=</nowiki> 0 To ThisComponent.getSheets.getCount() - 1
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByIndex(co1)
If oHoja.getName() <nowiki>=</nowiki> NombreHoja then
BuscarIndiceHoja <nowiki>=</nowiki> co1
Exit Function
End If
Next
BuscarIndiceHoja <nowiki>=</nowiki> -1

End Function
</source>

Observa que si no la encuentra el valor devuelto es -1, lo cual hay que evaluar en caso necesario. Para insertar antes de la hoja activa usamos.

<source lang="oobas">
Sub InsertarNuevaHoja4()
Dim oHojas As Object
Dim oHoja As Object
Dim oHojaActiva As Object
Dim sNombre As String
Dim pos As Integer

sNombre <nowiki>=</nowiki> Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <nowiki><></nowiki> "" Then
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()
If Not oHojas.hasByName(sNombre) Then
'Buscamos el índice de la hoja activa
pos <nowiki>=</nowiki> BuscarIndiceHoja(oHojaActiva.getName())
oHojas.insertNewByName( sNombre, pos )
End If
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByName(sNombre)
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If

End Sub
</source>

Para insertar después de la hoja activa, solo sumas uno al valor devuelto por la función {{TextColor|Blue|BuscarIndiceHoja}}.

<source lang="oobas">
pos <nowiki>=</nowiki> BuscarIndiceHoja(oHojaActiva.getName()) + 1
</source>

Podemos aventurar una primera versión de una función genérica para insertar una nueva hoja de calculo donde quieras.

<source lang="oobas">
'Como función regresamos la nueva hoja insertada o la existente en su caso
'Posición: 1 = Inicio
' 2 = Final
' 3 = Antes de la hoja activa
' 4 = Después de la hoja activa
Function getNuevaHoja(NombreHoja As String, Posicion As Integer) As Object
Dim oHojas As Object
Dim oHojaActiva As Object
Dim iPos As Integer

If NombreHoja <nowiki><></nowiki> "" Then
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()
Select Case Posicion
Case 1 : iPos <nowiki>=</nowiki> 0
Case 2 : iPos <nowiki>=</nowiki> oHojas.getCount()
Case 3 : iPos <nowiki>=</nowiki> oHojaActiva.getRangeAddress.Sheet
Case 4 : iPos <nowiki>=</nowiki> oHojaActiva.getRangeAddress.Sheet + 1
Case Else : iPos <nowiki>=</nowiki> 0
End Select
If Not oHojas.hasByName(NombreHoja) Then
oHojas.insertNewByName(NombreHoja, iPos)
End If
getNuevaHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByName(NombreHoja)
End If

End Function
</source>

Nota como estamos obteniendo el índice de la hoja activa ({{TextColor|Blue|oHoja.getRangeAddress.Sheet}}), con lo cual nos evitamos tener que hacer un ciclo por las hojas del documento. Puedes mejorar esta función para insertar la hoja en cualquier otro documento, así como ingeniártelas para pedirle al usuario el número de hojas nuevas que quiera insertar e insertarlas por supuesto, esa, es tu tarea.

== Borrando hojas ==
Para borrar hojas, usamos el método {{TextColor|Blue|removeByName(Nombre)}}, donde '''''Nombre''''' es el nombre de la hoja que queremos borrar, no esta de más recomendarte usar con cuidado el borrado de hojas, aunque algo que me gusta mucho de OpenOffice.org, es que muchas de las acciones que hacemos por código, son susceptibles de deshacerse de forma normal con la barra de herramientas o con CTRL+Z, el borrado de hojas es una de ellas, compruébalo.

<source lang="oobas">
Sub BorrarHoja1()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
'Borramos la hoja por su nombre
oHojas.removeByName( "Hoja11" )

End Sub
</source>

Por supuesto no puedes borrar una hoja que no exista, así que verifícalo.

<source lang="oobas">
Sub BorrarHoja2()
Dim oHojas As Object
Dim sNombre As String

sNombre <nowiki>=</nowiki> Trim( InputBox( "Nombre de la hoja a borrar" ))
If sNombre <nowiki><></nowiki> "" Then
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
If oHojas.hasByName( sNombre ) Then
oHojas.removeByName( sNombre )
Else
MsgBox "La hoja no existe"
End If
End If

End Sub
</source>

Puedes borrar la hoja activa.

<source lang="oobas">
Sub BorrarHojaActiva()
Dim oHojas As Object
Dim oHojaActiva As Object

oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
oHojas.removeByName( oHojaActiva.getName() )

End Sub
</source>

Ejecuta la macro anterior hasta que no quede ni una, claro, no te dejara por que un documento de hoja de calculo por lo menos debe de tener una hoja, para evitar el error que te da al tratar de borrar la ultima hoja, valida que siempre quede más de una.

<source lang="oobas">
Sub BorrarHoja3()
Dim oHojas As Object
Dim sNombre As String

sNombre <nowiki>=</nowiki> Trim( InputBox( "Nombre de la hoja a borrar" ))
If sNombre <nowiki><></nowiki> "" Then
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
If oHojas.hasByName( sNombre ) And oHojas.getCount()>1 Then
oHojas.removeByName( sNombre )
Else
MsgBox "La hoja no existe o solo queda una"
End If
End If

End Sub
</source>

== Moviendo hojas ==
Para mover hojas usamos el método {{TextColor|Blue|moveByName(NombreHoja, PosicionNueva)}}, donde '''''NombreHoja''''' tiene que ser el nombre de una hoja existente.

<source lang="oobas">
Sub MoverHoja1()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
'Movemos la hoja especificada al inicio
oHojas.moveByName( "Hoja2", 0 )

End Sub
</source>

Ahora, la movemos al final.

<source lang="oobas">
Sub MoverHoja2()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
'Movemos la hoja especificada al final
oHojas.moveByName( "Hoja2", oHojas.getCount() )

End Sub
</source>

Si usas una versión anterior a la 3.1, ten cuidado con mover tus hojas no más allá de la ultima hoja, pues te puede provocar un error en toda la aplicación, este error (bug) se reportó en su momento ([http://www.openoffice.org/issues/show_bug.cgi?id=92477 http://www.openoffice.org/issues/show_bug.cgi?id=92477]), y ha sido arreglado a partir de esta versión (3.1), aun así, usa siempre {{TextColor|Blue|getCount()}} para asegurarte.

Vamos a hacer algo muy divertido, como ya sabemos obtener los nombres e índices de cada hoja, y ahora hemos aprendido a mover hojas, hagamos una macro que nos ordene alfabéticamente nuestras hojas, para ello nos apoyaremos en una función que ordena la matriz que le pasemos.

<source lang="oobas">
Sub PruebaOrdenar1()
Dim mDatos()

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
mDatos() <nowiki>=</nowiki> Array("5","l","o","f","e","v","y","d","h","u",)

'Mostramos los datos desordenados
MsgBox Join( mDatos(), Chr(13) )

'Ordenamos los datos
mDatos() <nowiki>=</nowiki> BubbleSortList( mDatos() )

'Mostramos los datos ordenados
MsgBox Join( mDatos(), Chr(13) )

End Sub
</source>

La función {{TextColor|Blue|BubbleSortList}}, viene incorporada a las macros de OpenOffice.org y usa el método de burbuja para ordenar la lista pasada, no es el algoritmo más eficiente, pero en listas pequeñas y dada su sencillez de implementación es perfectamente válida para nuestros fines, si quieres saber más de este algoritmo visita: [http://es.wikipedia.org/wiki/Bubblesort http://es.wikipedia.org/wiki/Bubblesort]

También puedes crearte tu versión de este algoritmo, aquí esta la mía, puedes ordenar de forma ascendente o descendente.

<source lang="oobas">
Sub PruebaOrdenar2()
Dim mDatos()

mDatos() <nowiki>=</nowiki> Array("5","l","o","f","e","v","y","d","h","u",)
'Mostramos los datos desordenados
MsgBox Join( mDatos(), Chr(13) )

'Ordenamos los datos
Call OrdenarBurbuja( mDatos(), 1 )

'Mostramos los datos ordenados
MsgBox Join( mDatos(), Chr(13) )

End Sub

' Datos = matriz de datos a ordenar
' Orden = 1 ascendente
' 2 descendente
Sub OrdenarBurbuja(ByRef Datos() As Variant, ByVal Orden As Integer)
Dim NumDatos As Long
Dim co1 As Long, co2 As Long

NumDatos <nowiki>=</nowiki> UBound(Datos)
For co1 <nowiki>=</nowiki> 1 To NumDatos
For co2 <nowiki>=</nowiki> NumDatos To co1 Step -1
If Orden <nowiki>=</nowiki> 1 Then
If Datos(co2) <nowiki><</nowiki> Datos(co2 - 1) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
Else
If Not (Datos(co2) <nowiki><</nowiki> Datos(co2 - 1)) Then
Call Intercambio Datos(co2), Datos(co2 - 1)
End If
End If
Next co2
Next co1

End Sub

'Macro para intercambiar un par de valores
Sub Intercambio(ByRef Dato1 As Variant, ByRef Dato2 As Variant)
Dim sTmp As Variant

sTmp <nowiki>=</nowiki> Dato1
Dato1 <nowiki>=</nowiki> Dato2
Dato2 <nowiki>=</nowiki> sTmp

End Sub
</source>

Ahora si, nuestra macro para ordenar hojas en acción, puedes usar la función o macro que prefieras para ordenar la matriz de nombres obtenida, incluso, crearte tu propia versión si así lo prefieres.

<source lang="oobas">
Option Explicit

'Ordenamos las hojas por orden alfabético
Sub OrdenarHojas()
Dim oHojas As Object
Dim mNombres() As Variant
Dim aTmp As Variant
Dim co1 As Integer
Dim oHoja As Object

'Referencia a todas las hojas del documento
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Matriz con los nombres de todas las hojas
mNombres() <nowiki>=</nowiki> oHojas.getElementNames()

'Ordenamos la matriz
Call OrdenarBurbuja( mNombres(), 1 )

'Recorremos la matriz
For co1 <nowiki>=</nowiki> LBound( mNombres() ) To UBound( mNombres() )

'El índice en la matriz, sera el mismo de la posición
oHojas.moveByName( mNombres(co1), co1 )

Next co1

End Sub
</source>

== Copiando hojas ==
Para copiar hojas usamos el método {{TextColor|Blue|copyByName ( NombreHoja, NombreNuevo, Posicion )}} de la siguiente manera.

<source lang="oobas">
Sub CopiarHoja1()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Copiamos la "hoja2" como "Nueva Hoja2" al inicio
oHojas.copyByName( "Hoja2", "Nueva Hoja2", 0 )

End Sub
</source>

Por supuesto el nombre de la hoja a copiar debe de existir y el nombre nuevo de la hoja no debe existir, lo mejor, es evaluarlo antes.

<source lang="oobas">
Sub CopiarHoja2()
Dim oHojas As Object
Dim sNombre As String
Dim sNombreNuevo As String

sNombre <nowiki>=</nowiki> "Datos"
sNombreNuevo <nowiki>=</nowiki> "Datos nuevos"

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Solo copia la hoja, si la hoja a copiar existe y el nombre nuevo no existe
If oHojas.hasByName(sNombre) And (Not oHojas.hasByName(sNombreNuevo)) Then
oHojas.copyByName( sNombre, sNombreNuevo, oHojas.getCount() )
Else
MsgBox "No se copió la hoja"
End If

End Sub
</source>

Podemos intentar copiar una hoja y asegurarnos de que el nombre no exista, tomando como base el nombre actual de la hoja, por ejemplo.

<source lang="oobas">
Sub CopiarHojaActiva()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String
Dim sNombre2 As String
Dim co1 As Long

'Referencia a todas las hoja
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Nombre de la hoja activa
sNombre <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet.getName()

'Contador para construir el nuevo nombre
co1 <nowiki>=</nowiki> 1

'El nuevo nombre es igual mas un guión bajo y un numero
sNombre2 <nowiki>=</nowiki> sNombre & "_" & Format(co1)

'Hace el ciclo mientras el nuevo nombre exista
Do While oHojas.hasByName( sNombre2 )
'Si ya existe incrementamos el contador
co1 <nowiki>=</nowiki> co1 + 1
'y construimos el nuevo nombre
sNombre2 <nowiki>=</nowiki> sNombre & "_" & Format(co1)
Loop

'Sale del ciclo cuando el nuevo nombre no exista, entonces
'podemos copiar la hoja al final (o donde quieras)
oHojas.copyByName(sNombre, sNombre2, oHojas.getCount())

'Referencia a la nueva hoja
oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByName(sNombre2)

'Y la activamos
ThisComponent.getCurrentController.setActiveSheet(oHoja)

End Sub
</source>

Solo te resta preguntarle al usuario cuantas nuevas hojas quiere e insertar ese número de hojas nuevas, pero esa, es tu tarea.

== Renombrando hojas ==
Para renombrar hojas usamos el método {{TextColor|Blue|setName}}, de la siguiente manera.

<source lang="oobas">
Sub CambiarNombreHoja1()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
'Cambiamos el nombre de la hoja “Hola”, por “Prueba”
oHojas.getByName("Hola").setName( "Prueba" )

End Sub
</source>

También puedes usar el índice para referirte a la hoja.

<source lang="oobas">
Sub CambiarNombreHoja2()
Dim oHojas As Object

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
oHojas.getByIndex( 0 ).setName( "Gastos" )

End Sub
</source>

Es recomendable validar que la hoja a renombrar exista y que el nuevo nombre no.

<source lang="oobas">
Sub CambiarNombreHoja3()
Dim oHojas As Object
Dim sNombreActual As String
Dim sNombreNuevo As String

sNombreActual <nowiki>=</nowiki> "Resumen"
sNombreNuevo <nowiki>=</nowiki> "Terminado"
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Validamos que la hoja exista y el nuevo nombre no
If oHojas.hasByName(sNombreActual) And (Not oHojas.hasByName(sNombreNuevo)) Then
oHojas.getByName( sNombreActual ).setName( sNombreNuevo )
Else
MsgBox "No se renombro la hoja"
End If

End Sub
</source>

Solo para divertirnos, cambiamos los nombres de las hojas por números.

<source lang="oobas">
Sub CambiarNombreHoja4()
Dim oHojas As Object
Dim co1 As Integer

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

For co1 <nowiki>=</nowiki> 1 To oHojas.getCount()
oHojas.getByIndex( co1-1 ).setName( co1 )
Next

End Sub
</source>

Ahora por letras, el código siguiente podría fallarte si tienes más de 25 hojas en tu documento, tu tarea es decirme ¿porqué? y corregirlo, en algunos casos, “el cambio de nombre no tendrá efecto”, también, te toca averiguar ¿porqué?

<source lang="oobas">
Sub CambiarNombreHoja5()
Dim oHojas As Object
Dim co1 As Integer

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

For co1 <nowiki>=</nowiki> 1 To oHojas.getCount()
oHojas.getByIndex( co1-1 ).setName( Chr( co1+64 ) )
Next

End Sub
</source>

O los meses del año:

<source lang="oobas">
Sub CambiarNombreHoja6()
Dim oHojas As Object
Dim co1 As Integer
Dim Limite As Byte
Dim sMes As String

oHojas <nowiki>=</nowiki> ThisComponent.getSheets()

'Para que solo cambie las primeras 12
If oHojas.getCount() > 12 Then
Limite <nowiki>=</nowiki> 12
Else
'O las que haya si son menos de 12
Limite <nowiki>=</nowiki> oHojas.getCount()
End If

For co1 <nowiki>=</nowiki> 1 To Limite
'Obtenemos el nombre del mes
sMes <nowiki>=</nowiki> Format( DateSerial(Year(Date),co1,1) ,"mmmm")
oHojas.getByIndex( co1-1 ).setName( sMes )
Next

End Sub
</source>

Te queda de tarea lograr completar los meses para que sean los doce del año, es decir, tienes que insertar los meses que te hagan falta si el documento tiene menos de las hojas necesarias, si tiene más de doce borra las sobrantes.

== Ocultando y mostrando hojas ==
Mostrar y ocultar hojas es muy sencillo, solo hay que establecer su propiedad {{TextColor|Blue|isVisible}} en verdadero (True) o falso (False) según se requiera de la siguiente manera,

<source lang="oobas">
Sub OcultarHoja1()
Dim oHojaActiva As Object

oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()

oHojaActiva.isVisible <nowiki>=</nowiki> False

End Sub
</source>

La macro anterior te ocultara la hoja activa, si la ejecutas varias veces te ira ocultando tus hojas hasta que solo quede una, si solo hay una no te dará error, pero la dejará visible por que, como sabes, tiene que haber al menos una hoja visible en un documento de Calc. También puedes ocultar una hoja por medio de su índice, como en.

<source lang="oobas">
Sub OcultarHoja2()
Dim oHoja As Object

oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByIndex(1)

oHoja.isVisible <nowiki>=</nowiki> False

End Sub
</source>

Toma en cuenta que: el índice de la hoja “debe” existir, sino te dará un error, así mismo, si ocultas una hoja, esta no cambia de índice por lo que puedes usar el mismo para acceder a ella, aunque este oculta, la siguiente macro alterna entre mostrar y ocultar la primer hoja del documento.

<source lang="oobas">
Sub OcultarHoja3()
Dim oHoja As Object

oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByIndex(0)

oHoja.isVisible <nowiki>=</nowiki> Not oHoja.isVisible

End Sub
</source>

Como ya habrás intuido, para mostrar una hoja oculta simplemente hay que establecer esta propiedad en verdadero (True).

<source lang="oobas">
Sub OcultarHoja4()
Dim oHoja As Object

oHoja <nowiki>=</nowiki> ThisComponent.getSheets.getByIndex(1)

oHoja.isVisible <nowiki>=</nowiki> True

End Sub
</source>

El siguiente código te oculta todas las hojas, excepto la hoja activa.

<source lang="oobas">
Sub OcultarHoja5()
Dim oHojaActiva As Object
Dim oHojas As Object
Dim co1 As Long

oHojaActiva <nowiki>=</nowiki> ThisComponent.getCurrentController.getActiveSheet()
oHojas <nowiki>=</nowiki> ThisComponent.getSheets()
For co1 <nowiki>=</nowiki> 0 To oHojas.getCount() - 1
If oHojas.getByIndex(co1).getName <nowiki><></nowiki> oHojaActiva.getName() Then
oHojas.getByIndex(co1).isVisible <nowiki>=</nowiki> False
End If
Next

End Sub
</source>

Tu tarea es hacer la función inversa, muestra todas las hojas ocultas.

== Protección y desprotección de hojas ==
Para terminar este capítulo, veamos como proteger una hoja, es decir, establecer una contraseña para evitar modificaciones a la misma, además, recuerda que para que la protección de celdas individuales sea efectiva, la hoja debe estar protegida. Para proteger una hoja, usamos el método {{TextColor|Blue|Protect}}, pasándole como argumento, la contraseña que queremos establecer, por supuesto, puedes pasarle una contraseña vacía, con lo que la hoja no estará muy protegida que digamos, pero créeme, muchos usuarios no saben desproteger una hoja, aun sin contraseña.

<source lang="oobas">
Sub ProtegerHoja1()
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController().getActiveSheet()
'Para que veas que si me ocurren otras contraseñas
oHojaActiva.Protect( "letmein" )

End Sub
</source>

Y para desproteger, usamos el método {{TextColor|Blue|unProtect}}, si la hoja tiene contraseña hay que pasársela como argumento, si no es correcta, el método no te devolverá ningún error como en la interfaz del usuario que te avisa que la contraseña es incorrecta, para saber si tuvo éxito o no la desprotección, hay que verificar la propiedad {{TextColor|Blue|isProtected}}, si es verdadera ({{TextColor|Blue|True}}) la hoja sigue protegida, si es falsa ({{TextColor|Blue|False}}), la hoja esta desprotegida.

<source lang="oobas">
Sub ProtegerHoja2()
Dim oHojaActiva As Object

oHojaActiva = ThisComponent.getCurrentController().getActiveSheet()
If oHojaActiva.isProtected Then
MsgBox "La hoja esta protegida"
'Intentamos desprotegerla
oHojaActiva.unProtect( "letmein" )
'Verificamos si tuvo éxito la desprotección
If oHojaActiva.isProtected Then
MsgBox "La contraseña no es correcta"
Else
MsgBox "Hoja desprotegida correctamente"
End If
Else
MsgBox "La hoja NO esta protegida"
End If

End Sub
</source>

Te queda de tarea modificar la macro para solicitar al usuario la contraseña, verificar si es correcta o no y darle solo tres intentos para ingresarla. Fácil, ¿verdad?. Como comentarios finales, si intentas proteger una hoja que ya tiene contraseña, no obtendrás ningún error, pero la hoja permanecerá con la contraseña original, para cambiarla, primero tienes que desprotegerla y después cambiarla. Cuando proteges una hoja e intentas hacer modificaciones a esta, por ejemplo, escribir en una celda, tampoco retornará ningún error, pero no será efectiva la modificación, procura usar la propiedad para saber si una hoja esta o no protegida ({{TextColor|Blue|isProtected}}), para actuar en consecuencia.
{{ES/Foro|macros}}

[[Category:ES]][[Category:Manuales]][[Category:ES/StarBasic]]

Talk:ES/Manuales/GuiaAOO

2015-01-31T14:48:18Z

Salva: /* Guía de Calc */ new section

Hay algunas sugerencias que quiero hacer a la guía:<br>
Hay unos temas que no tienen vínculos ('''formato de archivos soportados''', '''estilos en Cal''', '''Impress''', '''Conociendo Impress''', '''Estilos en Impress''' y '''combinación de correspondencia''').<br>
El tema '''JavaScript''' y '''Extensiones''' dice que su vinculo no existe.<br>
[[User:Jose reyes1994|Jose reyes1994]] ([[User talk:Jose reyes1994|talk]]) 00:03, 2 April 2014 (UTC)

== Guía de Calc ==

He agregado un enlace a la página de [[ES/Traduccion/Calc/Funciones|funciones traducidas de Calc]], que aunque pertenecen al grupo de páginas etiquetadas como OOoES y que fueron descatalogadas por que eran antiguas y no estaban revisadas, he considerado que mejor eso que nada, ya que la guía de Calc no parece que se mueva.

ES/Manuales/GuiaAOO

2015-01-31T14:44:51Z

Salva:

{{DISPLAYTITLE:Guía de introducción al uso de Apache OpenOffice}}

Si bien Apache OpenOffice está formado por muchos componentes (Writer, Calc, Draw, Impress, Math, Base) todos estos comparten muchas características en su interfaz gráfica. Es por esto que podremos comenzar a hablar sobre Apache OpenOffice (de ahora en más, AOO) primero en forma general, para luego dar «ejemplos» que expliquen las particularidades de cada aplicación.

Es recomendable, sobre todo para el nuevo usuario, familiarizarse con los primeros capítulos de esta guía antes de buscar información específica de cada componente, ya que todas las guías siguientes harán referencia a las de base.

<big>'''Índice'''</big>

# [[ES/Manuales/GuiaAOO/UI|La interfaz de AOO]]
# [[ES/Manuales/GuiaAOO/Formato|Dando forma a un documento]]
# [[ES/Manuales/GuiaAOO/BuscarReemplazar|Buscar y reemplazar]]
# [[ES/Manuales/GuiaAOO/AutoCorr|Opciones de autocorrección]]
# Formatos de archivo soportados
# [[ES/Manuales/GuiaAOO/Extensiones|Extensiones: agregando características a AOO]]
# [[ES/Manuales/GuiaAOO/Opciones|Opciones generales del programa]]
# [[ES/Manuales/GuiaAOO/Writer|Writer]]
## [[ES/Manuales/GuiaAOO/Writer/Intro|Conociendo Writer]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Contenido|Editando texto]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Tablas|Tablas]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Img_OLE|Imágenes y objetos OLE]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Marcos|Marcos]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Secciones|Secciones]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Autotexto|Autotextos]]
## [[ES/Manuales/GuiaAOO/Writer/Estilos|Estilos en Writer]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Texto|Estilos de párrafo y carácter]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Marco|Estilos de Marco]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Pagina|Estilos de página]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Lista|Estilos de lista]]
## [[ES/Manuales/GuiaAOO/Writer/Campos|Numeración de páginas, campos, variables y referencias cruzadas]]
## [[ES/Manuales/GuiaAOO/Writer/NumCap|Organizando y numerando capítulos]]
## [[ES/Manuales/GuiaAOO/Writer/NotasPieFinal|Notas al pie de página / notas al final]]
## [[ES/Manuales/GuiaAOO/Writer/Navegador|El navegador]]
## [[ES/Manuales/GuiaAOO/Writer/TOC|Índices]]
## [[ES/Manuales/GuiaAOO/Writer/DocMaestros|Documentos maestros]]
# [[ES/Manuales/GuiaAOO/Calc|Calc]]
## [[ES/Manuales/GuiaAOO/Calc/Intro|Conociendo Calc]]
## Estilos en Calc
## ...
## [[ES/Traduccion/Calc/Funciones|Indice de Funciones Calc]]
# Impress
## Conociendo Impress
## Estilos en Impress
## ...
# [[ES/Manuales/GuiaAOO/Draw|Draw]]
## [[ES/Manuales/GuiaAOO/Draw/Intro|Conociendo Draw]]
## [[ES/Manuales/GuiaAOO/Draw/Capas|Trabajando con capas en Draw]]
## [[ES/Manuales/GuiaAOO/Draw/Estilos|Estilos en Draw]]
## [[ES/Manuales/GuiaAOO/Draw/Herramientas|Herramientas de Draw]]
### [[ES/Manuales/GuiaAOO/Draw/Herramientas/Medidas|Midiendo distancias en Apache OpenOffice Draw]]
### [[ES/Manuales/GuiaAOO/Draw/Herramientas/Bezier|Curvas Bézier]]
### ...
# [[ES/Manuales/GuiaAOO/Math|Math]]
## [[ES/Manuales/GuiaAOO/Math/InsertarMath|Usando Math en los otros componentes]]
## [[ES/Manuales/GuiaAOO/Math/FormatoMath|Formato de los objetos Math]]
## [[ES/Manuales/GuiaAOO/Math/Sintaxis|Elementos de sintaxis de Math]]
## [[ES/Manuales/GuiaAOO/Math/SimbolosMath|Insertar símbolos en Math]]
## [[ES/Manuales/GuiaAOO/Math/ComandosMath|Lista de comandos Math]]
# [[ES/Manuales/GuiaAOO/Base|Base]]
## [[ES/Manuales/GuiaAOO/Base/Introduccion|Introducción]]
## [[ES/Manuales/GuiaAOO/Base/PlanificarBaseDatos|Planificar una base de datos]]
## [[ES/Manuales/GuiaAOO/Base/CrearBaseDatosNueva|Crear una base de datos nueva]]
## [[ES/Manuales/GuiaAOO/Base/CrearTablas|Crear tablas]]
## [[ES/Manuales/GuiaAOO/Base/DefinirRelaciones|Definir relaciones]]
## [[ES/Manuales/GuiaAOO/Base/CrearFormularioBDD|Crear un formulario de base de datos]]
## [[ES/Manuales/GuiaAOO/Base/AccederOtrasBDD|Acceder a otras bases de datos]]
## [[ES/Manuales/GuiaAOO/Base/UsarFuentesDatosOOO|Usar fuentes de datos en OpenOffice.org]]
## [[ES/Manuales/GuiaAOO/Base/IntroducirDatosFormulario|Introducir datos en un formulario]]
## [[ES/Manuales/GuiaAOO/Base/CrearConsultas|Crear consultas]]
## [[ES/Manuales/GuiaAOO/Base/CrearInformes|Crear informes]]
# [[ES/Manuales/GuiaAOO/TemasAvanzados|Temas avanzados]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros|Macros]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/StarBasic|StarBasic]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/Python|Python]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/JavaScript|JavaScript]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/Extensiones|Extensiones]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/RegExp|Expresiones regulares]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb|Creación de páginas web]]
# [[ES/Manuales/GuiaAOO/Integrar|Integrando componentes]]
## Combinación de correspondencia
## [[ES/Manuales/GuiaAOO/Integrar/Bibliografia|La base de datos bibliográfica]]
## ...

[[Category:ES]][[Category:Manuales]]

User:Salva

2013-06-11T13:16:38Z

Salva:

Interested on user support, test Spanish version and expand this wiki...

Interesado en ofrecer soporte a los usuarios, testear la versión en Español, y en ampliar esta wiki

== Contributions / Contribuciones ==
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=0&year=&month=-1 Articles/Artículos] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=1&year=&month=-1 Talks/Discusiones] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=10&year=&month=-1 Templates/Plantillas] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=14&year=&month=-1 Categories/Categorías] ··· [http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=6&year=&month=-1 Files/Archivos]

== Recognized / Oficial ==

[http://forum.openoffice.org/es/forum/memberlist.php?mode=viewprofile&u=5256 Moderator on the Spanish Community forums / Moderador en el Foro de Apache OpenOffice en Español]

== Personal ==

[http://wiki.open-office.es Personal wiki to Apache OpenOffice manuals in Spanish / Wiki personal con manuales para Apache OpenOffice en Español]

[http://blog.open-office.es Personal blog with tips and news about Apache OpenOffice in Spanish / Blog personal con trucos y noticias sobre Apache OpenOffice en Español]

User:Salva

2013-06-11T13:15:11Z

Salva:

Interested on user support, test Spanish version and expand this wiki...

Interesado en ofrecer soporte a los usuarios, testear la versión en Español, y en ampliar esta wiki

== Contributions / Contribuciones ==
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=0&year=&month=-1 Articles/Artículos] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=1&year=&month=-1 Talks/Discusiones] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=10&year=&month=-1 Templates/Plantillas] ···
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=14&year=&month=-1 Categories/Categorías]

== Recognized / Oficial ==

[http://forum.openoffice.org/es/forum/memberlist.php?mode=viewprofile&u=5256 Moderator on the Spanish Community forums / Moderador en el Foro de Apache OpenOffice en Español]

== Personal ==

[http://wiki.open-office.es Personal wiki to Apache OpenOffice manuals in Spanish / Wiki personal con manuales para Apache OpenOffice en Español]

[http://blog.open-office.es Personal blog with tips and news about Apache OpenOffice in Spanish / Blog personal con trucos y noticias sobre Apache OpenOffice en Español]

User:Salva

2013-06-11T13:13:14Z

Salva:

Interested on user support, test Spanish version and expand this wiki...

Interesado en ofrecer soporte a los usuarios, testear la versión en Español, y en ampliar esta wiki

== Contributions / Contribuciones ==
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=0&year=&month=-1 Articles/Artículos]

[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=1&year=&month=-1 Talks/Discusiones]

[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=10&year=&month=-1 Templates/Plantillas]

[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=14&year=&month=-1 Categories/Categorías]

== Recognized / Oficial ==

[http://forum.openoffice.org/es/forum/memberlist.php?mode=viewprofile&u=5256 Moderator on the Spanish Community forums / Moderador en el Foro de Apache OpenOffice en Español]

== Personal ==

[http://wiki.open-office.es Personal wiki to Apache OpenOffice manuals in Spanish / Wiki personal con manuales para Apache OpenOffice en Español]

[http://blog.open-office.es Personal blog with tips and news about Apache OpenOffice in Spanish / Blog personal con trucos y noticias sobre Apache OpenOffice en Español]

User:Salva

2013-06-11T13:09:07Z

Salva: Created page with "Interested on user support, test Spanish version and expand this wiki... Interesado en ofrecer soporte a los usuarios, testear la versión en Español, y en ampliar esta wiki..."

Interested on user support, test Spanish version and expand this wiki...

Interesado en ofrecer soporte a los usuarios, testear la versión en Español, y en ampliar esta wiki

== Contributions / Contribuciones ==
[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=0&year=&month=-1 Articles/Artículos]

[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=1&year=&month=-1 Talks/Discusiones]

[http://wiki.openoffice.org/w/index.php?limit=500&tagfilter=&title=Special%3AContributions&contribs=user&target=Salva&namespace=10&year=&month=-1 Templates/Plantillas]

== Recognized / Oficial ==

[http://forum.openoffice.org/es/forum/memberlist.php?mode=viewprofile&u=5256 Moderator on the Spanish Community forums / Moderador en el Foro de Apache OpenOffice en Español]

== Personal ==

[http://wiki.open-office.es Personal wiki to Apache OpenOffice manuals in Spanish / Wiki personal con manuales para Apache OpenOffice en Español]

[http://blog.open-office.es Personal blog with tips and news about Apache OpenOffice in Spanish / Blog personal con trucos y noticias sobre Apache OpenOffice en Español]

Talk:ES/Documentation

2013-06-11T12:37:03Z

Salva: /* Discusión o silencio */

== Información desactualizada y duplicidad de caminos ==
Esta página tiene enlaces a páginas en inglés que ya disponen de su equivalente en español.
Considero que debería existir una sóla página desde la cual surja toda la documentación de la wiki en español, y que esa página debería ser [[ES]]
Por ello sugiero:

* Agregar en la página [[ES]] aquellos enlaces que sí tiene esta página y que todavía no existe equivalente en español
* Sustituir su contenido por una redirección a [[ES]] con un comando
:: <nowiki>#REDIRECT [[ES]]</nowiki>

== Plantilla ==
Por otra parte opino que sería bueno crear una plantilla con este contenido...

<pre><nowiki>
<div style="border: 1px solid rgb(140, 45, 6); margin: 0px 5px 5px; padding: 1px; float: right; width: 300px;
background-color: rgb(255, 255, 255);" id="contrib"><div style="padding: 2px; background-color: rgb(140, 45, 6);
color: rgb(255, 255, 255); font-weight: bold; text-align: center;">Quieres ayudar?</div>

{|
|-
|
*[[ES/Participar|Cómo participar]]
*[[ES/AyudaWiki|Cómo contribuir]]
*[[ES/AyudaWiki|Politicas de edición]]
*[[ES/PanelDelProyecto|Panel del proyecto]]
|
*[[Documentation/Wishlist|Lista de Deso]] <--------------- No sé muy bien qué es esto
*[[:Category:ES/AyudaWiki/Ayuda|Página que necesitan ayuda!]]
*[[:Category:ES/AyudaWiki/Pendientes|Páginas pendientes]]
*[[:Category:ES/AyudaWiki/Candidatas|Páginas candidatas]]
|}

</div>
</nowiki></pre>

...con los enlaces correctos a las páginas actuales en español.
Esta plantilla:
* podría ser agregada a todas las páginas en español que incluirían en su encabezado una plantilla general en la que se podría enlazar fácilmente cualquier mensaje que se quiera transmitir sin realizar más que unos simples cambios, por ejemplo <nowiki>{{EncabezadoES}}</nowiki>
* se crearán las plantillas/categorías (si no existen ya) para enlazar a las páginas que necesitan ayuda, páginas pendientes, páginas candidatas.
* Veo acertado incluir también un panel del proyecto donde para cada apartado pueda indicarse quienes han sido los colaboradores que han ayudado a realizarlo, o a quienes se les ha asignado-encargado su realización o mantenimiento.

== Discusión o silencio ==
Entenderé que si tras <del>15 días</del> 72 horas a partir de la fecha de esta discusión nadie comenta nada, se sobreentiende que es aceptado el cambio por la comunidad.
Saludos

--[[User:Salva|Salva]] ([[User talk:Salva|talk]]) 10:56, 11 June 2013 (UTC)

Talk:ES/Documentation

2013-06-11T10:59:35Z

Salva: /* Plantilla */

== Información desactualizada y duplicidad de caminos ==
Esta página tiene enlaces a páginas en inglés que ya disponen de su equivalente en español.
Considero que debería existir una sóla página desde la cual surja toda la documentación de la wiki en español, y que esa página debería ser [[ES]]
Por ello sugiero:

* Agregar en la página [[ES]] aquellos enlaces que sí tiene esta página y que todavía no existe equivalente en español
* Sustituir su contenido por una redirección a [[ES]] con un comando
:: <nowiki>#REDIRECT [[ES]]</nowiki>

== Plantilla ==
Por otra parte opino que sería bueno crear una plantilla con este contenido...

<pre><nowiki>
<div style="border: 1px solid rgb(140, 45, 6); margin: 0px 5px 5px; padding: 1px; float: right; width: 300px;
background-color: rgb(255, 255, 255);" id="contrib"><div style="padding: 2px; background-color: rgb(140, 45, 6);
color: rgb(255, 255, 255); font-weight: bold; text-align: center;">Quieres ayudar?</div>

{|
|-
|
*[[ES/Participar|Cómo participar]]
*[[ES/AyudaWiki|Cómo contribuir]]
*[[ES/AyudaWiki|Politicas de edición]]
*[[ES/PanelDelProyecto|Panel del proyecto]]
|
*[[Documentation/Wishlist|Lista de Deso]] <--------------- No sé muy bien qué es esto
*[[:Category:ES/AyudaWiki/Ayuda|Página que necesitan ayuda!]]
*[[:Category:ES/AyudaWiki/Pendientes|Páginas pendientes]]
*[[:Category:ES/AyudaWiki/Candidatas|Páginas candidatas]]
|}

</div>
</nowiki></pre>

...con los enlaces correctos a las páginas actuales en español.
Esta plantilla:
* podría ser agregada a todas las páginas en español que incluirían en su encabezado una plantilla general en la que se podría enlazar fácilmente cualquier mensaje que se quiera transmitir sin realizar más que unos simples cambios, por ejemplo <nowiki>{{EncabezadoES}}</nowiki>
* se crearán las plantillas/categorías (si no existen ya) para enlazar a las páginas que necesitan ayuda, páginas pendientes, páginas candidatas.
* Veo acertado incluir también un panel del proyecto donde para cada apartado pueda indicarse quienes han sido los colaboradores que han ayudado a realizarlo, o a quienes se les ha asignado-encargado su realización o mantenimiento.

== Discusión o silencio ==
Entenderé que si tras 15 días a partir de la fecha de esta discusión nadie comenta nada, se sobreentiende que es aceptado el cambio por la comunidad.
Saludos

--[[User:Salva|Salva]] ([[User talk:Salva|talk]]) 10:56, 11 June 2013 (UTC)

Talk:ES/Documentation

2013-06-11T10:56:33Z

Salva: Created page with "== Información desactualizada y duplicidad de caminos == Esta página tiene enlaces a páginas en inglés que ya disponen de su equivalente en español. Considero que deberí..."

== Información desactualizada y duplicidad de caminos ==
Esta página tiene enlaces a páginas en inglés que ya disponen de su equivalente en español.
Considero que debería existir una sóla página desde la cual surja toda la documentación de la wiki en español, y que esa página debería ser [[ES]]
Por ello sugiero:

* Agregar en la página [[ES]] aquellos enlaces que sí tiene esta página y que todavía no existe equivalente en español
* Sustituir su contenido por una redirección a [[ES]] con un comando
:: <nowiki>#REDIRECT [[ES]]</nowiki>

== Plantilla ==
Por otra parte opino que sería bueno crear una plantilla con este contenido...

<nowiki>
<div style="border: 1px solid rgb(140, 45, 6); margin: 0px 5px 5px; padding: 1px; float: right; width: 300px; background-color: rgb(255, 255, 255);" id="contrib"><div style="padding: 2px; background-color: rgb(140, 45, 6); color: rgb(255, 255, 255); font-weight: bold; text-align: center;">Quieres ayudar?</div>

{|
|-
|
*[[ES/Participar|Cómo participar]]
*[[ES/AyudaWiki|Cómo contribuir]]
*[[ES/AyudaWiki|Politicas de edición]]
*[[ES/PanelDelProyecto|Panel del proyecto]]

|
*[[Documentation/Wishlist|Lista de Deso]]
*[[:Category:ES/AyudaWiki/Ayuda|Página que necesitan ayuda!]]
*[[:Category:ES/AyudaWiki/Pendientes|Páginas pendientes]]
*[[:Category:ES/AyudaWiki/Candidatas|Páginas candidatas]]

|}
</div>
</nowiki>

...con los enlaces correctos a las páginas actuales en español.
Esta plantilla:
* podría ser agregada a todas las páginas en español que incluirían en su encabezado una plantilla general en la que se podría enlazar fácilmente cualquier mensaje que se quiera transmitir sin realizar más que unos simples cambios, por ejemplo <nowiki>{{EncabezadoES}}</nowiki>
* se crearán las plantillas/categorías (si no existen ya) para enlazar a las páginas que necesitan ayuda, páginas pendientes, páginas candidatas.
* Veo acertado incluir también un panel del proyecto donde para cada apartado pueda indicarse quienes han sido los colaboradores que han ayudado a realizarlo, o a quienes se les ha asignado-encargado su realización o mantenimiento.

== Discusión o silencio ==
Entenderé que si tras 15 días a partir de la fecha de esta discusión nadie comenta nada, se sobreentiende que es aceptado el cambio por la comunidad.
Saludos

--[[User:Salva|Salva]] ([[User talk:Salva|talk]]) 10:56, 11 June 2013 (UTC)

Category:ES/Creación páginas Web

2013-05-01T20:07:38Z

Salva: Created page with "Category:ESCategory:Manuales"

[[Category:ES]][[Category:Manuales]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDrawComoPaginasWeb

2013-05-01T20:06:15Z

Salva: Created page with "{{DISPLAYTITLE:Guardar documentos Draw como páginas web}} La exportación de dibujos desde la aplicación de OpenOffice.org Draw es parecida a la de una presentación desde I..."

{{DISPLAYTITLE:Guardar documentos Draw como páginas web}}
La exportación de dibujos desde la aplicación de OpenOffice.org Draw es parecida a la de una presentación desde Impress. Acceda a '''Archivo '''> '''Exportar''' y seleccione '''Documento HTML''' como formato de archivo.

Si usa el asistente, puede elegir crear la página web en cualquier momento haciendo clic en '''Crear'''.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

File:ES CreacionPaginasWeb 019.png

2013-05-01T20:05:23Z

Salva:

File:ES CreacionPaginasWeb 005.png

2013-05-01T20:05:08Z

Salva:

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarImpressComoPaginasWeb

2013-05-01T20:04:40Z

Salva:

{{DISPLAYTITLE:Guardar presentaciones Impress como páginas web}}
Puede exportar presentaciones como archivos de Macromedia Flash: Seleccione '''Archivo''' > '''Exportar '''y elija Macromedia Flash como formato de archivo.

Asimismo puede convertir presentaciones en una serie de páginas web, tal y como se describe a continuación.

{{Documentation/Note|Al guardar como páginas web (formato HTML) no se conservan las animaciones ni las transiciones entre diapositivas.}}

:1.- Para empezar, seleccione '''Archivo''' >''' Exportar''' y elija '''Documento HTML''' como formato de archivo.
:2.- Cree una carpeta para los archivos, póngale un nombre al archivo HTML resultante, y haga clic en '''Guardar'''. Se abre el ''Asistente de exportación de HTML''.

{{Documentation/Note|Dependiendo del tamaño de su presentación y del número de gráficos que contenga la función de exportación HTML puede crear muchos archivos HTML, JPG,y GIF. Si simplemente la guarda en su escritorio (y no en una carpeta específica), estos archivos HTML y gráficos aparecerán dispersos por todo el escritorio. Por lo tanto, asegúrese de crear previamente una carpeta para guardar todos estos los archivos.}}

:3.- Elija el diseño de todas las páginas, bien a partir de un diseño existente, o bien creando uno nuevo. Si previamente no ha guardado un diseño, la opción ''Diseño existente'' no estará habilitada.#

[[Image:ES_CreacionPaginasWeb_009.png|center]]

:4.- Haga clic en '''Siguiente''' para seleccionar el tipo de página web que desea crear.
::* ''HTML predeterminado'': una página por diapositiva, con vínculos de navegación para moverse de una diapositiva a otra.
::* ''HTML predeterminado con frames (''marcos): una página con una barra de navegación a la izquierda, usa el título de la diapositiva como vínculo de navegación. Haga clic en los vínculos y se mostrarán las páginas a la derecha.
::* ''Automático'': una página por diapositiva, cada una de ellas con la meta etiqueta ''Refresh'' configurada para que los navegadores automáticamente pasen de una página a otra.
::* ''WebCast'': genera una aplicación ASP o Perl para mostrar las diapositivas. Lamentablemente OOo aún no ha implementado PHP.

[[Image:ES_CreacionPaginasWeb_008.png|center]]

:5.- Decida el formato en el que se guardarán las imágenes (PNG, GIF, o JPG) y la resolución que usarán.Al elegir una resolución, tenga en cuenta la que usarán la mayor parte de las visitas a su web. Si usa una resolución alta, entonces una visita con un monitor de resolución media tendrá que utilizar las barras de desplazamiento para ver la diapositiva completa, lo cual no es muy aconsejable.

[[Image:ES_CreacionPaginasWeb_007.png|center]]

:6.- Si en el paso 4 se eligió ''Crear portada'', complete la información correspondiente en la página siguiente. La información de portada contiene el nombre del autor, dirección de correo-e, y página web, además de cualquier otra información que desee incluir.Esta página del asistente no se muestra si no se ha elegido la opción ''Crear portada''.

[[Image:ES_CreacionPaginasWeb_005.png|center]]

:7.- Elija el estilo que va a aplicar a los botones de navegación que le permitirán desplazarse de una página a otra. Si no elije ninguno, OOo creará un navegador de texto.

[[Image:ES_CreacionPaginasWeb_014.png|center]]

:8.- Seleccione la combinación de colores que va a aplicar a las páginas web. Las combinaciones disponibles incluyen la combinación del documento actual, otra basada en los colores del navegador y una combinación totalmente definida por el usuario. Puede guardar una nueva combinación para que aparezca en la primera página del asistente de exportación de HTML.

[[Image:ES_CreacionPaginasWeb_020.png|center]]

:9.- Haga clic en '''Crear''' para generar los archivos HTML. Si se trata de un diseño nuevo, se abrirá un pequeño cuadro de diálogo. En caso de que deseara volver a usar este diseño, puede darle un nombre y guardarlo. O bien, haga clic en '''No guardar'''.

[[Image:ES_CreacionPaginasWeb_019.png|center]]

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

File:ES CreacionPaginasWeb 013.png

2013-05-01T20:02:05Z

Salva:

File:ES CreacionPaginasWeb 017.png

2013-05-01T20:01:50Z

Salva:

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb

2013-05-01T20:01:26Z

Salva: /* Crear páginas web usando un asistente */

{{DISPLAYTITLE:Guardar documentos Writer como páginas web}}
Las funcionalidades del HTML de Writer incluyen guardar documentos existentes en formato HTML, crear nuevos documentos como HTML (no descrito aquí) y crear diversos tipos de páginas web con la ayuda de un asistente.

La forma más fácil de crear documentos HTML es empezar con un documento Writer existente. Puede hacerse una idea de qué aspecto tendrá como página web usando '''Ver > Diseño para Internet'''. Sin embargo, la vista de diseño web no le mostrará qué características se guardarán correctamente o no en HTML. En la introducción a este capítulo se describen algunos aspectos a tener en cuenta.

== Guardar un documento como una única página web ==
Para guardar un documento como una única página web (en formato HTML), seleccione '''Guardar como''' en el menú '''Archivo''' y especifique '''Documento HTML''' como tipo de archivo.

{{Documentation/Note|Writer no sustituye los espacios consecutivos del documento original con el código HTML que corresponde a espacios sin interrupción. Si desea tener espacios extra en su archivo HTML o página web, tiene que insertar espacios sin interrupción en OOo. Para hacerlo, presione ''Control+Barra espaciadora'' en lugar de ''Barra espaciadora'' sólo.}}

== Guardar un documento como una serie de páginas web ==
Writer puede guardar documentos extensos como una serie de páginas web (archivos HTML) e incluir una página en la que aparezca una tabla de contenidos. Para hacerlo:

:1.- Decida qué encabezados del documento marcan el comienzo de una nueva página y asegúrese de que todos ellos tienen el mismo estilo (por ejemplo, Encabezado 1).
:2.- Seleccione '''Archivo > Enviar''' y haga clic en '''Crear documento HTML'''.
:3.- En el cuadro de diálogo (), introduzca el nombre del archivo donde desea guardar las páginas. Asimismo, especifique qué estilo se aplica a la nueva página (de acuerdo a lo que haya decidido en el paso 1).
:4.- Haga clic en '''Guardar '''para crear el documento HTML multipágina. (Para quienes estén interesados, los archivos HTML resultantes se ajustan al HTML 4 Transitional).

[[Image:ES_CreacionPaginasWeb_001.png|center]]
<center>''Figura : Crear una serie de páginas web a partir de un documento'']]</center>

== Crear páginas web usando un asistente ==
El asistente para web de OOo le permite crear varios tipos de páginas webs estándares. Para usarlo:
:1.- Seleccione '''Archivo'''> '''Asistentes '''> '''Página web'''. En la primera página del Asistente, seleccione la configuración y después haga clic en '''Siguiente'''. Si ésta es su primera página web, la única opción de configuración es ''predeterminado''.

[[Image:ES_CreacionPaginasWeb_017.png|center]]

:2.- Seleccione o busque el documento al que desea darle formato. Escoja el ''Título'', ''Resumen'' e ''Información del autor'' de entre las propiedades del documento. Si es necesario, edítelo. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_016.png|center]]

:3.- Seleccione un diseño para el sitio web haciendo clic sobre los cuadros de diseño. '''Haga clic en Siguiente'''.

[[Image:ES_CreacionPaginasWeb_013.png|center]]

:4.- Seleccione la información que se va a listar y la resolución de pantalla. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_006.png|center]]

:5.- Seleccione un estilo para la página. Use la lista desplegable para elegir diferentes estilos y combinaciones cromáticas. Puede buscar una imagen de fondo y un conjunto de iconos en la Galería. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_012.png|center]]

:6.- Introduzca información general como el Título y los Metadatos HTML. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_010.png|center]]

:7.- Seleccione dónde guardar el archivo y obtenga una vista previa de la página si lo desea. Haga clic en '''Finalizar'''.

[[Image:ES_CreacionPaginasWeb_011.png|center]]

Para editar o ver el código HTML subyacente, abra el documento, haga clic en '''Ver '''> '''Código fuente HTML''' o haga clic sobre el icono [[Image:ES_CreacionPaginasWeb_015.png]] '''Código fuente HTML''' en la barra de herramientas Principal.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarImpressComoPaginasWeb

2013-05-01T19:56:37Z

Salva: Created page with "{{DISPLAYTITLE:Guardar presentaciones Impress como páginas web}} Puede exportar presentaciones como archivos de Macromedia Flash: Seleccione '''Archivo''' > '''Exportar '''y ..."

{{DISPLAYTITLE:Guardar presentaciones Impress como páginas web}}
Puede exportar presentaciones como archivos de Macromedia Flash: Seleccione '''Archivo''' > '''Exportar '''y elija Macromedia Flash como formato de archivo.

Asimismo puede convertir presentaciones en una serie de páginas web, tal y como se describe a continuación.

{{Documentation/Note|Al guardar como páginas web (formato HTML) no se conservan las animaciones ni las transiciones entre diapositivas.}}

:1.- Para empezar, seleccione '''Archivo''' >''' Exportar''' y elija '''Documento HTML''' como formato de archivo.
:2.- Cree una carpeta para los archivos, póngale un nombre al archivo HTML resultante, y haga clic en '''Guardar'''. Se abre el ''Asistente de exportación de HTML''.

{{Documentation/Note|Dependiendo del tamaño de su presentación y del número de gráficos que contenga la función de exportación HTML puede crear muchos archivos HTML, JPG,y GIF. Si simplemente la guarda en su escritorio (y no en una carpeta específica), estos archivos HTML y gráficos aparecerán dispersos por todo el escritorio. Por lo tanto, asegúrese de crear previamente una carpeta para guardar todos estos los archivos.}}

:3.- Elija el diseño de todas las páginas, bien a partir de un diseño existente, o bien creando uno nuevo. Si previamente no ha guardado un diseño, la opción ''Diseño existente'' no estará habilitada.#

[[Image:ES_CreacionPaginasWeb_009.png|center]]

:4.- Haga clic en '''Siguiente''' para seleccionar el tipo de página web que desea crear.
::* ''HTML predeterminado'': una página por diapositiva, con vínculos de navegación para moverse de una diapositiva a otra.
::* ''HTML predeterminado con frames (''marcos): una página con una barra de navegación a la izquierda, usa el título de la diapositiva como vínculo de navegación. Haga clic en los vínculos y se mostrarán las páginas a la derecha.
::* ''Automático'': una página por diapositiva, cada una de ellas con la meta etiqueta ''Refresh'' configurada para que los navegadores automáticamente pasen de una página a otra.
::* ''WebCast'': genera una aplicación ASP o Perl para mostrar las diapositivas. Lamentablemente OOo aún no ha implementado PHP.

[[Image:ES_CreacionPaginasWeb_008.png|center]]

:5.- Decida el formato en el que se guardarán las imágenes (PNG, GIF, o JPG) y la resolución que usarán.Al elegir una resolución, tenga en cuenta la que usarán la mayor parte de las visitas a su web. Si usa una resolución alta, entonces una visita con un monitor de resolución media tendrá que utilizar las barras de desplazamiento para ver la diapositiva completa, lo cual no es muy aconsejable.

[[Image:ES_CreacionPaginasWeb_007.png|center]]

:6.- Si en el paso 4 se eligió ''Crear portada'', complete la información correspondiente en la página siguiente. La información de portada contiene el nombre del autor, dirección de correo-e, y página web, además de cualquier otra información que desee incluir.Esta página del asistente no se muestra si no se ha elegido la opción ''Crear portada''.

:7.- Elija el estilo que va a aplicar a los botones de navegación que le permitirán desplazarse de una página a otra. Si no elije ninguno, OOo creará un navegador de texto.

[[Image:ES_CreacionPaginasWeb_014.png|center]]

:8.- Seleccione la combinación de colores que va a aplicar a las páginas web. Las combinaciones disponibles incluyen la combinación del documento actual, otra basada en los colores del navegador y una combinación totalmente definida por el usuario. Puede guardar una nueva combinación para que aparezca en la primera página del asistente de exportación de HTML.

[[Image:ES_CreacionPaginasWeb_020.png|center]]

:9.- Haga clic en '''Crear''' para generar los archivos HTML. Si se trata de un diseño nuevo, se abrirá un pequeño cuadro de diálogo. En caso de que deseara volver a usar este diseño, puede darle un nombre y guardarlo. O bien, haga clic en '''No guardar'''.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

File:ES CreacionPaginasWeb 020.png

2013-05-01T19:49:22Z

Salva:

File:ES CreacionPaginasWeb 014.png

2013-05-01T19:49:12Z

Salva:

File:ES CreacionPaginasWeb 007.png

2013-05-01T19:49:01Z

Salva:

File:ES CreacionPaginasWeb 008.png

2013-05-01T19:48:50Z

Salva:

File:ES CreacionPaginasWeb 009.png

2013-05-01T19:48:37Z

Salva:

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarCalcComoPaginasWeb

2013-05-01T19:45:57Z

Salva: Created page with "{{DISPLAYTITLE:Guardar hojas de cálculo Calc como páginas web}} Calc puede guardar archivos como documentos HTML. Al igual que para Writer, use '''Archivo''', > '''Guardar c..."

{{DISPLAYTITLE:Guardar hojas de cálculo Calc como páginas web}}
Calc puede guardar archivos como documentos HTML. Al igual que para Writer, use '''Archivo''', > '''Guardar como''' y seleccione '''Documento HTML''', o '''Archivo''' > '''Asistentes''' > '''Página Web'''.

Si el archivo contiene más de una hoja, el resto de las hojas irán de forma consecutiva en el archivo HTML. Los vínculos a cada hoja se ubicarán en la parte superior del documento. Calc también permite insertar vínculos directamente en la hoja de cálculo usando el cuadro de diálogo Hiperenlace.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb

2013-05-01T19:45:17Z

Salva:

{{DISPLAYTITLE:Creación de páginas Web}}
{{ES/AyudaWiki/Borrador}}

<big>'''Contenido:'''</big>
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/Introduccion|Introducción]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos|Insertar hipervínculos]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos#Usar el Navegador|Usar el Navegador]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos#Usar el diálogo de Hipervinculo|Usar el diálogo de Hipervínculo]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/EditarHipervinculos|Editar hipervínculos]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb|Guardar documentos Writer como páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb#Guardar un documento como una única página web|Guardar un documento como una única página web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb#Guardar un documento como una serie de páginas web|Guardar un documento como una serie de páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb#Crear páginas web usando un asistente|Crear páginas web usando un asistente]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarCalcComoPaginasWeb|Guardar hojas de cálculo Calc como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarImpressComoPaginasWeb|Guardar presentaciones Impress como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDrawComoPaginasWeb|Guardar documentos Draw como páginas web]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb

2013-05-01T19:41:51Z

Salva: Created page with "{{DISPLAYTITLE:Guardar documentos Writer como páginas web}} Las funcionalidades del HTML de Writer incluyen guardar documentos existentes en formato HTML, crear nuevos docume..."

{{DISPLAYTITLE:Guardar documentos Writer como páginas web}}
Las funcionalidades del HTML de Writer incluyen guardar documentos existentes en formato HTML, crear nuevos documentos como HTML (no descrito aquí) y crear diversos tipos de páginas web con la ayuda de un asistente.

La forma más fácil de crear documentos HTML es empezar con un documento Writer existente. Puede hacerse una idea de qué aspecto tendrá como página web usando '''Ver > Diseño para Internet'''. Sin embargo, la vista de diseño web no le mostrará qué características se guardarán correctamente o no en HTML. En la introducción a este capítulo se describen algunos aspectos a tener en cuenta.

== Guardar un documento como una única página web ==
Para guardar un documento como una única página web (en formato HTML), seleccione '''Guardar como''' en el menú '''Archivo''' y especifique '''Documento HTML''' como tipo de archivo.

{{Documentation/Note|Writer no sustituye los espacios consecutivos del documento original con el código HTML que corresponde a espacios sin interrupción. Si desea tener espacios extra en su archivo HTML o página web, tiene que insertar espacios sin interrupción en OOo. Para hacerlo, presione ''Control+Barra espaciadora'' en lugar de ''Barra espaciadora'' sólo.}}

== Guardar un documento como una serie de páginas web ==
Writer puede guardar documentos extensos como una serie de páginas web (archivos HTML) e incluir una página en la que aparezca una tabla de contenidos. Para hacerlo:

:1.- Decida qué encabezados del documento marcan el comienzo de una nueva página y asegúrese de que todos ellos tienen el mismo estilo (por ejemplo, Encabezado 1).
:2.- Seleccione '''Archivo > Enviar''' y haga clic en '''Crear documento HTML'''.
:3.- En el cuadro de diálogo (), introduzca el nombre del archivo donde desea guardar las páginas. Asimismo, especifique qué estilo se aplica a la nueva página (de acuerdo a lo que haya decidido en el paso 1).
:4.- Haga clic en '''Guardar '''para crear el documento HTML multipágina. (Para quienes estén interesados, los archivos HTML resultantes se ajustan al HTML 4 Transitional).

[[Image:ES_CreacionPaginasWeb_001.png|center]]
<center>''Figura : Crear una serie de páginas web a partir de un documento'']]</center>

== Crear páginas web usando un asistente ==
El asistente para web de OOo le permite crear varios tipos de páginas webs estándares. Para usarlo:
:1.- Seleccione '''Archivo'''> '''Asistentes '''> '''Página web'''. En la primera página del Asistente, seleccione la configuración y después haga clic en '''Siguiente'''. Si ésta es su primera página web, la única opción de configuración es ''predeterminado''.
:2.- Seleccione o busque el documento al que desea darle formato. Escoja el ''Título'', ''Resumen'' e ''Información del autor'' de entre las propiedades del documento. Si es necesario, edítelo. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_016.png|center]]

:3.- Seleccione un diseño para el sitio web haciendo clic sobre los cuadros de diseño. '''Haga clic en Siguiente'''.
:4.- Seleccione la información que se va a listar y la resolución de pantalla. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_006.png|center]]

:5.- Seleccione un estilo para la página. Use la lista desplegable para elegir diferentes estilos y combinaciones cromáticas. Puede buscar una imagen de fondo y un conjunto de iconos en la Galería. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_012.png|center]]

:6.- Introduzca información general como el Título y los Metadatos HTML. Haga clic en '''Siguiente'''.

[[Image:ES_CreacionPaginasWeb_010.png|center]]

:7.- Seleccione dónde guardar el archivo y obtenga una vista previa de la página si lo desea. Haga clic en '''Finalizar'''.

[[Image:ES_CreacionPaginasWeb_011.png|center]]

Para editar o ver el código HTML subyacente, abra el documento, haga clic en '''Ver '''> '''Código fuente HTML''' o haga clic sobre el icono [[Image:ES_CreacionPaginasWeb_015.png]] '''Código fuente HTML''' en la barra de herramientas Principal.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

File:ES CreacionPaginasWeb 015.png

2013-05-01T19:40:47Z

Salva:

File:ES CreacionPaginasWeb 011.png

2013-05-01T19:40:36Z

Salva:

File:ES CreacionPaginasWeb 010.png

2013-05-01T19:39:37Z

Salva:

File:ES CreacionPaginasWeb 012.png

2013-05-01T19:39:25Z

Salva:

File:ES CreacionPaginasWeb 006.png

2013-05-01T19:39:13Z

Salva:

File:ES CreacionPaginasWeb 016.png

2013-05-01T19:39:02Z

Salva:

File:ES CreacionPaginasWeb 001.png

2013-05-01T19:38:52Z

Salva:

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/EditarHipervinculos

2013-05-01T19:34:41Z

Salva: Created page with "{{DISPLAYTITLE:Editar hipervínculos}} Para editar un hipervínculo, haga clic en cualquier parte del vínculo y a continuación abra el cuadro de diálogo haciendo clic en el..."

{{DISPLAYTITLE:Editar hipervínculos}}
Para editar un hipervínculo, haga clic en cualquier parte del vínculo y a continuación abra el cuadro de diálogo haciendo clic en el icono '''Hiperenlace''' en la barra de herramientas estándar o seleccionando '''Editar > Hiperenlace''' en la barra de menú. Realice los cambios y haga clic en '''Aplicar'''. Si tiene que editar varios hiperenlaces, puede dejar abierto el cuadro de diálogo de Hiperenlace hasta que haya terminado de editarlos todos. Asegúrese de hacer clic en '''Aplicar''' en cada uno de ellos. Cuando haya finalizado, haga clic en '''Cerrar'''.

La conducta estándar (predeterminada) para activar hiperenlaces en OOo es usar Ctrl+clic. Esta conducta puede modificarse en '''Herramientas >Opciones > OpenOffice.org >Seguridad > Opciones '''desmarcando la opción '''Requerir Ctrl-clic para visitar hipervínculos'''. Si al hacer clic en los vínculos, éstos se activan, compruebe la página web para ver si ha desmarcado la opción.

Para cambiar el color de los hiperenlaces vaya a '''Herramientas > Opciones >OpenOffice.org > Apariencia''', baje hasta Vínculos no visitados o Vínculos visitados, elija los nuevos colores y haga clic en '''Aceptar'''. De esta forma cambiará el color para todos los hiperenlaces en todos los componentes de OOo.

En Writer y Calc (no en Draw ni en Impress), también puede modificar el estilo de caracteres del vínculo de Internet o definir y aplicar nuevos estilos a los vínculos seleccionados.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb

2013-05-01T19:33:58Z

Salva:

{{DISPLAYTITLE:Creación de páginas Web}}
{{ES/AyudaWiki/Borrador}}

<big>'''Contenido:'''</big>
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/Introduccion|Introducción]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos|Insertar hipervínculos]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos#Usar el Navegador|Usar el Navegador]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos#Usar el diálogo de Hipervinculo|Usar el diálogo de Hipervínculo]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/EditarHipervinculos|Editar hipervínculos]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb|Guardar documentos Writer como páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb#Guardar un documento como una única página web|Guardar un documento como una única página web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWebGuardarDocumentosWriterComoPaginasWeb#Guardar un documento como una serie de páginas web|Guardar un documento como una serie de páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb#Crear páginas web usando un asistente|Crear páginas web usando un asistente]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarCalcComoPaginasWeb|Guardar hojas de cálculo Calc como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarImpressComoPaginasWeb|Guardar presentaciones Impress como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDrawComoPaginasWeb|Guardar documentos Draw como páginas web]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos

2013-05-01T19:30:47Z

Salva: Created page with "{{DISPLAYTITLE:Insertar hipervínculos}} Cuando escriba un texto (como por ejemplo una dirección web o URL) que se puede usar como hipervínculo y a continuación presione la..."

{{DISPLAYTITLE:Insertar hipervínculos}}
Cuando escriba un texto (como por ejemplo una dirección web o URL) que se puede usar como hipervínculo y a continuación presione la barra espaciadora o la tecla Intro, OOo crea automáticamente el hipervínculo y le aplica el formato al texto (normalmente color y subrayado). Si no ocurre así, puede habilitar esta característica usando '''Herramientas > Opciones de autocorrección > Opciones '''y seleccionando la opción de '''Reconoce URL'''.

Si no desea que OOo convierta una URL concreta en un hipervínculo, seleccione '''Editar > Deshacer Insertar''' desde la barra de menú o presione ''Control+Z'' inmediatamente después de que se haya aplicado el formato.

{{Documentation/Note|Los hipervínculos entre documentos pueden establecerse como relativos o absolutos, usando la opción '''Guardar URLs relativas a''' en '''Herramientas >Opciones > Cargar/Guardar > General'''.

Establecer vínculos relativos sólo es posible si el documento sobre el que trabaja y el enlace destino están en el mismo disco, y tiene que crear la misma estructura de directorio en su disco duro que se aplicará al sitio web destino.

OOo usa nombres de ruta absolutos en su sistema interno, así que al mover el cursor del ratón sobre un hipervínculo, la ayuda activa muestra la referencia absoluta a pesar de que esté establecido como vínculo relativo.}}

También puede insertar hipervínculos usando el Navegador y el cuadro de diálogo de Hiperenlace y modificar todos los hipervínculos usando el cuadro de diálogo de Hiperenlace, tal y como se describe en esta sección.

== Usar el Navegador ==
La forma más fácil de insertar un hipervínculo en otra parte del mismo documento es usando el Navegador:

:1.- Abra los documentos que contienen los elementos que desea referenciar.
:2.- Abra el Navegador haciendo clic en el icono [[Image:ES_CreacionPaginasWeb_021.png]], seleccionando '''Ver >Navegador''', o presionando {{Key|F5}}.
:3.- Haga clic sobre la flecha junto al icono '''Modo Arrastrar''', y seleccione '''Insertar como hiperenlace'''.
:4.- En la lista al final del Navegador, seleccione el documento que contiene el elemento que desea referenciar.
:5.- En la lista del Navegador, seleccione el elemento que desea insertar como hipervínculo.
:6.- Arrastre el elemento hasta donde desea insertar el hipervínculo en el documento. El nombre del elemento se inserta en el documento como un hipervínculo activo.

[[Image:ES_CreacionPaginasWeb_003.png|center]]
<center>''Figura : Insertar un hipervínculo usando el Navegador''</center>

Cuando use el Navegador para establecer un hipervínculo con un objeto como por ejemplo un gráfico y desee que el hipervínculo muestre un texto útil, como ''Figura 6'', tiene que darle a esos objetos nombres útiles en lugar de dejarlos con los nombres por defecto (“Gráficos6”), o bien tiene que editar el texto del enlace resultante usando el diálogo de Hipervínculo, como se describe a continuación.

Igualmente puede usar el Navegador para insertar un hipervínculo desde un documento (el documento fuente) hasta un sitio concreto de otro documento (el documento meta). Abra el Navegador en el documento meta y arrastre el elemento hasta el lugar del documento donde desea que aparezca el hipervínculo.

== Usar el diálogo de Hipervínculo ==
Para mostrar el cuadro de diálogo, haga clic en el icono [[Image:ES_CreacionPaginasWeb_004.png]] '''Hiperenlace''' en la barra de herramientas Estándar o seleccione '''Insertar >Hiperenlace''' desde la barra de menú. Para convertir un texto existente en un vínculo, subráyelo antes de abrir el cuadro de diálogo.

En la parte de la izquierda, seleccione uno de los cuatro tipos de hiperenlace:

:* '''Internet''': una dirección web, normalmente comienza por http://
:* '''Correo y noticias''': Por ejemplo una dirección de correo electrónico.
:* '''Documento''': el hiperenlace apunta a otro documento o a otro lugar del documento actual.
:* '''Nuevo documento''': el hiperenlace crea un nuevo documento.

[[Image:ES_CreacionPaginasWeb_002.png|center]]
<center>''Figura : El cuadro de diálogo de Hiperenlace muestra detalles sobre vínculos de Internet''</center>

La parte superior derecha del cuadro de diálogo cambia según el tipo de hiperenlace seleccionado. Una descripción completa de todas las opciones y de sus interacciones sobrepasa el propósito de este capítulo. Aquí se incluye un resumen de las opciones más comunes.

Para un hiperenlace del tipo ''Internet'', seleccione el tipo de hiperenlace (elija entre Web, FTP o Telnet), e introduzca la dirección web requerida (URL).

Para un hipervínculo del tipo ''Correo y noticias'', especifique si se trata de un vínculo de correo o de noticias, la dirección del destinatario y, para el correo, el asunto también.

Para un hipervínculo del tipo ''Documento'', especifique la ruta del documento (el botón '''Abrir archivo''' abre un buscador de archivos), déjelo en blanco si desea enlazar a un destino en el mismo documento. Tiene la opción de especificar el destino en el documento (por ejemplo una diapositiva en concreto). Haga clic en el icono '''Destino''' para abrir el Navegador donde puede seleccionar el destino, o si conoce el nombre, puede introducirlo en la caja.

Para un hipervínculo del tipo ''Nuevo documento'', especifique si desea editar inmediatamente el documento recién creado ('''Editar ahora''') o sólo crearlo ('''Editar más tarde'''), y el tipo de documento que va a crear (texto, hoja de cálculo, etc.). El botón '''Seleccionar ruta''' abre un listado de directorios.

La sección ''Otras opciones'' en la parte inferior derecha del cuadro de diálogo es común a todos los tipos de hiperenlaces, aunque algunas opciones son más relevantes para determinados tipos de enlaces.

:* Establezca el valor de '''Frame''' para determinar la forma en que se abrirá el hiperenlace. Se aplica a documentos que se abren en un navegador Web.
:* '''Forma''' especifica si se va a presentar el vínculo como texto o como botón.
:* '''Texto''' especifica el texto que será visible para el usuario.
:* '''Nombre '''que se aplicará a los documentos HTML. Especifica el texto que se agregará como atributo NAME en el código HTML subyacente.
:* '''Acontecimientos''': este botón [[Image:ES_CreacionPaginasWeb_018.png]] se activará para permitir que OOo reaccione a eventos para los que el usuario ha escrito algún código (macro). Este libro no trata esta función.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

File:ES CreacionPaginasWeb 018.png

2013-05-01T19:30:02Z

Salva:

File:ES CreacionPaginasWeb 002.png

2013-05-01T19:29:42Z

Salva:

File:ES CreacionPaginasWeb 004.png

2013-05-01T19:29:27Z

Salva:

File:ES CreacionPaginasWeb 003.png

2013-05-01T19:29:07Z

Salva:

File:ES CreacionPaginasWeb 021.png

2013-05-01T19:28:52Z

Salva:

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/Introduccion

2013-05-01T19:13:49Z

Salva: Created page with "{{DISPLAYTITLE:Introducción}} Este capítulo describe cómo hacer en Writer, Calc, Draw e Impress lo siguiente: :* Crear hipervínculos dentro de un documento y a otros docu..."

{{DISPLAYTITLE:Introducción}}
Este capítulo describe cómo hacer en Writer, Calc, Draw e Impress lo siguiente:

:* Crear hipervínculos dentro de un documento y a otros documentos como páginas web, PDFs y otros archivos.
:* Guardar documentos como páginas web (documentos HTML).

Cuando cree un documento que tenga pensado enviar como página web, tenga en cuenta lo siguiente:

:* En un documento HTML, los hipervínculos están activos (al hacer clic sobre ellos) pero otras referencias cruzadas insertadas por OOo no son vínculos activos.
:* Un objeto como por ejemplo una imagen se guarda como un archivo separado. Sin embargo, si ese objeto se ha colocado en una macro (por ejemplo, con un título asociado), no se guarda y no aparecerá en el documento HTML, aparecerá en su lugar el nombre del marco.

[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb

2013-05-01T19:11:24Z

Salva: Created page with "{{DISPLAYTITLE:Creación de páginas Web}} {{ES/AyudaWiki/Borrador}} <big>'''Contenido:'''</big> *[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Dere..."

{{DISPLAYTITLE:Creación de páginas Web}}
{{ES/AyudaWiki/Borrador}}

<big>'''Contenido:'''</big>
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor|Derechos de autor]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/Introduccion|Introducción]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/InsertarHipervinculos|Insertar hipervínculos]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/UsarNavegador|Usar el Navegador]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/UsarDialogoHipervinculo|Usar el diálogo de Hipervínculo]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/EditarHipervinculos|Editar hipervínculos]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentosWriterComoPaginasWeb|Guardar documentos Writer como páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentoComoUnicaPaginaWeb|Guardar un documento como una única página web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDocumentoComoSeriePaginasWeb|Guardar un documento como una serie de páginas web]]
:*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/CrearPaginasWebUsandoAsistente|Crear páginas web usando un asistente]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarCalcComoPaginasWeb|Guardar hojas de cálculo Calc como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarImpressComoPaginasWeb|Guardar presentaciones Impress como páginas web]]
*[[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/GuardarDrawComoPaginasWeb|Guardar documentos Draw como páginas web]]

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb/DerechosDeAutor

2013-05-01T19:00:12Z

Salva: Created page with "{{DISPLAYTITLE:Derechos de autor}} __NOTOC__ Este documento es Copyright © 2005–2010 de los colaboradores que se enumeran en la sección titulada '''Autores'''. Puede distr..."

{{DISPLAYTITLE:Derechos de autor}}
__NOTOC__
Este documento es Copyright © 2005–2010 de los colaboradores que se enumeran en la sección titulada '''Autores'''. Puede distribuirlo o modificarlo bajo los términos de la versión 3, o posterior, de la '''Licencia Pública General de GNU''', o de la versión 3.0, o posterior, de la '''Licencia de Atribución Creative Commons'''.

Todos los marcas comerciales de esta guía pertenecen a sus legítimos propietarios.

== Autores ==

Agnes Belzunce

Peter Hillier-Brook

Ian Laurenson

Peter Kupfer

Jean Hollis Weber

Linda Worthington

== Traducción ==

Inma Barrios

Juan C. Sanz

== Evaluación del producto ==

Dirija cualquier comentario o sugerencia sobre este documento a: [mailto:authors@user-faq.openoffice.org authors@user-faq.openoffice.org]

== Reconocimientos ==

Este capítulo se basa en un artículo de Ralph Krause, titulado “Cómo Crear páginas web con Openoffice.org”. El documento original se encuentra disponible en: http://www.linuxjournal.com/article.php?sid=6289

== Fecha de publicación y versión de software ==

Publicado el 1 de febrero de 2010 Basado en OpenOffice.org 3.2.

[[Category:ES]][[Category:Manuales]][[Category:ES/Creación páginas Web]]

ES/Manuales/GuiaAOO

2013-05-01T18:53:43Z

Salva:

{{DISPLAYTITLE:Guía de introducción al uso de Apache OpenOffice}}

Si bien Apache OpenOffice está formado por muchos componentes (Writer, Calc, Draw, Impress, Math, Base) todos estos comparten muchas características en su interfaz gráfica. Es por esto que podremos comenzar a hablar sobre Apache OpenOffice (de ahora en más, AOO) primero en forma general, para luego dar «ejemplos» que expliquen las particularidades de cada aplicación.

Es recomendable, sobre todo para el nuevo usuario, familiarizarse con los primeros capítulos de esta guía antes de buscar información específica de cada componente, ya que todas las guías siguientes harán referencia a las de base.

<big>'''Índice'''</big>

# [[ES/Manuales/GuiaAOO/UI|La interfaz de AOO]]
# [[ES/Manuales/GuiaAOO/Formato|Dando forma a un documento]]
# [[ES/Manuales/GuiaAOO/BuscarReemplazar|Buscar y reemplazar]]
# [[ES/Manuales/GuiaAOO/AutoCorr|Opciones de autocorrección]]
# Formatos de archivo soportados
# [[ES/Manuales/GuiaAOO/Extensiones|Extensiones: agregando características a AOO]]
# [[ES/Manuales/GuiaAOO/Opciones|Opciones generales del programa]]
# [[ES/Manuales/GuiaAOO/Writer|Writer]]
## [[ES/Manuales/GuiaAOO/Writer/Intro|Conociendo Writer]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Contenido|Editando texto]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Tablas|Tablas]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Img_OLE|Imágenes y objetos OLE]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Marcos|Marcos]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Secciones|Secciones]]
### [[ES/Manuales/GuiaAOO/Writer/Intro/Autotexto|Autotextos]]
## [[ES/Manuales/GuiaAOO/Writer/Estilos|Estilos en Writer]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Texto|Estilos de párrafo y carácter]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Marco|Estilos de Marco]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Pagina|Estilos de página]]
### [[ES/Manuales/GuiaAOO/Writer/Estilos/Lista|Estilos de lista]]
## [[ES/Manuales/GuiaAOO/Writer/Campos|Numeración de páginas, campos, variables y referencias cruzadas]]
## [[ES/Manuales/GuiaAOO/Writer/NumCap|Organizando y numerando capítulos]]
## [[ES/Manuales/GuiaAOO/Writer/NotasPieFinal|Notas al pie de página / notas al final]]
## [[ES/Manuales/GuiaAOO/Writer/Navegador|El navegador]]
## [[ES/Manuales/GuiaAOO/Writer/TOC|Índices]]
## [[ES/Manuales/GuiaAOO/Writer/DocMaestros|Documentos maestros]]
# [[ES/Manuales/GuiaAOO/Calc|Calc]]
## [[ES/Manuales/GuiaAOO/Calc/Intro|Conociendo Calc]]
## Estilos en Calc
## ...
# Impress
## Conociendo Impress
## Estilos en Impress
## ...
# [[ES/Manuales/GuiaAOO/Draw|Draw]]
## Conociendo Draw
## Estilos en Draw
## [[ES/Manuales/GuiaAOO/Draw/Herramientas|Herramientas de Draw]]
### [[ES/Manuales/GuiaAOO/Draw/Herramientas/Bezier|Curvas Bézier]]
### ...
# [[ES/Manuales/GuiaAOO/Math|Math]]
## [[ES/Manuales/GuiaAOO/Math/InsertarMath|Usando Math en los otros componentes]]
## [[ES/Manuales/GuiaAOO/Math/FormatoMath|Formato de los objetos Math]]
## [[ES/Manuales/GuiaAOO/Math/Sintaxis|Elementos de sintaxis de Math]]
## [[ES/Manuales/GuiaAOO/Math/SimbolosMath|Insertar símbolos en Math]]
## [[ES/Manuales/GuiaAOO/Math/ComandosMath|Lista de comandos Math]]
# [[ES/Manuales/GuiaAOO/Base|Base]]
## [[ES/Manuales/GuiaAOO/Base/Introduccion|Introducción]]
## [[ES/Manuales/GuiaAOO/Base/PlanificarBaseDatos|Planificar una base de datos]]
## [[ES/Manuales/GuiaAOO/Base/CrearBaseDatosNueva|Crear una base de datos nueva]]
## [[ES/Manuales/GuiaAOO/Base/CrearTablas|Crear tablas]]
## [[ES/Manuales/GuiaAOO/Base/DefinirRelaciones|Definir relaciones]]
## [[ES/Manuales/GuiaAOO/Base/CrearFormularioBDD|Crear un formulario de base de datos]]
## [[ES/Manuales/GuiaAOO/Base/AccederOtrasBDD|Acceder a otras bases de datos]]
## [[ES/Manuales/GuiaAOO/Base/UsarFuentesDatosOOO|Usar fuentes de datos en OpenOffice.org]]
## [[ES/Manuales/GuiaAOO/Base/IntroducirDatosFormulario|Introducir datos en un formulario]]
## [[ES/Manuales/GuiaAOO/Base/CrearConsultas|Crear consultas]]
## [[ES/Manuales/GuiaAOO/Base/CrearInformes|Crear informes]]
# [[ES/Manuales/GuiaAOO/TemasAvanzados|Temas avanzados]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros|Macros]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/StarBasic|StarBasic]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/Python|Python]]
### [[ES/Manuales/GuiaAOO/TemasAvanzados/Macros/JavaScript|JavaScript]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/Extensiones|Extensiones]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/RegExp|Expresiones regulares]]
## [[ES/Manuales/GuiaAOO/TemasAvanzados/CreacionPaginasWeb|Creación de páginas web]]
# [[ES/Manuales/GuiaAOO/Integrar|Integrando componentes]]
## Combinación de correspondencia
## La base de datos bibliográfica
## ...

[[Category:ES]][[Category:Manuales]]

ES/Manuales/GuiaAOO/Base/CrearInformes

2013-05-01T15:30:35Z

Salva: Created page with "{{DISPLAYTITLE:Crear informes}} Los informes proporcionan de forma útil la información que se encuentra en la base de datos, de forma similar a las consultas. Los informes s..."

{{DISPLAYTITLE:Crear informes}}
Los informes proporcionan de forma útil la información que se encuentra en la base de datos, de forma similar a las consultas. Los informes se generan desde las tablas o consultas de la base de datos. Pueden contener todos los campos de la tabla o consulta, o solamente un grupo seleccionado de campos. Los informes pueden ser estáticos o dinámicos. Los informes estáticos contienen los datos de los campos seleccionados en el momento de generar el informe mientras que los dinámicos se pueden actualizar para que muestren los últimos datos.

Por ejemplo, un informe de gastos de unas vacaciones en el pasado podría ser un informe estático porque está basado en datos específicos que no cambian. Sin embargo, un informe de datos de combustible sería probablemente un informe dinámico porque depende de datos que cambian.

{{Documentation/Caution| Los informes dinámicos actualizan sólo los ''datos'' que se cargan o añaden a la tabla o consulta. '''No''' muestran ningún cambio hecho a la tabla o la consulta en sí. Por ejemplo, después de crear el ejemplo siguiente, abra la consulta Consumo combustible creada antes. Cambie el número 1 por el número 3 en la columna “Lecturas‑finales”.”Cuentakilómetros” – “Combustible”.Cuentakilómetros”. El informe será idéntico antes y después de que haga los cambios}}

Todos los informes se basan en una tabla o consulta única. Por eso, debe decidir qué campos quiere usar en el informe. Si quiere usar campos de diferentes tablas, antes debe combinar esos campos en una única consulta, después puede crear un informe basado en esa consulta.

Por ejemplo, un informe de gastos de vacaciones incluye gastos de combustible y gastos de comida. Estos campos están contenidos en dos tablas diferentes: Vacaciones y Combustible y, por lo tanto, se necesita crear una consulta.

== Crear un informe estático ==
Crearemos un informe de gastos de vacaciones. Es necesario contestar algunas preguntas antes de crear el informe.

:* ¿Qué información queremos en el informe?
:* ¿Cómo queremos ordenar la información?
:* ¿Qué campos se necesitan para proporcionar esta información?
:* ¿Es necesario crear una consulta porque estos campos están en tablas diferentes?
:* ¿Se necesita algún cálculo en los datos antes de añadirlos al informe?

Los gastos de nuestras vacaciones son motel, peajes, misceláneos, desayuno, almuerzo, cena, tapas y combustible. Un posible informe simplemente mostraría una lista con los totales de cada uno de estos grupos de gastos. Otro informe posible mostraría los gastos totales para cada día de las vacaciones. Un tercer informe mostraría los totales para cada grupo de gastos por tipo de pago (esto nos permitiría saber de dónde vino el dinero para pagar los gastos). La mejor manera de crear informes como éstos es crear las consultas necesarias para obtener los datos que se requieren, insertar los datos en una hoja de cálculo y utilizar las funciones de Calc que se necesiten en estos datos.

Crearemos dos informes, uno con la lista de gastos distintos de cada día del combustible y otro con los gastos de combustible de cada día.

Los datos que necesitamos para el primer informe de la tabla Vacaciones son: Fecha, Motel, Peaje, Desayuno, Almuerzo, Cena, CosteTapas y Misceláneos. Este informe no requiere una consulta adicional.

El segundo informe utiliza la tabla Combustible. Puesto que esta tabla contiene gastos de combustible de otros momentos diferentes a las vacaciones, necesitamos crear una consulta que contenga sólo gastos de combustible realizados en las vacaciones.

=== Informe de la tabla Vacaciones ===
Para crear un informe nuevo:

:1.- Pulse el icono ''Informes'' en la lista Base de datos en la ventana Automóvil – OpenOffice.org (ver imagen).
:2.- En la lista Tareas pulse '''Usar el asistente para crear informe'''. Se abre el Asistente para informes.

==== Paso 1: selección de campos ====

:1.- Seleccione ''Tabla:Vacaciones'' en la lista desplegable Tabla o consulta.
:2.- Utilice '''>''' para mover estos campos desde la lista ''Campos disponibles'' a la lista ''Campos del informe'': Fecha, Motel, Peajes, Misceláneos, Desayuno, Almuerzo, Cena y CosteTapas (ver imagen). Haga clic en '''Siguiente'''.

[[Image:Es_Base_044.png|center]]
<center>''Figura : añadir campos a un informe''</center>

==== Paso 2: poner etiquetas a los campos ====

Cambie las etiquetas de los campos que desee. Acortaremos Misceláneos a Misc. Haga clic en '''Siguiente'''.

==== Paso 3: agrupar ====

Puesto que estamos agrupando por fecha, utilice el botón '''>''' para mover el campo ''Fecha'' a la lista Agrupaciones. Pulse '''Siguiente'''.

[[Image:Es_Base_043.png|center]]
<center>''Figura : seleccionar campos para agrupar datos''</center>

==== Paso 4: opciones para ordenar ====

No queremos ordenar nada más. Haga clic en '''Siguiente'''.

==== Paso 5: selección del diseño ====

Utilice las opciones predeterminadas para el diseño. Pulse '''Siguiente'''.

==== Paso 6: crear el informe ====

::* Ponga el título del informe: Gastos vacaciones.
::* Seleccione Informe estático.
::* Haga clic en '''Finalizar'''.

{{Documentation/Note|Si se siente con espíritu aventurero, pruebe a seleccionar algún otro diseño. Después de seleccionar una opción, arrastre la ventana asistente para formularios para quitarla de en medio y poder ver lo que ha seleccionado. Para mover la ventana, ponga el cursor sobre la barra de título y arrástrela}}

=== Informe Combustible vacaciones ===
:1.- Cree una consulta que contenga sólo el combustible comprado en los días de vacaciones.

::1.1.- Abra una consulta en vista diseño.
::1.2.- Siga los pasos para añadir tablas en “(REFERENCE TEXT UNAVAILABLE: "Añadir tablas")“ en la página (REFERENCE TEXT UNAVAILABLE: "Añadir tablas") para añadir la tabla Combustible.
::1.3.- En la tabla Combustible, haga doble clic en ''Fecha'' y ''CosteCombustible'' para añadirlos en la tabla que hay debajo de la consulta.
::1.4.- En la celda Criterio del campo Fecha, escriba lo siguiente: ENTRE #25/05/2007# Y #26/05/2007#

[[Image:Es_Base_042.png|center]]
<center>''Figura : configurar el criterio para una consulta''</center>

:2.- Guarde la consulta indicando un nombre y ciérrela (sugerencia: ''Gastos combustible vacaciones'').

{{Documentation/Note
| Cuando use fechas en una consulta, introdúzcalas en forma numérica MM/DD/AAAA o DD/MM/AAAA dependiendo de la configuración por defecto para las fechas de su idioma (mi configuración por defecto es DD/MM/AAAA).

Cada fecha debe tener una # delante y otra detrás. Por lo tanto 25 de mayo de 2007 se escribe #25/05/2007# o #05/25/2007# dependiendo de la configuración para fechas de su idioma}}

:3.- Abra un informe nuevo:

::* Haga clic con el botón secundario sobre la consulta ''Gastos combustible vacaciones''.
::* Seleccione Asistente para informes en el menú contextual.

{{Documentation/Note|Cuando se abre un informe de este modo, la consulta utilizada para abrirlo se selecciona automáticamente en la lista del cuadro combinado Tabla o consulta del Asistente para informes}}

:4.- Cree el informe.<br/> Utilice '''>>''' para mover ambos campos de la lista ''Campos disponibles'' a la lista ''Campos del informe''. Haga clic en '''Siguiente'''.
:5.- Ponga etiquetas a los campos.<br/> Añada un espacio a CosteCombustible para hacerlo Coste Combustible (dos palabras). Pulse '''Siguiente'''.
:6.- Agrupe campos.<br/> Pulse en Fecha para resaltarlo. Utilice '''>''' para mover el campo Fecha a la lista Agrupaciones. Pulse '''Siguiente'''.
:7.- Selección del diseño.<br/> No haremos cambios en el diseño. Haga clic en '''Siguiente'''.
:8.- Cree el informe (ajustes finales).

::* Utilice el nombre sugerido, que es el mismo que el de la consulta.
::* Seleccione Informe estático. Haga clic en '''Finalizar'''.

== Crear un informe dinámico ==
Ahora crearemos un informe con algunas estadísticas de consumo de combustible. Para hacer esto tenemos que modificar dos consultas: Lecturas-finales y Consumo combustible. Añadiremos el campo CosteCombustible a la consulta Lecturas-finales. Posteriormente añadiremos el campo CosteCombustible desde la consulta Lecturas‑finales a la consulta Consumo combustible.

{{Documentation/Note
| Si abre una consulta para editarla, podría aparecer como en la imagen. Si mueve el cursor sobre la línea negra (rodeada en rojo), se convierte en una doble flecha. Arrástrela a una posición inferior}}

[[Image:Es_Base_041.png|center]]
<center>''Figura : aspecto de una consulta al abrirla para editarla''</center>

:1.- Añada el campo ''CosteCombustible'' a la consulta Lecturas-finales:

::1.1.- Haga clic con el botón secundario sobre la consulta ''Lecturas‑finales'' y seleccione '''Editar''' en el menú contextual.
::1.2.- En la lista de la tabla Combustible, haga doble clic para añadir CosteCombustible a la tabla de la parte inferior (ver imagen).
::1.3.- Guarde y cierre la consulta.

[[Image:Es_Base_040.png|center]]
<center>''Figura : añadir un campo a la consulta''</center>

:2.- Añada el campo ''CosteCombustible'' desde la consulta Lecturas‑finales a la consulta Consumo combustible:

::* Haga clic con el botón secundario sobre la consulta ''Consumo combustible'' y seleccione '''Editar''' en el menú contextual.
::* Haga doble clic sobre el campo ''CosteCombustible'' en la lista de la consulta Lecturas‑finales para añadirlo a la tabla de la consulta en la parte inferior.

:3.- Añada un campo calculado a la derecha del campo CosteCombustible.

::* Escriba lo siguiente en la celda Campo de la tabla inferior:<br/> "Lecturas-finales"."CosteCombustible" / ( "Lecturas‑finales"."Cuentakilómetros" - "Combustible"."Cuentakilómetros" )
::* Escriba lo siguiente en su celda Alias: coste por milla

{{Documentation/Note|Si usa el sistema métrico, el alias apropiado es coste por km}}

:4.- Guarde y cierre la consulta.
:5.- Abra un informe nuevo.<br/> Haga clic con el botón secundario en la consulta Consumo combustible y seleccione '''Asistente para informes'''.
:6.- Seleccione los campos.<br/> Mueva todos los campos desde Campos disponibles a la lista Campos del informe. Use '''>> '''para hacerlo. Pulse '''Siguiente'''.
:7.- Ponga etiquetas a los campos.<br/> Cambie CosteCombustible a Coste Combustible escribiendo un espacio entre las palabras. Haga clic en '''Siguiente'''.
:8.- Agrupe los campos.<br/> Utilice '''>''' para mover el campo Fecha a la lista Agrupaciones. Pulse '''Siguiente'''.
:9.- Opciones de ordenación: saltar esta opción.
:10.- Selección del diseño: acepte el predeterminado. Hacer clic en '''Siguiente'''.
:11.- Cree el informe.

::* Cambie el nombre del informe a Estadísticas combustible.
::* La opción predeterminada es Informe dinámico, por lo que no se requieren cambios.
::* Seleccione Modificar diseño de informe.
::* Haga clic en '''Finalizar'''.

== Modificar un informe ==
Al final de la sección anterior, dejamos el informe Estadísticas combustible abierto en modo edición (ver imagen). Trabajaremos en este informe. Estos mismos pasos se puede usar con cualquier informe que abra para editar.

[[Image:Es_Base_039.png|center]]
<center>''Figura : un informe en modo edición''</center>

El autor es el nombre que puso en '''Herramientas >Opciones > OpenOffice.org > Datos de usuario'''. La fecha no es correcta. Es necesario mover las columnas hacia la izquierda para que tengan un aspecto mejor. Ninguno de los números son correctos, pero su único propósito es mostrar el número de decimales.

==== Paso 1: cambiar la fecha ====

:1.- Pulse a la derecha de la fecha (17/12/10), de modo que el cursor esté a continuación del campo. Utilice la tecla {{Key|Backspace}} para borrar la fecha.
:2.- '''Insertar > Campos > Fecha'''. Esto pone la fecha de hoy donde estaba la fecha original.
:3.- Cambie el formato de la fecha:

::3.1.- Haga doble clic en el campo de fecha que acaba de insertar. Se abre la ventana Editar campo:Documento (ver imagen).

[[Image:Es_Base_038.png|center]]
<center>''Figura : modificar un campo de fecha''</center>

::3.2.- Puesto que es un informe dinámico, cambie el campo Selección de Fecha (fija) a Fecha.
::3.3.- Cambie el Formato al que desee (yo he usado la opción viernes, 31 de diciembre de 1999). Haga clic en '''Aceptar'''.

==== Paso 2: cambie el ancho de las columnas ====

Se puede cambiar el ancho de las columnas moviendo el cursor sobre el borde derecho de cada columna para que se convierta en una flecha doble. Entonces arrástrelo y suéltelo donde quiera. Esto hay que hacerlo con cada columna en cada tabla del informe. También se puede hacer con la última columna de la derecha, aunque no tenga borde negro. Ahora debería parecerse al de la .

[[Image:Es_Base_037.png|center]]
<center>''Figura : volver a alinear columna en un informe''</center>

==== Paso 3: cambie el formato numérico de las celdas ====

La cantidad de combustible debería tener tres lugares decimales. El Principio, Fin y Distancia deberían tener un lugar decimal. El Coste combustible debería ser moneda y tener 2 decimales y Coste por kilómetro debería tener tres lugares decimales.

:1.- Haga clic con el botón secundario en la celda de debajo de Cantidad y seleccione '''Formato numérico''' (la celda está marcada con un círculo rojo en la )
:2.- En la sección ''Opciones'' (ver imagen),

::2.1.- Cambie el número de decimales a 3.
::2.2.- Haga clic en la marca de verificación verde. Haga clic en '''Aceptar'''.

[[Image:Es_Base_036.png|center]]
<center>''Figura : sección Opciones de la ventana de Formato de número''</center>

:3.- Cambie el campo Coste combustible.

::3.1.- Haga clic con el botón secundario en la celda que hay debajo de ''Coste combustible''.
::3.2.- Seleccione '''Formato numérico'''.
::3.3.- En la lista Categoría, seleccione ''Moneda ''y haga clic en '''Aceptar'''.

:4.- Cambie el campo Coste por kilómetro.

::4.1.- Pulse con el botón derecho en la celda que hay debajo de ''Coste por kilómetro''.
::4.2.- Seleccione '''Formato numérico'''''.''
::4.3.- En la lista Categoría, seleccione ''Moneda''.
::4.4.- En la sección Opciones:

:::* Ponga 3 en Decimales.
:::* Pulse la marca de verificación verde.

::4.5.- Haga clic en '''Aceptar'''.

==== Paso 4: guarde y cierre el informe ====

Haga doble clic en el informe. Ahora debería parecerse al de la .

[[Image:Es_Base_035.png|center]]
<center>''Figura : informe final''</center>

== Otras formas de crear informes ==
Hay disponible una extensión para ayudar en la creación de informes. ''Sun Report Builder'' crea informes elegantes y complejos. Se pueden definir grupos y cabeceras de página, grupos y pies de página y campos calculados. Lo puede obtener en [http://extensions.services.openoffice.org/ http://extensions.services.openoffice.org/].

Para instalar esta extensión, siga estos pasos:

:1.- Seleccione '''Herramientas > Administrador de extensiones''' en la barra de menú. En el diálogo Administrador de extensiones, haga clic en '''Descargar más extensiones aquí..'''
:2.- Se abrirá la página de extensiones de OOo en su navegador. Busque y seleccione la extensión que desee y siga los pasos para instalarla. Durante la instalación se le preguntará si acepta el acuerdo de licencia.
:3.- Cuando la instalación se haya completado, la extensión se mostrará en la lista del diálogo Administrador de extensiones.

Para saber más acerca de las extensiones, vea el capítulo 14 (Personalizar OpenOffice.org).

File:Es Base 044.png

2013-05-01T15:29:43Z

Salva:

File:Es Base 043.png

2013-05-01T15:29:33Z

Salva: