Jeśli chcę wkleić tekst bez formatowania, muszę przejść do przycisku “Wklej” na wstążce i kliknąć “Wklej Specjalnie”, a następnie “tekst niesformatowany”.
Czy jest jakiś skrót klawiszowy jak Ctrl+V, który zrobi to za mnie automatycznie?
W Word 2007 do 2013 na Windows, możesz użyć Ctrl+Alt+V.
W Word 2011 dla Mac, możesz użyć Control+Command+V.
Oba te sposoby powodują wyświetlenie okna dialogowego “Wklej Specjalnie”. Nie ma skrótu bezpośrednio do “Tekstu niesformatowanego”, ale ponieważ możesz użyć strzałek, aby przejść do “Tekstu niesformatowanego” i Enter, aby potwierdzić, jest to prawdopodobnie najszybszy sposób bez makra.
Właśnie się dowiedziałem, że w Word 2013 i Excel 2013 jest szybki sposób na dostęp z klawiatury do wszystkich opcji “Paste Special”. W poniższych przykładach pokazane jest tylko jak wkleić jako tekst (bez wklejania formatów).
Po skopiowaniu czegoś przejdź tam, gdzie chcesz to wkleić (bez wklejania formatu).CTRL+V (tymczasowo wklei też format) następnie CTRL (wciśnij i puść klawisz control) następnie T (ostatnie T oznacza “zachowaj tylko tekst”).
Po skopiowaniu czegoś przejdź tam, gdzie chcesz to wkleić (bez wklejania formatu).CTRL+V (tymczasowo wklei również format) następnie CTRL (naciśnij i zwolnij klawisz control) następnie V (ostatnie V oznacza “wklej wartości”).
Ważne jest, aby drugi klawisz CTRL został zwolniony przed wpisaniem ostatniej litery.
Ta metoda wymaga tylko 4 uderzeń w klawiaturę, bez makr i bez użycia myszy w oknie dialogowym.
Nie sądzę, ale dobrą wiadomością jest to, że możesz je stworzyć poprzez utworzenie makra.
Albo nagraj makro, wykonując wklejanie w taki sposób, w jaki chcesz, a następnie przypisz je do skrótu klawiaturowego, albo umieść następujące elementy w nowym makrze (zakładając, że chcesz wklejać bez formatowania):
Dla MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Dla MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Ponownie, po zapisaniu makra, będziesz musiał przypisać je do skrótu klawiaturowego (np. ctrl + m).
Dodatek: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Jeśli chcesz ustawić “Zachowaj tylko tekst” jako domyślne, możesz wykonać następujące czynności:
Domyślna pasta:
Kliknij na rozwijaną listę u góry i wybierz “Więcej poleceń”:
Kliknij przycisk Zaawansowane:
Zmień ustawienia domyślne (na Zachowaj tylko tekst):
Powtórzenie tego samego wklejania powoduje zmianę domyślnych ustawień na Tylko tekst:
Mam nadzieję, że to pomoże!
W przypadku Worda, zmiana ustawień domyślnych (jak pokazano powyżej) wydaje się być dobrą opcją, jeśli ustawienia odpowiadają temu, co chcesz. W przypadku Excela sugerowałbym jednak użycie prawego przycisku myszy.
Jest kilka istotnych problemów z dodaniem makra.
1) Zostanie ono utracone w nowych dokumentach, chyba że zmodyfikujesz domyślny szablon.
2) Jeśli zmodyfikujesz domyślny szablon i będziesz musiał udostępnić swój skoroszyt, to osoba, która otrzyma plik, otrzyma ostrzeżenie o zabezpieczeniach…., które prawdopodobnie ją wystraszy.
Pozostałe opcje klawiatury wymagają wielu naciśnięć klawiszy. Ponadto, jeśli wklejasz tekst ze strony internetowej, Excel i Word będą długo konwertować HTML.
Kliknięcie prawym przyciskiem myszy wyświetli opcje wklejania, gdzie można wybrać opcję zwykłego tekstu.
Szkoda, że nie ma wbudowanego skrótu klawiaturowego, ale kliknięcie prawym przyciskiem myszy wydaje mi się najlepszą alternatywą.
Funkcja już istnieje, po prostu nie ma skrótu klawiszowego, ale możesz mu go nadać.
W programie Word 2007-2013 (może wcześniej, nie pamiętam) możesz powiązać wybrany skrót klawiaturowy z poleceniami. W Word 2013 jest to w
Jeśli kombinacja klawiszy jest w użyciu, pod polem “Bieżące klawisze”, mówi ci “Obecnie przypisany do: xyz”, gdzie xyz jest poleceniem, które już używa tego skrótu. Wtedy możesz zdecydować, czy chcesz pozostać przy swoim pierwszym wyborze (skrót wywoła teraz PasteTextOnly i nie wywoła już xyz), czy spróbować wymyślić inną kombinację klawiszy.
Jest na to prosty sposób. Po prostu naciśnij Alt+E, a następnie S i V. Otrzymasz okno dialogowe o wiele łatwiejsze, co z pewnością zaoszczędzi Ci wiele czasu.
W Excelu wystarczy nacisnąć klawisz F2 na komórce, do której chcemy wkleić plik, a następnie nacisnąć CTRL+V.
W programie Word 2007-2013 musisz nacisnąć klawisze ALT + CTRL + G, a następnie nacisnąć klawisz T i kliknąć Enter.
kliknij prawym przyciskiem myszy w miejscu, w którym chcesz wkleić zwykły tekst, naciśnij klawisz T
niesformatowany tekst zostanie wklejony.
BTW: Jeśli przypadkowo wkleisz sformatowany tekst, zaznacz go całego i naciśnij Ctrl + Spacja, aby zresetować do “normalnego” formatu.
Aby wkleić zarówno obiekty jak i tekst w Excelu, z opcją cofania, użyj
' 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