Hola Tae
Tae Sandoval Murgan escribió:
Saludos gentes:
Acabo de darme cuenta de que si creo una tabla de contenidos ("Insert
- Indexes and Tables - Indexes and Tables..." en OOo 3) en la primera
página de un documento, y luego quiero agregar una página sobre esta,
la entrada"Manual Break" del menu "Insert" aparece bloqueada. He
intentado bajar la tabla de contenidos con el retorno de carro, así
como eliminarla, pero no pasa nada. ¿Alguna idea?
eso sucede porque pones el cursor al principio del documento, donde
ahora tienes la tabla de contenido; pero como todo índice está
representado por una sección que es read-only / sólo de lectura (fíjate
en la barra de estado al poner el cursor en la sección), las entradas de
menú que implican modificarla, están inhabilitadas.
La única solución es emplear una macro:
Sub [Insert a paragraph before the index]
Dim oDoc as Object
oDoc = ThisComponent
Dim oText as Object
oText = oDoc.getText()
Dim oCursor as Object
oCursor = oText.createTextCursorByRange( oText.getStart() )
Dim oDocumentIndex as Variant
oDocumentIndex = oCursor.getPropertyValue("DocumentIndex")
If IsNull(oDocumentIndex) OR IsEmpty(oDocumentIndex) Then
MsgBox "There is no document index at the document start"
Else
Dim oNewPara as Object
oNewPara = oDoc.createInstance("com.sun.star.text.Paragraph")
Dim oSection as Object
oSection = oDocumentIndex.ContentSection
Dim oSectionAnchorText as Object
oSectionAnchorText = oSection.getAnchor().getText()
oSectionAnchorText.insertTextContentBefore(oNewPara, oSection)
End If
End Sub
Esta macro crea un cursor de texto en el comienzo del documento, y si
ahí mismo hay un índice, inserta un nuevo párrafo vacío delante.
Para la próxima, deja un párrafo vacío, y luego inserta el índice en
otro párrafo después de él... o usa de nuevo la macro ;-)
Saludos
Ariel.
--
Ariel Constenla-Haile
La Plata, Argentina
"Aus der Kriegsschule des Lebens
- Was mich nicht umbringt,
macht mich härter."
Nietzsche Götzendämmerung, Sprüche und Pfeile, 8.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
