Respuestas:
No creo que exista, pero la buena noticia es que puedes hacer uno creando una macro.
Grabe la macro, pegue de la manera que desee, luego asígnela a un atajo de teclado o coloque lo siguiente en una nueva macro (suponiendo que quiera pegar sin formatear):
Para MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Para MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Una vez más, una vez que haya guardado la macro, deberá asignarla a un método abreviado de teclado (por ejemplo, ctrl + m).
Adición: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
En Word 2007 a 2013 en Windows, puede usar Ctrl+ Alt+ V.
En Word 2011 para Mac, puede usar Control+ Command+ V.
Ambos mostrarán el cuadro de diálogo "Pegado especial". No hay un acceso directo directamente para "Texto sin formato", pero dado que puede usar flechas para ir a "Texto sin formato" y Enterconfirmar, esta es probablemente la forma más rápida sin una macro.
Me acabo de enterar de que en Word 2013 y Excel 2013 hay una forma rápida de acceder, desde el teclado, a todas las opciones de " Pegado especial ". En los siguientes ejemplos, solo se muestra cómo pegar como texto (sin pegar los formatos).
Después de haber copiado algo, vaya a donde desea pegarlo (sin pegar el formato). CTRL+ V(también pegará temporalmente el formato) luego CTRL(presione y suelte la tecla de control) y luego T(la última T significa "mantener solo texto").
Después de haber copiado algo, vaya a donde desea pegarlo (sin pegar el formato). CTRL+ V(también pegará temporalmente el formato) luego CTRL(presione y suelte la tecla de control) y luego V(la última V significa "pegar valores").
Es importante que se suelte la segunda CTRL tecla antes de escribir la última letra.
Este método requiere solo 4 golpes de teclado, sin macros y sin el uso del mouse en una ventana de diálogo.
Si desea establecer "Mantener solo texto" como predeterminado, puede hacer lo siguiente:
La pasta predeterminada:
Haga clic en el menú desplegable en la parte superior y elija "Más comandos":
Haga clic en Avanzado:
Cambie los valores predeterminados (para conservar solo texto):
Repetir el mismo pegado por defecto es solo texto:
¡Espero que esto ayude!
Para Word, cambiar la configuración predeterminada (como se muestra arriba) parece una buena opción si la configuración coincide con lo que desea. Para Excel, sin embargo, sugeriría usar un clic derecho en su lugar.
Hay un par de problemas importantes al agregar una macro.
1) Se perderá en nuevos documentos a menos que modifique la plantilla predeterminada.
2) Si modifica la plantilla predeterminada y necesita compartir su libro de trabajo, la persona que obtenga el archivo recibirá una advertencia de seguridad ... que probablemente los asustará.
Las otras opciones de teclado requieren muchas pulsaciones de teclas. Además, si está pegando desde una página web, Excel y Word tardarán mucho tiempo en convertir el HTML.
Un clic derecho mostrará las opciones de pegado, donde puede seleccionar la opción de texto sin formato.
Ojalá hubiera un atajo de teclado incorporado, pero el clic derecho me parece la mejor alternativa.
Para una solución independiente de la aplicación, considere PureText .
No se requiere instalador, es gratuito y cuando se ejecuta, asignará una nueva combinación de teclas para pegar sin formato.
Personalmente uso Win+ V.
La función ya existe, simplemente no tiene un acceso directo fuera de la caja, pero puede darle uno.
En Word 2007-2013 (quizás antes, no lo recuerde), puede vincular el método abreviado de teclado que elija a los comandos. En Word 2013 esto está en
Si el combo de teclas está en uso, debajo del cuadro "claves actuales", le dice "Actualmente asignado a: xyz", donde xyz es el comando que ya usa este acceso directo. Luego puede decidir si desea o no quedarse con su primera opción (el acceso directo ahora invocará PasteTextOnly y ya no invocará xyz) o tratará de encontrar otro combo de teclas.
En realidad hay una manera fácil. Simplemente presione Alt+ E, luego Sy V. Obtendrá el cuadro de diálogo mucho más fácil, lo que sin duda le ahorrará mucho tiempo.
En Word 2007-2013 debe presionar ALT + CTRL + G, luego presione T y haga clic en la tecla Intro
En Excel, simplemente presione F2 en la celda en la que desea pegar, luego presione CTRL + V.
haga clic derecho donde desea pegar el texto sin formato presione la tecla T
se pega el texto sin formato.
Por cierto: si accidentalmente pega texto formateado, selecciónelo todo y presione Ctrl + Espacio para restablecer el formato 'normal'
Para pegar objetos y texto en Excel, con una opción para deshacer, 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