Scorciatoia in Word o Excel per Incolla speciale?
Risposte:
Non credo che ci sia, ma la buona notizia è che puoi crearne uno creando una macro.
Registra la macro, incollando nel modo desiderato, quindi assegnala a una scorciatoia da tastiera o inserisci quanto segue in una nuova macro (supponendo che desideri incollare senza formattazione):
Per MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Per MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Ancora una volta, una volta salvata la Macro, dovrai assegnarla a una scorciatoia da tastiera (ad es. Ctrl + m).
Aggiunta: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Su Word 2007-2013 su Windows, puoi usare Ctrl+ Alt+ V.
Su Word 2011 per Mac, puoi utilizzare Control+ Command+ V.
Entrambi visualizzeranno la finestra di dialogo "Incolla speciale". Non esiste un collegamento diretto per "Testo non formattato", ma poiché è possibile utilizzare le frecce per accedere a "Testo non formattato" e Enterper confermare, questo è probabilmente il modo più veloce senza una macro.
Ho appena scoperto che in Word 2013 ed Excel 2013 esiste un modo rapido per accedere, dalla tastiera, a tutte le opzioni " Incolla speciale ". Negli esempi seguenti viene mostrato come incollare come testo (senza incollare i formati).
Parola 2013:
Dopo aver copiato qualcosa vai dove vuoi incollarlo (senza incollare il formato). CTRL+ V(incollerà temporaneamente anche il formato) quindi CTRL(premi e rilascia il tasto di controllo) quindi T(l'ultima T significa "mantieni solo il testo").
Excel 2013:
Dopo aver copiato qualcosa vai dove vuoi incollarlo (senza incollare il formato). CTRL+ V(incollerà temporaneamente anche il formato) quindi CTRL(premi e rilascia il tasto di controllo) quindi V(l'ultima V significa "incolla valori").
È importante che il secondo CTRL tasto venga rilasciato prima di digitare l'ultima lettera.
Questo metodo richiede solo 4 colpi di tastiera, nessuna macro e nessun uso del mouse in una finestra di dialogo.
Se si desidera impostare "Mantieni solo testo" come predefinito, è possibile effettuare le seguenti operazioni:
L'incolla predefinita:
Fai clic sul menu a discesa in alto e scegli "Altri comandi":
Fai clic su Avanzate:
Modifica le impostazioni predefinite (per mantenere solo il testo):
Ripetendo lo stesso incolla per impostazione predefinita solo al testo:
Spero che sia di aiuto!
Per Word, modificare le impostazioni predefinite (come mostrato sopra) sembra una buona opzione se le impostazioni corrispondono a ciò che si desidera. Per Excel, tuttavia, suggerirei invece di utilizzare un clic destro.
Ci sono un paio di problemi significativi con l'aggiunta di una macro.
1) Verrà perso nei nuovi documenti a meno che non si modifichi il modello predefinito.
2) Se modifichi il modello predefinito e devi condividere la tua cartella di lavoro, la persona che ottiene il file riceverà un avviso di sicurezza .... che probabilmente li farà impazzire.
Le altre opzioni della tastiera richiedono molti tasti. Inoltre, se stai incollando da una pagina web, Excel e Word impiegheranno molto tempo a convertire l'HTML.
Un clic destro mostrerà le opzioni di incolla, in cui è possibile selezionare l'opzione di testo normale.
Vorrei che fosse integrata una scorciatoia da tastiera, ma il clic destro sembra la migliore alternativa a me.
La funzione esiste già, semplicemente non ha una scorciatoia pronta per l'uso, ma puoi assegnarla.
In Word 2007-2013 (forse prima, non ricordare), puoi associare la scorciatoia da tastiera di tua scelta ai comandi. In Word 2013 questo è in
- File> Opzioni> Personalizza barra multifunzione> quindi fai clic sul pulsante "Personalizza ..." in basso a sinistra etichettato con "Scorciatoie da tastiera:".
- In Categorie, selezionare "Tutti i comandi";
- in Comandi, selezionare "PasteTextOnly".
- Fare clic nella casella di testo "Premere nuovo tasto di scelta rapida", quindi premere la combinazione di tasti che si desidera utilizzare per eseguire questo comando.
- Per associare il collegamento al comando (ricordalo / salva il nuovo collegamento), fai clic sul pulsante "Assegna".
Se la combinazione di tasti è in uso, sotto la casella "chiavi attuali", viene indicato "Attualmente assegnato a: xyz", dove xyz è il comando che utilizza già questo collegamento. Quindi puoi decidere se vuoi rimanere con la tua prima scelta (il collegamento ora invocherà PasteTextOnly e non invocherà più xyz) o provare a trovare un'altra combinazione di tasti.
In realtà c'è un modo semplice. Premi Alt+ E, quindi Se V. Avrai la finestra di dialogo molto più semplice, che ti farà risparmiare un sacco di tempo.
In Word 2007-2013 è necessario premere ALT + CTRL + G, quindi premere T e fare clic sul tasto Invio
In Excel, premi semplicemente F2 sulla cella in cui desideri incollare, quindi premi CTRL + V.
fare clic con il tasto destro del mouse sul punto in cui si desidera incollare il testo normale, premere il tasto T.
il testo non formattato viene incollato.
A proposito: se si incolla accidentalmente testo formattato, selezionarlo tutto e premere Ctrl + Spazio per ripristinare il formato "normale"
Per incollare oggetti e testo in Excel, con un'opzione per annullare, utilizzare
' 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