problema con COM y Word 2007

[navarone86]

Hola,

tengo que sustitur en un fichero word unos marcadores. tengo un codigo que funciona perfectamente en el servidor, donde esta instalado el office 2003

al lanzarlo en mi equipo, donde tengo office 2007 me da el siguiente error:

Fatal error: Uncaught exception 'com_exception' with message '<b>Source:</b> Microsoft Word<br/><b>Description:</b> El comando no está disponible porque no hay ningún documento abierto.'

mi codigo es el siguiente:

Código PHP:

$template_file = $APPCONF_RutaInformes."/plantillas/a".$nombre_plantilla.".doc";
    
    //Comprobamos que el archivo exista y sea editable  
    if(is_writable($template_file)){            
        //2. Instanciate Word
        $word = new COM("Word.Application") or die("Unable to instantiate Word");
        $word->Documents->Open($template_file);
        $word->Application->Visible = True;
        
        //Para cada equivalencia, buscamos su marcador y lo cambiamos
        foreach ($equivalencias as $dato) {
            //4. get the value
             $value = $dato[1];
             //5. get the bookmark and create a new MS Word Range (to enable text substitution)
             $bookmarkname = $dato[0];
             //Comprobamos que el marcador existe para hacer el reemplazo
             if ($word->ActiveDocument->Bookmarks->Exists($bookmarkname)){
                $objBookmark = $word->ActiveDocument->Bookmarks($bookmarkname);
                $range = $objBookmark->Range;
                //6. now substitute the bookmark with actual value
                $range->Text = no_null($value);
             }
        }
 

y la aplicación me casca concretamente en la linea:

Código PHP:

if ($word->ActiveDocument->Bookmarks->Exists($bookmarkname)){
 

por la función "$word->Documents->Open($template_file);" pasa bien, pero parece que no abre el documento

sabeis si hay que hacer alguna otra cosa para trabajar con el word 2007??


un saludo y gracias

[abimaelrc]

No he probado el ejemplo, pero ¿no se supone que la extension es docx para 2007 en adelante?

[navarone86]

.docx es la extension propia de office 2007, pero puede trabajar con otros formatos, incluido .doc, y en mi caso me surge este problema

tengo que editar un documento .doc (no me sirve .rtf), y tengo que poder hacerlo independientemente de la version office instalada en la maquina

[abimaelrc]

¿Qué tienes en $equivalencias? Estoy haciendo pruebas y no me ha dado problemas con conectarme, pero me da error con $equivalencias porque no la mencionas en ningun lado anteriormente en el código que brindaste.

Por ahora lo hice así y no sale error alguno

Código PHP:

<?php
$template_file = realpath("Foobar.docx");
 
if(is_writable($template_file)){          
    // Instanciate Word
    $word = new COM("Word.Application") or die("Unable to instantiate Word");
    $word->Documents->Open($template_file);
    $word->Application->Visible = true;
 
    // Print the document.
    $word->Printout();
 
    // closing word
    $word->Quit();
 
    // free the object
    $word->Release();
    $word = null;
}
 

[navarone86]

hola de nuevo,

$equivalencias es un array de arrays. en cada posición hay un array que contiene en la primera posición el nombre del marcador a sustituir, y el la segunda el valor (string) por el que se desea sustituir

[abimaelrc]

Podrias brindar el ejemplo pata asi tratarlo.

[navarone86]

hola de nuevo,

el codigo es el siguiente:

Código PHP:

$template_file = $APPCONF_RutaInformes."/plantillas/a".$nombre_plantilla.".doc";
    
//Comprobamos que el archivo exista y sea editable  
if(is_writable($template_file)){            
    //2. Instanciate Word
    $word = new COM("Word.Application") or die("Unable to instantiate Word");
    $word->Documents->Open($template_file);
    $word->Application->Visible = True;
        
    //Para cada equivalencia, buscamos su marcador y lo cambiamos
    foreach ($equivalencias as $dato) {
        //4. get the value
            $value = $dato[1];
            //5. get the bookmark and create a new MS Word Range (to enable text substitution)
            $bookmarkname = $dato[0];
            //Comprobamos que el marcador existe para hacer el reemplazo
            if ($word->ActiveDocument->Bookmarks->Exists($bookmarkname)){
                $objBookmark = $word->ActiveDocument->Bookmarks($bookmarkname);
                    $range = $objBookmark->Range;
                    //6. now substitute the bookmark with actual value
                   $range->Text = no_null($value);
            }
        }
        
        //7. save the template as a new document 
        $pre= time();
        $nombre_completo=$nombre_plantilla.$pre.".doc";
    $new_file = $APPCONF_RutaInformes."/documentos/".$nombre_completo;
    $word->Documents[1]->SaveAs($new_file);
    $word->Application->Quit;  
    $word = null;
 

y el contenido de $equivalencias es este:

Código PHP:

$equivalencias=array();
$equivalencias[0][0]="mcd_nombre";
$equivalencias[0][1]="fulanito";
$equivalencias[1][0]="mcd_fecha";
$equivalencias[1][1]="05/10/2011";
 

un saludo