BrOffice x Office

Tem como verificar um usuário se ele possui o BrOffice ou Office instalado na maquina, para utilizar a função certa para imprimir relatórios e tudo mais?

Bom dia.

Fera, eu acho que este código abaixo pode te ajudar.

Código:

def var chWord      as com-handle   no-undo.
def var chExcel     as com-handle   no-undo.
def var chAccess    as com-handle   no-undo.

def var chBrOffice  as com-handle   no-undo.

/* Verificando se o Office está instalado */
create "Excel.Application":U    chExcel.
create "Word.Application":U     chWord.
create "Access.Application":U   chAccess.

if chWord = ? then do:
    MESSAGE 'O aplicativo Word não está instalado.'
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    return.
end.

if chExcel = ? then do:
    MESSAGE 'O aplicativo Excel não está instalado.'
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    return.
end.

if chAccess = ? then do:
    MESSAGE 'O aplicativo Access não está instalado.'
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    return.
end.

create "com.sun.star.ServiceManager":U chBrOffice.

if chBrOffice = ? then do:
    MESSAGE 'O aplicativo BrOffice não está instalado.'
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
    return.
end.

release object  chWord.
release object  chExcel.
release object  chAccess.

release object  chBrOffice.

xow de bola, vo testa ele =DDD

Hmmmm.... então funciona certinho a verificação, só teria que coloca no-error pra cria e da o release, c não ele já da erro direto.

Fora isso, deu tudo certinho, vlw...

E agora como faço pra joga informações no writer do brOffice??
Pelo world eu jogava pra formularios texto pelo comando:

Código:

ch-Documento:FormFields:Item("c_usuario"):Result = usuar_mestre.nom_usuario.

agora pelo brOffice, não to conseguindo escreve nada, e os unicos exemplos que axei até agora foram pro calc do brOffice.

Miguel,

Por favor postar o seu código para eu ver o que vc está fazendo.

Obrigado.