Re: [usuarios OOo] Macro Word para Openoffice

Mon, 04 Apr 2005 15:22:46 -0700 

Muito obrigado, vou pegar o arquivo.
                                                  []s

----- Original Message ----- From: <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, April 04, 2005 11:34 AM
Subject: Re: [usuarios OOo] Macro Word para Openoffice


Caro Eldon,

Pega o exemplo (1o.) de macro Writer de gera��o de relat�rios em:

http://www.hdo.com.br/oo.php

que l� tem um exemplo de gera��o de tabela em Macro de Openoffice.

Bernardo

Citando Eldon Alencar <[EMAIL PROTECTED]>:

Estou reescrevendo uma macro do Word para o Openoffice. Estou com
dificuldade nos dois comandos abaixo:Como fa�o para mudar estes
comandos ?

1a d�vida:--------------J� defeni a variavel L1 e quero substituir
L1$ = WordBasic.[InputBox$]("Digite o Nome ", "Nome LINHA 1", "Linha 1")
    WordBasic.StartOfRow
    If L1$ = "1" Then
         WordBasic.WW2_Insert "Maria. "
    End If
              If L1$ = "2" Then
         WordBasic.WW2_Insert "Jos�. "
    End If
     If L1$ = "3" Then
         WordBasic.WW2_Insert "Antonio. "
    End If
     If L1$ = "4" Then
         WordBasic.WW2_Insert "Joaquim. "
    End If

WordBasic.LineDown 1

L2$ = WordBasic.[InputBox$]("Cidade ", "Cidade  LINHA 2", "Linha 2")
    WordBasic.StartOfRow
    If L2$ = "1" Then
         WordBasic.WW2_Insert "Fortaleza."
    End If
    If L2$ = "2" Then
         WordBasic.WW2_Insert "Juazeiro."
    End If
    If L2$ = "3" Then
         WordBasic.WW2_Insert "Crato."
    End If
WordBasic.LineDown 1

2a duvida: Apos encontrar o texto "EXAME DE:" quero inserir o NOME que
j� captei em uma variave NOME seguido da data tambem de uma variavel
DATA
WordBasic.WW2_EditFind Find:="EXAME DE :", WholeWord:=0, MatchCase:=0, _
Direction:=1, Format:=0
WordBasic.CharRight 3
WordBasic.WW2_Insert UCase(NOME$) + "      em    " + DATA_$
WordBasic.LineDown 3

                 Muito obrigado a todos
                                               Eldon Alencar


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]









---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]






---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Responder a