Robert, Por um acaso sSearchWord e sSearchWord1 vem de buscas em modo TEXTO ?
Bernardo Citando Robert Cantarutti <[EMAIL PROTECTED]>: > Pessoal, coisa simples mas eu não tou conseguindo corrigir. Eu preciso > que a macro entenda o contador que eu fiz abaixo. Se eu substituo o > contador por um número (exemplo contador = 5 ) aà dá certo... Talvez > eu não esteja definindo bem a variável sei lá. Talvez uma coisa bem > básica.... > Abraços e valeu aos que estão cooperando, tá sendo muito útil. > > Sub Main > > Dim numword As Integer > Dim numword1 As Integer > Dim contador As > Dim msg As String > > numword = sSearchWord > numword1 = sSearchWord1 > > contador = numword1 - numword > > for i = 1 to contador > > *** procedimento > > next i > > End Sub > > > > On 12/29/05, HDO - Seu Help Desk Ainda Melhor <[EMAIL PROTECTED]> wrote: > > 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 ** (¸.·´ (¸.·`*´¨) > > > > > > > -- > 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]
