Alguém sabe qual o procedimento para escrever em uma planilha que não
seja o que está abaixo:?
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "Teste"dispatcher.executeDispatch(document,
".uno:EnterString", "", 0, args2())
Gostaria de fazer um loop mas identifiquei que na segunda vez que rodo
esta procedure ele dá pau.
Um exemplo fácil seria se alguém conseguisse fazer uma macro com 2
loops que escrevesse a palavra "teste" na célula A1 da planilha...?
Eu teintei assim:
sub Main
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
for i = 1 to 2
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "Teste"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
next i
end sub
Mas não deu certo
On 12/29/05, Robert Cantarutti <[EMAIL PROTECTED]> wrote:
>
> 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 SubSe 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 ** (¸.·´ (¸.·`*´¨)
--
Sig.:
Robert C. M. Cantarutti Jr .:
skype/vono: bobcantarutti
#vono: +55 41 4063-9129
google talk: [EMAIL PROTECTED]
*´¨)
¸.·´¸.·*´¨) ¸.·*¨) ¸.·*¨)¸.·*´¨) .·*´¨)
(¸.·´ (¸.·` **Boas Festas ** (¸.·´ (¸.·`*´¨)
