Foro - Perl en Español

Publicado: **2013-11-29 10:38 @485**

Sres., estoy generando un anexo técnico en formato Word pero necesito insertar unas imágenes y no me funciona tal como sale en http://search.cpan.org/~dami/MsOffice-Word-HTML-Writer-1.01/lib/MsOffice/Word/HTML/Writer.pm.

Si alguien lo ha hecho, ¡¡¡ favor orientenme !!!

Saludos.

Publicado: **2013-11-29 12:04 @544**

¿Por qué no pones el código de lo que estás haciendo?

Publicado: **2013-11-29 13:55 @621**

daminera, ¿cómo estás?

Mira, estoy intentando con el ejemplo que aparece en la documentación de la biblioteca...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

  use MsOffice::Word::HTML::Writer;
  my $doc = MsOffice::Word::HTML::Writer->new(
    title        => "My new doc",
    WordDocument => {View => 'Print'},
  );
  
  $doc->write("<p>hello, world</p>", 
              $doc->page_break, 
              "<p>hello from another page</p>");
  
  $doc->create_section(
    page => {size   => "21.0cm 29.7cm",
             margin => "1.2cm 2.4cm 2.3cm 2.4cm"},
    header => sprintf("Section 2, page %s of %s", 
                                  $doc->field('PAGE'), 
                                  $doc->field('NUMPAGES')),
    footer => sprintf("printed at %s", 
                                  $doc->field('PRINTDATE')),
    new_page => 1, # or 'left', or 'right'
  );
  $doc->write("this is the second section, look at header/footer");
  
 
  $doc->attach("my_image.gif", $path_to_my_image);
  $doc->write("<img src='files/my_image.gif'>");
  
  $doc->save_as("nombre_documento");
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo ejecuto: ./print_word.pl

y me sale un error en la consola:

Name "main::path_to_my_image" used only once: possible typo at ./print_word.pl line 26.
Use of uninitialized value $open1 in open at /usr/lib/perl5/site_perl/5.10.1/MsOffice/Word/HTML/Writer.pm line 100.
Use of uninitialized value $open1 in concatenation (.) or string at /usr/lib/perl5/site_perl/5.10.1/MsOffice/Word/HTML/Writer.pm line 100.
open : No such file or directory at ./print_word.pl line 26

Omito la línea que está en negrita y genera el doc pero sin la imagen...

Saludos.

Publicado: **2013-11-29 15:17 @679**

El mensaje de error dice que la variable $path_to_my_image es nueva para Perl, y no sabe de dónde viene. Eso quiere decir que a esa variable no se le ha dado ningún valor en ningún sitio.

El ejemplo que has copiado, desde el manual de la biblioteca, es solo eso: un ejemplo. Funciona, pero no del todo porque el autor espera que tú hayas le hayas puesto algún valor a esa variable (y así la biblioteca sabe dónde está la imagen a insertar).

Publicado: **2013-12-05 10:16 @469**

explorer... he logrado insertar una imagen a un word... ¡¡¡genial!!!

Efectivamente, la variable no tenía valor... y hacía referencia a la ruta de la imagen...

Muestro un ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use MsOffice::Word::HTML::Writer;
my $doc = MsOffice::Word::HTML::Writer->new(
    title        => "Perl En Español",
    WordDocument => {View => 'Print'},
  );
 
$doc->write("<p>http:\//www.perlenespanol.com/foro/imagen-en-word-t8403.html</p>");
 
$doc->attach("logo.jpg", "./img_gif/logo.JPG");
$doc->write("<img src='files/logo.jpg'>");
 
$doc->save_as("Word_Con_Imagen");
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tiene que copiar este código, guardarlo en un .pl, luego crean un carpeta en donde está el .pl llamada "img_gif" y ahí insertan una imagen JPG o jpg. ¡Ojo!, que el recortador de Windows 7 guarda las imágenes con su extensión con mayúscula.

¡¡¡Gracias, explorer!!!

Saludos...

Publicado: **2013-12-06 10:42 @487**

Sres., ahora estoy en otro dilema. Necesito darle la propiedad "detrás del texto" ya que necesito insertar una imagen en el header del documento lo cual ya puedo hacer pero ésta me baja el texto del documento...

Si alguien tiene alguna idea, favor avíseme...

slds..

Publicado: **2013-12-06 20:49 @909**

¿Eso se puede hacer en un documento HTML en Word? Como no sea dentro de una capa <div>, no conozco otra manera... o que Mocro$oft se haya inventado otro estándar HTML para conseguirlo, que es típico de ellos.

Foro - Perl en Español

Imagen en Word

Imagen en Word

Re: Imagen en Word

Re: Imagen en Word

Re: Imagen en Word

Re: Imagen en Word

Re: Imagen en Word

Re: Imagen en Word