Als ik wil plakken zonder opmaak, moet ik naar de knop “Plakken” op het lint gaan en klikken op “Plakken speciaal” en dan op “niet-opgemaakte tekst”.
Is er een sneltoets zoals Ctrl+V die dat automatisch voor me doet?
In Word 2007 tot 2013 op Windows, kunt u Ctrl+Alt+V gebruiken.
In Word 2011 voor Mac, kun je Control+Command+V gebruiken.
Beide zullen het “Plak Speciaal” dialoogvenster oproepen. Er is geen directe sneltoets voor “Niet opgemaakte tekst”, maar aangezien je met pijltjes naar “Niet opgemaakte tekst” kunt gaan en Enter kunt gebruiken om te bevestigen, is dit waarschijnlijk de snelste manier zonder macro.
Ik heb net ontdekt dat er in Word 2013 en Excel 2013 een snelle manier is om, vanaf het toetsenbord, alle “Paste Special” opties te openen. In de volgende voorbeelden wordt enkel getoond hoe te plakken als tekst (zonder de opmaak te plakken).
Na iets gekopieerd te hebben ga je naar de plek waar je het wilt plakken (zonder de opmaak te plakken).CTRL+V (hiermee plak je tijdelijk ook de opmaak) dan CTRL (druk de control toets in en laat hem los) dan T (de laatste T betekent “alleen tekst houden”).
Na iets gekopieerd te hebben ga je naar de plaats waar je het wilt plakken (zonder de opmaak te plakken).CTRL+V (het zal tijdelijk ook de opmaak plakken) dan CTRL (druk op de control toets en laat deze weer los) dan V (de laatste V betekent “Waarden plakken”).
Het is belangrijk dat de tweede CTRL-toets wordt losgelaten voordat de laatste letter wordt getypt.
Deze methode vereist slechts 4 toetsaanslagen, geen macro’s en geen gebruik van de muis in een dialoogvenster.
Ik denk niet dat die er is, maar het goede nieuws is dat je er een kunt maken door een macro te maken.
Ofwel neem je de macro op, waarbij je het plakken doet zoals je wilt, en wijs je het toe aan een sneltoets, ofwel zet je het volgende in een nieuwe macro (ervan uitgaande dat je wilt plakken zonder opmaak):
Voor MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Voor MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Nogmaals, zodra u de macro hebt opgeslagen, moet u deze toewijzen aan een sneltoets (bijv. ctrl + m).
Voegsel: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Als je “Alleen Tekst Bewaren” als standaard wilt instellen, kun je het volgende doen:
De standaard pasta:
Klik op de dropdown bovenin en kies “Meer opdrachten”:
Klik op Geavanceerd:
Verander de standaardwaarden (in Alleen Tekst Bewaren):
Herhaal hetzelfde plakken standaard op alleen tekst:
Hoop dat dit helpt!
Voor een applicatie-onafhankelijke oplossing, overweeg PureText .
Je hoeft geen installatieprogramma te installeren, het is gratis en als het draait, wijst het een nieuwe toetscombinatie toe voor plakken zonder opmaak.
Persoonlijk gebruik ik Win+V.
Voor Word lijkt het wijzigen van de standaard instellingen (zoals hierboven getoond) een goede optie als de instellingen overeenkomen met wat u wilt. Voor Excel zou ik echter adviseren om in plaats daarvan met de rechtermuisknop te klikken.
Er zijn een paar belangrijke problemen met het toevoegen van een macro.
1) Hij gaat verloren in nieuwe documenten, tenzij je het standaardsjabloon aanpast. 0x2 & 0x2 & 2) Als u de standaardsjabloon en moet je je werkmap te delen, dan is de persoon die het bestand krijgt een beveiligingswaarschuwing…. die waarschijnlijk zal ze freak out.
De andere toetsenbordopties vereisen veel toetsaanslagen. Bovendien, als je plakt vanaf een webpagina, dan doen Excel en Word er lang over om de HTML om te zetten.
Een klik met de rechtermuisknop toont de plak-opties, waar je de platte tekst optie kunt selecteren.
Ik wou dat er een sneltoets was ingebouwd, maar rechts klikken lijkt me het beste alternatief.
De functie bestaat al, hij heeft alleen nog geen sneltoets, maar die kun je er wel aan geven.
In Word 2007-2013 (misschien eerder, weet het niet meer), kun je de sneltoets van je keuze aan commando’s koppelen. In Word 2013 is dit in
Als de toetsencombinatie in gebruik is, staat er onder het vakje “huidige toetsen”: “Momenteel toegewezen aan: xyz”, waarbij xyz het commando is dat deze snelkoppeling al gebruikt. Dan kan je beslissen of je al dan niet bij je eerste keuze blijft (de sneltoets zal nu PasteTextOnly aanroepen en niet langer xyz) of dat je een andere toetsencombinatie probeert te bedenken.
Er is eigenlijk een makkelijke manier. Druk gewoon op Alt+E, dan S en V. Je krijgt het dialoogvenster veel gemakkelijker, dat zal je zeker veel tijd besparen.
Druk in Excel gewoon op F2 in de cel waar u wilt plakken, en druk vervolgens op CTRL+V.
In Word 2007-2013 moet u ALT + CTRL + G indrukken, dan op T drukken en op Enter klikken
klik met de rechtermuisknop op de plaats waar je de platte tekst wilt plakken, druk op de T-toets
de niet-opgemaakte tekst wordt geplakt.
BTW: Als je per ongeluk geformatteerde tekst plakt, selecteer je alles en druk je op Ctrl + spatie om terug te gaan naar ‘normaal’ formaat
Om zowel objecten als tekst in Excel te plakken, met een optie voor ongedaan maken, gebruikt u
' 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