Copiar para Área de Transferência

[vitoralves]

Minha dúvida parece simples, mas ainda não encontrei algo que a resolvesse. Possuo uma planilha ALFA com uma listagem que utilizo e colo em diversas outras planilhas. Queria apenas uma macro que copiasse essa listagem para a Área de Transferência APENAS, sem colar, para que, assim, possa colar onde bem entender. Como a listagem é extensa, eis o motivo de querer uma macro para isso.

Segue abaixo a macro que tentei fazer, porém, quando vou colar, não cola nada:

sub COPIARALFA
Dim oCurs As object
Dim LastRow&

oCurs = ThisComponent.Sheets.GetByName("ALFA").createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "A7:K" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "B7"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

end sub

Grato desde já!

CÓPIA GRADE.ods

Coloquei a planilha que fiz para visualização. Nela há o botão copiar. Quando aperto não há nada na área de transferência.

[schiavinatto]

Ola @vitoralves, simulei seu arquivo e rodei a macro, fechei o arquivo e consegui colar no Notepad++, então esta funcionando.

Descreva como fez.

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

[vitoralves]

Obrigado pelo retorno Gilberto. Depois que vc falou, fiz o teste em outra planilha também e funcionou, porém, na planilha que preciso não funciona. Muito estranho. Estava com esperança de ter uma macro que não use dispatcher pra colocar o intervalo na área de transferência pra ver se resolve, mas não encontrei nada ainda.

Atualizei a pergunta e anexei minha planilha.

[vitoralves]

Gilberto, aproveitando sua boa vontade, creio que vi uma planilha que vc anexou, salvo engano, onde havia uma caixa de texto a qual o conteúdo se movia como se fosse um letreiro. Isso seria ótimo para avisos que uso nesta mesma planilha que anexei neste tópico. Tentei formatar objeto/ texto/animação de texto, mas não sei como utilizar. Caso tenha um link que explique isso fico grato, ou, se for de fácil explicação, peço ajuda por aqui mesmo.

Fiz um tópico para isso:

Vincular texto

[schiavinatto]

O seu arquivo, esta funcionando normal, testei em 6.2.5.2 e 6.3.2.1 em Win10.

Sobre o texto vide Tópico.

[vitoralves]

Engraçado. Testei aqui agora. Quando seleciono uma célula dentro do intervalo a copiar e clico em Copiar não funciona, mas quando seleciono uma célula fora do intervalo e clico em Copiar funciona. Coloquei na macro para selecionar a célula A1 antes de iniciar o procedimento e resolveu. Obrigado mesmo assim!

[vitoralves]

Meu erro se resolveu incluindo esse comandos no início da macro:

dim SelCel as object
SelCel = ThisComponent.Sheets.getByName("ALFA").getCellRangeByName("A1")
ThisComponent.CurrentController.select(Selcel)

Ou seja, mandar selecionar uma célula fora do intervalo a copiar, ates de copiar.