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