-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Olá
Vou lhe dar uma alternativa que não usa o dispatcher: +++++++++++++++ REM Carrega a biblioteca Tools que vem no LibreOffice GlobalScope.BasicLibraries.LoadLibrary("Tools") Dim oDocument as Object Dim oCelula as Object oPlanilha = ThisComponent.getSheets().getByName("Planilha1") REM GetCellByName está na biblioteca Tools, carregada lá em cima oCelula = GetCellByName(oPlanilha, "$C$1") oCelula.String = "Marcus Gama" REM oCelula.Value = 3.141592 REM oCelula.Formula = "=soma(A1:A10)" +++++++++++++++ []'s Olivier Em 09-04-2012 21:32, ronaldo ramos escreveu: > Boa noite a todos, estou com uma dúvida na criação de uma macro: > > Para fixar uma determinada célula utilizei o seguinte comando > > > dim document as object > dim dispatcher as object > > document = ThisComponent.CurrentController.Frame > dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") > > dim args2(0) as new com.sun.star.beans.PropertyValue > args2(0).Name = "ToPoint" > args2(0).Value = "$C$1" > dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2()) > > > e agora tentei inserir um texto nesta célula utilizando o seguinte comando > (que não funcionou) > > dim args3(0) as new com.sun.star.beans.PropertyValue > args3(0).Name = "Text" > args3(0).Value = "Marcus Gama" > dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args3()) > > alguém poderia por favor me dizer o que estou fazendo de errado e como > corrigir. > > Estou utilizando o manual de "Introdução às Macro (Capitulo 13)" que é > ótimo, > pois entendi grande parte do conceito, mas to pecando nas sintaxes. > > A intenção do macro é simplesmente apontar para uma célula e adicionar > um texto. > > Obrigado, > > Ronaldo. > - -- Olivier Hallot Founder, Board of Directors Member - The Document Foundation The Document Foundation, Zimmerstr. 69, 10117 Berlin, Germany Fundação responsável civilmente, de acordo com o direito civil Detalhes Legais: http://www.documentfoundation.org/imprint LibreOffice translation leader for Brazilian Portuguese +55-21-8822-8812 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (GNU/Linux) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/ iQEcBAEBAgAGBQJPg48EAAoJEJp3R7nH3vLx9OQIAI5ZP5nkhdMs1HuWdWktOG6i GcyqW72dZC+Y+GsVxljq/K52VvAJ5FRe6t2HfW9w73OULPMvHqT1/pcju+HmTEhp 248s9iQxKpqcHDW6gL5eY9V6T08UxSzSB5psCEQeL5LaTginiZdjQX29Aff6EJOg W4I//01M9vYDLsXm6LvcohM9JkLH53S3KPTGgZgHzyyxQscHOHYAKBVtn6l2qs5+ 4ZA2xBEVo5MkZDKXixffVdGtJusvr4qZEf5gzJWZ7NkaO7CmPHJ6q3YKazs4ccSK HOFXbqrWVkk2/xUb8vvp67bKQc7ydU2ZbmAUJNpJza+TvH7z+0UhxaDLBZ2Ocmk= =/oW0 -----END PGP SIGNATURE----- -- Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org # Informações sobre os comandos disponíveis (em inglês): mande e-mail vazio para usuarios+h...@pt-br.libreoffice.org # Cancelar sua assinatura: mande e-mail vazio para: usuarios+unsubscr...@pt-br.libreoffice.org # Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/