Valeu Gilvan, eu acho que funcionou, mas no segundo loop deu um erro:
na linha da macro:
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
Ele dá o seguinte erro:
"Erro de execução do BASIC.
Ocorreu uma exceção
Type: com.sun.star.lang.lllegalArgumentException
Message: sequence element is not assignable by given value!."
O interessante é que ele roda o primeiro passo corretamente, no primeiro
loop ele dá este erro.
On 12/28/05, Gilvan Vilarim <[EMAIL PROTECTED]> wrote:
>
> Fiz um exemplo pois quis desenferruja meu Basic. Veja o exemplo bobão
> logo abaixo:
>
> []s
>
> sub Main
> rem ----------------------------------------------------------------------
> rem define variables
> dim document as object
> dim dispatcher as object
> rem ----------------------------------------------------------------------
> rem get access to the document
> document = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
> rem ----------------------------------------------------------------------
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Text"
> args1(0).Value = "ola"
> for i = 1 to 5
> dispatcher.executeDispatch(document, ".uno:InsertText", "", 0,
> args1())
> next i
> rem ----------------------------------------------------------------------
> dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())
> end sub
>
> Gilvan Vilarim escreveu:
>
> > Nao mexo muito com as macros do OO, mas se a sintaxe eh Basic faça
> assim:
> >
> > for i = 1 to 5
> > <comandos a repetir>
> > next i
> >
> > Acho que nem precisa declarar o I antes de usar.
> >
> > []s
> >
> > Robert Cantarutti escreveu:
> >
> >> Erro:
> >> Ele não aceita o "for" fora da surotina...
> >>
> >>
> >> On 12/28/05, Marco <[EMAIL PROTECTED]> wrote:
> >>
> >>
> >>> FOR I = 5
> >>> [subRotina]
> >>> [incremento]
> >>> NEXT
> >>> --
> >>> Marco de Freitas,
> >>> NBR para a Internet já! Porque meu navegador não é penico.
> >>>
> >>> http://www.abrasol.org/modules.php?name=News&file=article&sid=199
> >>> http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br
> >>> http://www.petitiononline.com/we6k7496/petition.html
> >>> http://www.dicas-l.unicamp.br/dicas-l/browsers.php
> >>>
> >>> Robert Cantarutti escreveu:
> >>>
> >>>
> >>>> Usando este teu exemplo e se quiser repetir 5 vezes como fica?
> >>>> FOR 5
> >>>> [subrotina]
> >>>> NEXT
> >>>> é isso?
> >>>>
> >>>> On 12/28/05, Marco <[EMAIL PROTECTED]> wrote:
> >>>>
> >>>>
> >>>>
> >>>>> FOR [variável]
> >>>>> [subrotina]
> >>>>> NEXT
> >>>>> --
> >>>>> Marco de Freitas,
> >>>>> NBR para a Internet já! Porque meu navegador não é penico.
> >>>>>
> >>>>> http://www.abrasol.org/modules.php?name=News&file=article&sid=199
> >>>>> http://www.w3.org/2003/03/Translations/byLanguage?language=pt-br
> >>>>> http://www.petitiononline.com/we6k7496/petition.html
> >>>>> http://www.dicas-l.unicamp.br/dicas-l/browsers.php
> >>>>>
> >>>>> Robert Cantarutti escreveu:
> >>>>>
> >>>>>
> >>>>>
> >>>>>> Gostaria de saber mais sobre Macros. Alguém tem link de apostilas
> em
> >>>>>> português sobre isso?
> >>>>>> Ou se alguém sabe programar no Basic do openoffice: como faço um
> >>>>>>
> >>>>>
> >>> loop???
> >>>
> >>>
> >>>>>> --
> >>>>>> Sig.:
> >>>>>> Robert C. M. Cantarutti Jr .:
> >>>>>> skype/vono: bobcantarutti
> >>>>>> #vono: +55 41 4063-9129
> >>>>>> google talk: [EMAIL PROTECTED]
> >>>>>> *´¨)
> >>>>>> ¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
> >>>>>> (¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
> >>>>>>
> >>>>>
> >>>>>
> ---------------------------------------------------------------------
> >>>>> To unsubscribe, e-mail: [EMAIL PROTECTED]
> >>>>> For additional commands, e-mail: [EMAIL PROTECTED]
> >>>>>
> >>>>>
> >>>>>
> >>>>
> >>>>
> >>>> --
> >>>> Sig.:
> >>>> Robert C. M. Cantarutti Jr .:
> >>>> skype/vono: bobcantarutti
> >>>> #vono: +55 41 4063-9129
> >>>> google talk: [EMAIL PROTECTED]
> >>>> *´¨)
> >>>> ¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
> >>>> (¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
> >>>>
> >>>
> >>> ---------------------------------------------------------------------
> >>> To unsubscribe, e-mail: [EMAIL PROTECTED]
> >>> For additional commands, e-mail: [EMAIL PROTECTED]
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >> --
> >> Sig.:
> >> Robert C. M. Cantarutti Jr .:
> >> skype/vono: bobcantarutti
> >> #vono: +55 41 4063-9129
> >> google talk: [EMAIL PROTECTED]
> >> *´¨)
> >> ¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
> >> (¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
> >>
> >>
> >
>
> --
> Gilvan Vilarim ====================
> gilvan.vilarim (Arroba) terra.com.br
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
Sig.:
Robert C. M. Cantarutti Jr .:
skype/vono: bobcantarutti
#vono: +55 41 4063-9129
google talk: [EMAIL PROTECTED]
*´¨)
¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
(¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
