Re: [pt-br-usuarios] dúvida

-----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+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/