Re: [usuarios OOo] Macros

Thu, 29 Dec 2005 02:45:07 -0800 

Cooperando:

O Bernardo fez um tutorial que coloquei aqui:

http://www.hdo.com.br/oo.php
Arquivos de ajuda para OpenOffice

Talvez possa ser útil.

Cordialmente

Roberto Cohen
HDO Manager Team
Fone: +55-51 3321.2566  ramal 215
SKYPE: roberto.cohen

http://www.hdo.com.br
Seu Help Desk ainda melhor

http://www.hdo.com.br/oo.php
Arquivos de ajuda para OpenOffice

  ----- Original Message ----- 
  From: Robert Cantarutti 
  To: [email protected] 
  Sent: Thursday, December 29, 2005 7:15 AM
  Subject: Re: [usuarios OOo] Macros


  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 ** (¸.·´ (¸.·`*´¨)

Responder a