Recuerdo que hay un snippet en el cookbook de Pitonyak en el cual se
puede convertir de ligas remotas a ligas internas. Este script quizas
se pueda mejorar para auotmatizar el proceso en un bucle.
pagina 45 de AndrewMacro Cookbook:
5.9.1. Convert a linked graphic to an embedded graphic.
To insert an embedded graphic into a document, it must first be
inserted as a link and then
changed to an embedded object. Unfortunately, I only know how to do
this using a drawing
graphic, not a text graphic. This is unfortunate, because I have a
strong preference for a text
graphic in a Writer document so that I can anchor it as a character.
The following macro
was used while traversing the text content, to convert linked graphics
into embedded
graphics.
Listing 5.23: Insert a linked GraphicsObjectShape into the draw page.
Sub EmbedLinkedGraphic(oGraph)
REM Author: Andrew Pitonyak
Dim sGraphURL As String
Dim oGraph_2
Dim oCurs
Dim oText
Dim oAnchor
Dim s$
If InStr(oGraph.GraphicURL, "vnd.sun") <> 0 Then
REM Ignore an image that is already embedded
Exit Sub
End If
s = "com.sun.star.drawing.GraphicObjectShape"
If oGraph.supportsService(s) Then
REM I only know how to convert a GraphicObjectShape.
REM I do not know how to convert a TextGraphicObject,
REM but it is probably related to the ImageMap attribute.
oAnchor = oGraph.getAnchor()
oText = oAnchor.getText()
oGraph_2 = ThisComponent.createInstance(s)
oGraph_2.GraphicObjectFillBitmap = oGraph.GraphicObjectFillBitmap
oGraph_2.Size = oGraph.Size
oGraph_2.Position = oGraph.Position
oText.insertTextContent(oAnchor, oGraph_2, False)
oText.removeTextContent(oGraph)
End If
End Sub
De hecho hay varios ejemplos mas en ese documento despues de este.
2008/10/10 Eduardo Moreno <[EMAIL PROTECTED]>:
>
> Debes considerar que OpenOffice.org es un sistema profesional de
> colaboración enfocado en WEB 2.0, lo que implica que considera que estas
> trabajando en Internet.
>
> La forma correcta de trabajar en sistemas es conectados a la red, no en una
> máquina y transfiriendo información por USB, por eso OpenOffice.org no copia
> documentos, hace hipervínculos a información procedente de WEB.
>
> Estas confundiendo a OpenOffice.org con MS Office, quien si tiene la función
> por defecto como tu la quieres.
>
> Te dejo dos caminos:
>
> 1.- Hacer una solicitud via issue para que pongan un botón o alguna opción y
> esperar que tu solicitud sea aprobada si varios miembros de la comundad te
> apoyan.
>
> 2.- Descargar 450 US por terminal para comprar un MS Office por cada
> estación de trabajo que tengas.
>
> Por cierto, los 450 US que pagues no te eximen de una demanda, ya que en la
> licencia de MS Office esta definido que el software no podra ser arrendado,
> es decir, no puedes cobrar por usar una computadora donde tengas instalado
> MS Office.
>
> Miren, ya hasta doy asesoría legal en la lista.
>
> john cruz escribió:
>>
>> Buen día Comunidad:
>>
>> Primero que todo pido disculpas por los inconvenientes que haya podido
>> causar con mi mensaje en otras cadenas de discusión.
>>
>>
>> 1. porque los clientes hacen sus trabajos, y luego los llevan en sus
>> usb, pero al llegar a casa, no pueden ver las imagenes.aparece
>> vinculos con error.
>> 2. porque es muy dispendioso estar pendiente de quien esta haciendo
>> trabajos e interrumpirlo para romper los vinculos. (editar, vinculos,
>> interrumpir)
>> 3. en mi opinión es algo que deberia venir por defecto.
>>
>> agradezco su colaboración para el beneficio del sistema.
>>
>> considero seria un gran avance en la migración hacia openoffice.
>>
>> espero su valiosa ayuda y haber podido hacerme entender. muchas gracias
>>
>> Att. JOHN CRUZ
>>
>
>
> --
> J. Eduardo Moreno
> TOKONHU de México
> 044 55 2748 4840
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
Alexandro Colorado
OpenOffice.org Español
IM: [EMAIL PROTECTED]
