[Resolvido]Colar Especial

Estou usando uma textbox memorando no formato "rich text"...

Mas encontrei um problema: quando se cola um texto, colam-se junto todas as formatações (tamanha e tipo de fonte, negrito, itálico, cor, etc.)...

Gostaria que ao colar (Ctrl+V) somente os caracteres fossem inseridos... e ignorasse as formatações...

Existe um comando de "Colar Especial" no office que possbilita isso... mas em VBA não sei como fazer...

Agradeço a ajuda!

E o campo precisa estar como RichText? Se você não precisa dele nesse formato, talvez fosse melhor mudar. Ou então pode colocá-lo como normal antes de colar e depois voltar para RichText. Algo como:

Me.NomeDoCampo.TextFormat = acTextFormatPlain
DoCmd.RunCommand acCmdPaste
Me.NomeDoCampo.TextFormat = acTextFormatHTMLRichText

ou, para usar o Colar Especial:

DoCmd.RunCommand acCmdPasteSpecial

Sim, o campo precisa estar como RichText para possibilitar a edição, como colocar partes do texto em negrito ou itálico...

Essa primeira opção me parece a melhor, mas estou tendo dificuldade para vinculá-la com o evento "ao apertar tecla" a (Ctrl+V)...

Poderia me dar mais essa ajuda? Agradeço muito!

Podemos fazer isso usando variáveis para capturar e comparar as teclas digitadas. Para tal, vamos declarar, no escopo do módulo do formulário, uma variável tipo Boolean, ou seja, tipo Verdadeiro/Falso. Quando falamos escopo do módulo, estamos dizendo que isso será feito fora dos eventos do formulário ou dos controles do mesmo, ou seja, no início do módulo, logo após a primeira linha Option Compare Database. Caso não tenha uma linha escrito Option Explicit, insira ela antes. Essa linha é importante para garantir que todas as variáveis declaradas no módulo estão sendo devidamente usadas. Ficaria assim o início do módulo:

Option Compare Database
Option Explicit
Dim Colar As Boolean

Agora, no evento "Ao apertar tecla":

If KeyCode = vbKeyControl Then
    Colar = True
Else
End If

If KeyCode = vbKeyV Then
    If Colar = True Then
        Código para colar aqui
        Colar = False
    Else
    End If
Else
End If

Criquio, seria pedir demais um pequeno DB com a aplicação dessa função?!

É que to tentando aqui desde ontem e nada...

O texto vem com toda a formatação... modifiquei e ficou assim:

If KeyCode = vbKeyControl Then
Colar = True
Else
End If

If KeyCode = vbKeyV Then
If Colar = True Then
Me.Texto2.TextFormat = acTextFormatPlain
DoCmd.RunCommand acCmdPaste
Colar = False
Else
End If
Else
Colar = False
End If

Tente retirar a última linha Colar = False, como no exemplo que eu postei.

Duas observações:

1. O texto a ser colado não aparece ao apertar Ctrl+V, mas fechando o form e abrindo novamente vê-se que foi colado...

2. Cola sobre o texto que já está na textbox e cola duas vezes...

Fiz um post:
http://www.4shared.com/file/xK_f_J0V/ColarEspecial.html

Ele cola duas vezes porque alem do que você passou no evento, tambem é colado antes, pelo acesso normal do Ctrl+V. Tente o seguinte: cria uma macro de nome AutoExec e coloque na coluna "Nome da Macro" assim ^V para desabilitar o Ctrl+V normal e ficar valendo apenas o que você inseriu no comando. E para colocar o texto após o que já estiver no campo, coloque algo assim:

Me.NomeDoCampo.SelStart = Len(Me.NomeDoCampo)

SelStart significa o local para onde mandar o cursor dentro do campo. Como pegamos todo o tamanho do campo, ou seja, todos os caracteres que estiver nele, o cursor será enviado para o final. Talvez seja interessante colocar uma linha antes de colar:

Me.NomeDoCampo = Me.NomeDoCampo & VBCRLF
Me.NomeDoCampo.SelStart = Len(Me.NomeDoCampo)
DoCmd.RunCommand acCmdPaste

ou colocar um espaço depois do que já estiver no campo:

Me.NomeDoCampo = Me.NomeDoCampo & " "

Tente adaptar para o seu caso.

Criquio, consegui... fiz uma adaptação da sua rotina e saiu tudo beleza... só tinha mais uma pequena questão...

Reparei que todos os textos "rich text" começam como um < div > e terminan com um < /div >

