Robert, Então aplica nelas a função Val() ou CInt(), não tenho certeza, para convertê-las em número mesmo.
Bernardo Citando Robert Cantarutti <[EMAIL PROTECTED]>: > Sim, perfeito. Elas vêm da captura de uma caixa de texto, de um diálogo. > > On 12/29/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> > wrote: > > 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] > > > > > > > -- > 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]
