Atalho no Word ou Excel para Colar Especial?
Respostas:
Acho que não, mas a boa notícia é que você pode criar uma criando uma macro.
Grave a macro, cole da maneira que desejar e atribua-a a um atalho de teclado ou coloque o seguinte em uma nova macro (supondo que você queira colar sem formatação):
Para o MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Para o MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Novamente, depois de salvar a macro, você precisará atribuí-la a um atalho de teclado (por exemplo, ctrl + m).
Adição: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
No Word 2007 a 2013 no Windows, você pode usar Ctrl+ Alt+ V.
No Word 2011 para Mac, você pode usar Control+ Command+ V.
Ambos exibem a caixa de diálogo "Colar especial". Não há atalhos diretamente para "Texto não formatado", mas como você pode usar as setas para ir para "Texto não formatado" e Enterconfirmar, esse provavelmente é o caminho mais rápido sem uma macro.
Acabei de descobrir que no Word 2013 e no Excel 2013 há uma maneira rápida de acessar, a partir do teclado, todas as opções " Colar Especial ". Nos exemplos a seguir, é mostrado apenas como colar como texto (sem colar os formatos).
Word 2013:
Depois de copiar algo, vá para onde deseja colá-lo (sem colar o formato). CTRL+ V(ele também colará temporariamente o formato) então CTRL(pressione e solte a tecla Control) e depois T(o último T significa "manter apenas o texto").
Excel 2013:
Depois de copiar algo, vá para onde deseja colá-lo (sem colar o formato). CTRL+ V(ele também colará temporariamente o formato) então CTRL(pressione e solte a tecla Control) e depois V(o último V significa "colar valores").
É importante que a segunda CTRL tecla seja liberada antes de digitar a última letra.
Este método requer apenas quatro toques no teclado, sem macros e sem uso do mouse em uma janela de diálogo.
Se você deseja definir "Manter apenas o texto" como padrão, você pode fazer o seguinte:
A pasta padrão:
Clique no menu suspenso na parte superior e escolha "Mais comandos":
Clique em Avançado:
Altere os padrões (para Manter apenas o texto):
Repetir os mesmos padrões de colar 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 você deseja. Para o Excel, no entanto, sugiro usar um clique direito.
Existem alguns problemas significativos ao adicionar uma macro.
1) Ele será perdido em novos documentos, a menos que você modifique o modelo padrão.
2) Se você modificar o modelo padrão e precisar compartilhar sua pasta de trabalho, a pessoa que está obtendo o arquivo receberá um aviso de segurança .... o que provavelmente os assustará.
As outras opções de teclado exigem muitas teclas. Além disso, se você estiver colando de uma página da Web, o Excel e o Word levarão muito tempo para converter o HTML.
Um clique direito mostra as opções de colagem, onde você pode selecionar a opção de texto sem formatação.
Eu gostaria que houvesse um atalho de teclado embutido, mas o clique direito parece a melhor alternativa para mim.
Para uma solução independente de aplicativo, considere o PureText .
Nenhum instalador é necessário, é gratuito e, quando executado, mapeará uma nova combinação de teclas para colar sem formatação.
Pessoalmente eu uso Win+ V.
A função já existe, apenas não possui um atalho pronto para uso, mas você pode atribuir um.
No Word 2007-2013 (talvez mais cedo, não lembre-se), você pode vincular o atalho de teclado de sua escolha aos comandos. No Word 2013, isso está em
- Arquivo> Opções> Personalizar faixa de opções> e clique em "Personalizar ..." no canto inferior esquerdo com a etiqueta "Atalhos do teclado:".
- Em Categorias, selecione "Todos os comandos";
- em comandos, selecione "PasteTextOnly".
- Clique na caixa de texto "Pressione nova tecla de atalho" e pressione a combinação de teclas que deseja usar para executar este comando.
- Para vincular o atalho ao comando (lembre-se / salve o novo atalho), clique no botão "Atribuir".
Se o conjunto de teclas estiver em uso, abaixo da caixa "teclas atuais", será exibido "Atualmente atribuído a: xyz", em que xyz é o comando que já usa esse atalho. Em seguida, você pode decidir se deseja ou não manter sua primeira opção (o atalho agora chamará PasteTextOnly e não mais chamará xyz) ou tentar criar outra combinação de teclas.
Na verdade, existe uma maneira fácil. Basta pressionar Alt+ E, depois Se V. Você obterá a caixa de diálogo muito mais fácil, o que certamente poupará muito tempo.
No Word 2007-2013, você deve pressionar ALT + CTRL + G, pressionar T e clicar na tecla Enter
No Excel, basta pressionar F2 na célula na qual deseja colar e pressionar CTRL + V.
clique com o botão direito do mouse no local em que deseja colar o texto sem formatação e pressione a tecla T
texto não formatado é colado.
BTW: se você acidentalmente colar texto formatado, selecione tudo e pressione Ctrl + Espaço para redefinir para o formato 'normal'
Para colar objetos e texto no Excel, com uma opção para desfazer, use
' 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