Isso acaba com a estrutura dos meus relatórios, pois coloco vários campos num só... tipo: [Texto1] & [Texto2] & [Texto3]...

E se um deles for "rich text", por causa do < div > salta para a outra linha, como um parágrafo, sendo que no relatório é para ser um texto só, tudo junto...

Poderia me ajudar nisso?

Geralmente utilizamos tags html para formatar texto e parágrafo. Poste a função completa que está utilizando e tambem um exemplo de como o texto precisa aparecer no relatório.

"Às " & [Hora] & " horas de " & [Data] & ", compareceu nesta repartição, o(a) senhor(a)" & [Nome] & ", que tem o seguinte a declarar: " & [Declaração]

Sendo que esse último campo, "Declaração", está no formato "rich text"...

E quando quero juntar todos esses campos num texto só, sem parágrafos, fica assim:

Às 20:30 horas de 10/10/2000, compareceu nesta repartição, o(a) senhor(a) FULADO DE TAL, que tem o seguinte a declarar:
Que nunca fez nenhuma postagem no fórum Maximo Access, e se o fizeram em seu nome foi sem sua autorização...

Mas deveria ser assim, tudo junto, num parágrafo só:

Às 20:30 horas de 10/10/2000, compareceu nesta repartição, o(a) senhor(a) FULADO DE TAL, que tem o seguinte a declarar: Que nunca fez nenhuma postagem no fórum Maximo Access, e se o fizeram em seu nome foi sem sua autorização...

Isso ocorre porque todo texto no formato "rich text" começa e termina com um < div >

Tente substituir os < div > e < / div > por nada:

"Às " & [Hora] & " horas de " & [Data] & ", compareceu nesta repartição, o(a) senhor(a)" & [Nome] & ", que tem o seguinte a declarar: " & Replace(Replace([Declaração], "< div >", ""), "< / div >", "")

Muito bom Criquio....

Testei aqui e ficou bacana...

Agradeço muito a ajuda....

Pode colocar [Resolvido]....

Grato pelo retorno. Tem um botão escrito Resolvido acima e à direita de onde você clica para Enviar a mensagem. Dessa vez eu clico.

Foi mal, nem tinha visto... hehe

Obrigado de novo...

Sei que já está encerrado, mas tinha só mais uma questão: no textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante com as principais formatações (negrito, itálico, sublinhado...)

Tem como dsativá-la?

Essa é a última dúvida... prometo... e agradeço!

Ainda não precisei mexer nessa função. Você pode verificar se tem algum runCommand que atenda. Digite, por exemplo, no "Ao receber foco" do campo DoCmd.RunCommand e dê um espaço para exibir a lista de comandos disponíveis. Talvez algum deles atenda.

Olá
Dando só um pitaco.
Veja na folha de propriedades do formulário se Menu de Atalho está como Sim.
Se estiver, mude para não.
Abraços

Apesar de ter colocado resolvido, ainda não desenrolei esse "Colar Especial"...

Tentei fazer assim, pra quando eu apertar o control o texto ficar normal:

Private Sub Texto2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then
Me.Texto2.TextFormat = acTextFormatPlain
End If

E ao liberar, voltar para rich text:

Private Sub Texto2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyControl Then
Me.Texto2.TextFormat = acTextFormatHTMLRichText
End If

Isso para poder usar o atalho Crtl=V, e quando terminar o campo voltar a rich text...
Mas o texto cola em cima do texto já existente na textbox.... como um recortar e colar....

Sendo que eu gostaria que:
Apertar Ctrl - mudar textbox para normal
Apertar V - colar (pois o Ctrl ficou pressionado) o texto da área de transferência no local onde está o cursor
Liberar V - nada
Liberar Ctrl - voltar textbox para rich text

Desculpe a insistência nesse tópico, mas tenho que encontrar uma solução...

Alguém para prestar um socorro?!

Olá Viludo

Um texto a ser colado em uma caixa de texto sempre irá colocar no inicio dela.
Se a caixa de texto já tem texto, então você tem que instruir o Access disso

Assim:
Verificamos quantos caracteres já tem no texto da textBox:
Len(Me.CaixaDeTexto)
Somamos +1 para ir pra outra linha
e dizemos para o Access onde deve iniciar a colagem do texto:
Me.CaixaDeTexto.SelStart

Juntamos tudo:
Me.CaixaDeTexto.SelStart = Len(Me.CaixaDeTexto) + 1

Dessa forma a colagem será apos o texto já existente na caixa de texto.


Adpte no seu código

Abraços