Se eu quiser colar sem qualquer formatação, tenho de ir ao botão “Colar” na fita e clicar em “Colar Especial” e depois em “texto sem formatação”.
Existe algum atalho como Ctrl+V que faça isso automaticamente para mim?
No Word 2007 a 2013 no Windows, pode usar Ctrl+Alt+V.
No Word 2011 para Mac, pode usar Control+Command+V.
Ambos irão trazer à tona o diálogo “Paste Special”. Não há atalho directamente para “Unformatted Text”, mas como pode usar setas para ir para “Unformatted Text” e Enter para confirmar, este é provavelmente o caminho mais rápido sem uma macro.
Acabo de descobrir que em Word 2013 e Excel 2013 existe uma forma rápida de aceder, a partir do teclado, a todas as opções “Paste Special”. Nos exemplos que se seguem é apenas mostrado como colar como texto (sem colar os formatos).
Depois de ter copiado algo vai para onde se quer colar (sem colar o formato).CTRL+V (também colará temporariamente o formato) depois CTRL (empurrar e soltar a tecla de controlo) depois T (o último T significa “manter apenas texto”).
Depois de ter copiado algo vai para onde se quer colar (sem colar o formato).CTRL+V (também colará temporariamente o formato) depois CTRL (empurrar e libertar a chave de controlo) depois V (o último V significa “colar valores”).
É importante que a tecla segundo CTRL seja libertada antes de se digitar a última letra.
Este método requer apenas 4 toques no teclado, sem macros e sem utilização do rato numa janela de diálogo.
Não creio que haja, mas a boa notícia é que se pode fazer uma, criando uma macro.
Ou grava a macro, fazendo a cola da forma que quiser, depois atribui-a a um atalho de teclado, ou põe o seguinte numa nova macro (assumindo que quer colar sem formatação):
Para MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Para MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Novamente, depois de ter guardado a Macro, terá de a atribuir a um atalho de teclado (ex. ctrl + m).
Adição: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Se quiser definir “Manter apenas texto” como o seu padrão, pode fazer o seguinte:
a pasta por defeito:
Clique no dropdown no topo e escolha “More Commands”:
Clicar Avançado:
Alterar os valores por defeito (para guardar apenas texto):
Repetir os mesmos padrões de pasta apenas para texto:
Espero que isto ajude!
Para o Word, alterar as configurações padrão (como mostrado acima) parece ser uma boa opção se as configurações corresponderem ao que se pretende. Para Excel, no entanto, eu sugeriria a utilização de um clique direito.
Há um par de problemas significativos com a adição de uma macro.
1) Será perdido em novos documentos, a menos que se modifique o modelo padrão.
2) Se modificar o modelo padrão e precisar de partilhar a sua pasta de trabalho, então a pessoa que recebe o ficheiro receberá um aviso de segurança…. que provavelmente os assustará.
As outras opções de teclado requerem muitos toques de tecla. Além disso, se estiver a colar a partir de uma página web, então o Excel e o Word demorarão muito tempo a converter o HTML.
Um clique com o botão direito do rato mostrará as opções de colar, onde pode seleccionar a opção de texto simples.
Gostaria que houvesse um atalho de teclado integrado, mas o clique direito parece-me a melhor alternativa.
A função já existe, apenas não tem um atalho fora da caixa, mas pode dar-lhe um.
Em Word 2007-2013 (talvez mais cedo, não se lembre), pode ligar o atalho de teclado da sua escolha aos comandos. Em Word 2013 isto está em
Se a combinação de teclas estiver em uso, por baixo da caixa “teclas actuais”, diz-lhe “Actualmente atribuído a: xyz”, onde xyz é o comando que já usa este atalho. Então pode decidir se quer ou não aderir com a sua primeira escolha (o atalho irá agora invocar PasteTextOnly e já não invocar xyz) ou tentar inventar outra combinação de teclas.
Na verdade, há uma maneira fácil. Basta premir Alt+E, depois S e V. A caixa de diálogo será muito mais fácil, o que certamente lhe poupará muito tempo.
No Excel, basta pressionar F2 na célula para a qual pretende colar, depois pressionar CTRL+V.
Em Word 2007-2013 deve pressionar ALT + CTRL + G, depois pressione T e clique na tecla Enter.
clique com o botão direito do rato onde pretende colar o texto simples prima a tecla T
o texto não formatado é colado.
BTW: Se colar acidentalmente texto formatado, seleccione-o todo e prima Ctrl + Espaço para reiniciar para o formato ‘normal
Para colar tanto objectos como texto em Excel, com opção para desfazer, usar
' Custom data type for undoing
Type SaveRange
Val As Variant
Addr As String
End Type
' Stores info about current selection
Public OldWorkbook As Workbook
Public OldSheet As Worksheet
Public OldSelection() As SaveRange
'----------------------------------------------------------
Sub PasteValues()
' Set shortcut to Cntl+Shift+V, for example
' Works for Outlook and Chrome AND Excel
' Abort if a range isn't selected
If TypeName(Selection) <> "Range" Then Exit Sub
' The next block of statements
' save the current values for undoing
ReDim OldSelection(Selection.Count)
Set OldWorkbook = ActiveWorkbook
Set OldSheet = ActiveSheet
i = 0
For Each cell In Selection
i = i + 1
OldSelection(i).Addr = cell.Address
OldSelection(i).Val = cell.Formula
Next cell
' Start paste function
On Error GoTo ValuesFail
' Works for Excel and Outlook, but not Chrome
Selection.PasteSpecial Paste:=xlValues
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
ValuesFail:
On Error GoTo TextFail
' Works for Outlook and Chrome, but not Excel
ActiveSheet.PasteSpecial Format:="Text"
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
TextFail:
On Error GoTo PasteFail
ActiveSheet.Paste
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
PasteFail:
MsgBox "Complete Failure"
End Sub
'----------------------------------------------------------
Sub UndoMacro()
' Reinstates data in the selected range
' Tell user if a problem occurs
On Error GoTo Problem
Application.ScreenUpdating = False
' Make sure the correct workbook and sheet are active
OldWorkbook.Activate
OldSheet.Activate
' Restore the saved information
For i = 1 To UBound(OldSelection)
Range(OldSelection(i).Addr).Formula = OldSelection(i).Val
Next i
Exit Sub
' Error handler
Problem:
MsgBox "Can't undo macro"
End Sub
'----------------------------------------------------------
Sub RevertFile()
' From http://www.excelforum.com/showthread.php?t=491103
wkname = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWorkbook.Close Savechanges:=False
Workbooks.Open Filename:=wkname
End Sub