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]
