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]
