Procedimientos. Docap.

DOCAP. Nuevo documento

Este modo de crear un documento-aplicación (docap) ha sido yo desarrollado en la [entrada anterior], pero me interesa volver sobre él para diferenciar entre un docap creado mediante macros y otro creado utilizando OOo Basic.

La peculiaridad de este modo de trabajo es que, aparentemente, se parte un documento en blanco, aunque en realidad está "escrito" en desde el código.

Frente a aquel, en éste utilizo código OOo Basic en sustitución del que genera Grabar macro. Un ejemplos de ello es lo que podemos observar en [este docap] en el que, además de emplear expresiones OOo Basic alternativas al código macro para la escritura de texto...

Sub Escritura (sTxt As String)

Dim oText As Object

oText = ThisComponent.Text

oText.insertString(oText.getEnd(),sTxt & Chr(13) & Chr(13),False)

End Sub

... se utilizan formas complejas de la función InputBox(), los ciclos (For...Next) y el condicional (If).

For i = 0 To 6

If i<4 Then
JustificarTexto
ElseIf i>=4 Then
CentrarTexto
End If

Escritura(Parrafo(i))

If i=4 Then
SaltoLinea (2)
End If

Next

Esta forma de crear docap tiene la ventaja de que es independiente del documento concreto, con lo que es posible aplicarlo sobre cualquier documento, siempre y cuando sea del mismo tipo (esto es, del mismo servicio; por ejemplo, Writer). Además necesitamos que el código esté guardado necesariamente en "Mis macros y diálogos", no el propio documento si es que queremos utilizarlo con independencia de éste.