Si quiero pegar sin ningún tipo de formato, tengo que ir al botón “Pegar” de la cinta y hacer clic en “Pegado especial” y luego en “texto sin formato”.
¿Hay algún atajo como Ctrl+V que lo haga automáticamente por mí?
En Word 2007 a 2013 en Windows, puede utilizar Ctrl+Alt+V.
En Word 2011 para Mac, puede utilizar Control+Comando+V.
Ambas opciones harán que aparezca el cuadro de diálogo “Pegado especial”. No hay un atajo directo para “Texto sin formato”, pero como puedes usar las flechas para ir a “Texto sin formato” y Enter para confirmar, esta es probablemente la forma más rápida sin una macro.
Acabo de descubrir que en Word 2013 y Excel 2013 hay una forma rápida de acceder, desde el teclado, a todas las opciones de “Pegar especial”. En los siguientes ejemplos sólo se muestra cómo pegar como texto (sin pegar los formatos).
Después de haber copiado algo ve donde quieras pegarlo (sin pegar el formato).CTRL+V (pegará temporalmente el formato también) luego CTRL (pulsa y suelta la tecla control) y luego T (la última T significa “mantener sólo el texto”).
Después de haber copiado algo ve donde quieras pegarlo (sin pegar el formato).CTRL+V (pegará temporalmente el formato también) luego CTRL (empujar y soltar la tecla de control) luego V (la última V significa “pegar Valores”).
Es importante que se suelte la segunda tecla CTRL antes de escribir la última letra.
Este método sólo requiere 4 pulsaciones de teclado, sin macros y sin utilizar el ratón en una ventana de diálogo.
No creo que lo haya, pero la buena noticia es que puedes hacer una creando una macro.
O bien graba la macro, haciendo el pegado de la forma que quieras, y luego asígnale un atajo de teclado, o pon lo siguiente en una nueva macro (suponiendo que quieras pegar sin formato):
Para MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Para MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
De nuevo, una vez que haya guardado la macro, tendrá que asignarla a un atajo de teclado (por ejemplo, ctrl + m).
Adición: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Si desea establecer “Mantener sólo texto” como valor predeterminado, puede hacer lo siguiente:
La pasta por defecto:
Haz clic en el desplegable de la parte superior y elige “Más comandos”:
Haga clic en Avanzado:
Repitiendo los mismos valores predeterminados de pasta a sólo texto:
¡Espero que esto ayude!
Para Word, cambiar la configuración por defecto (como se muestra arriba) parece una buena opción si la configuración coincide con lo que quieres. Para Excel, sin embargo, yo sugeriría usar un clic derecho en su lugar.
Hay un par de problemas importantes al añadir una macro.
1) Se perderá en los nuevos documentos a menos que modifiques la plantilla por defecto.
2) Si modificas la plantilla por defecto y necesitas compartir tu libro de trabajo, la persona que reciba el archivo recibirá una advertencia de seguridad…. que probablemente le asustará.
Las otras opciones de teclado requieren muchas pulsaciones. Además, si estás pegando desde una página web, Excel y Word tardarán mucho en convertir el HTML.
Un clic con el botón derecho mostrará las opciones de pegado, donde puedes seleccionar la opción de texto plano.
Ojalá hubiera un atajo de teclado incorporado, pero el clic derecho me parece la mejor alternativa.
La función ya existe, sólo que no tiene un atajo de teclado, pero puedes darle uno.
En Word 2007-2013 (tal vez antes, no lo recuerdo), puede vincular el atajo de teclado de su elección a los comandos. En Word 2013 esto se encuentra en
Si la combinación de teclas está en uso, debajo de la caja de “teclas actuales”, te dice “Actualmente asignado a: xyz”, donde xyz es el comando que ya usa este atajo. Entonces puedes decidir si quieres seguir con tu primera opción (el atajo invocará ahora PasteTextOnly y ya no invocará a xyz) o tratar de idear otra combinación de teclas.
En realidad hay una manera fácil. Sólo tienes que pulsar Alt+E, y luego S y V. Te saldrá el cuadro de diálogo mucho más fácilmente, lo que sin duda te ahorrará mucho tiempo.
En Excel, sólo tienes que pulsar F2 en la celda a la que quieres pegar y luego pulsar CTRL+V.
En Word 2007-2013 hay que pulsar ALT + CTRL + G, luego pulsar T y hacer clic en la tecla Enter.
clic derecho donde quieras pegar el texto sin formato pulsa la tecla T
el texto sin formato se pega.
Por cierto: Si pegas accidentalmente un texto con formato, selecciónalo todo y pulsa Ctrl + Espacio para restablecer el formato “normal”.
Para pegar tanto objetos como texto en Excel, con opción de deshacer, utilice
' 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