A minha macro tá assim (resumida que dá o mesmo resultado):
Sub Main
Dim numword As Integer
numword = 1580
dim document as object
dim dispatcher as object
for i = 1 to 2
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "='
file:///G:/BB%20Ocorr%C3%AAncias%20Comp/Oc%20Estat%C3%ADsticas/2005/Backup/temporario/OCS%202005"&
numword & ".sxc'#'Solicitação Serviços'.J3"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
next i
End Sub
Se quiser rodar ela tem que abrir uma planilha antes e posicionar o cursos
na célula A7.
On 12/29/05, Robert Cantarutti <[EMAIL PROTECTED]> wrote:
>
> 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 ** (¸.·´ (¸.·`*´¨)
>
--
Sig.:
Robert C. M. Cantarutti Jr .:
skype/vono: bobcantarutti
#vono: +55 41 4063-9129
google talk: [EMAIL PROTECTED]
*´¨)
¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
(¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
