Uso de Shapes , .TextFrame.TextRange.Text

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
aleferraz
Mensajes: 2
Registrado: Mar Nov 25, 2008 5:40 pm

Uso de Shapes , .TextFrame.TextRange.Text

Mensaje por aleferraz »

Estoy trabajando en un proyecto en el cual se están migrando a openoffice todas las acciones de distintas bases de Lotus Notes, en este caso estoy con la creación de etiquetas en Writer.
En la función creada para Ms-Word utiliza lo siguiente :

. Shapes(iSubEmp+j).TextFrame.TextRange.Text=DocPadre.SubEmp(0)
.Shapes(iNomEmp+j).TextFrame.TextRange.Text=docPadre.NomEmp(0)
If Not docAlmacen Is Nothing Then
Set itmDirec = docAlmacen.GetFirstItem("Direccion")
.Shapes(iDirec+j).TextFrame.TextRange.Text = itm.Text
End If
.Shapes(iContacto+j).TextFrame.TextRange.Text = doc.AutorDoc(0)
.Shapes(iNOrden+j).TextFrame.TextRange.Text = doc.NOrden(0)
.Shapes(iTelefono+j).TextFrame.TextRange.Text = doc.TelefonoContac(0)
Set itmDirec = doc.GetFirstItem("DirecFinal")

Lo que necesitaría ayuda es en saber como se utiliza .Shapes y TextFrame.TextRange

Gracias
Responder