Odpowiedzi:
Nie sądzę, żeby tak było, ale dobrą wiadomością jest to, że możesz to zrobić, tworząc makro.
Zapisz makro, wykonując wklejanie tak, jak chcesz, a następnie przypisz je do skrótu klawiaturowego lub umieść następujące polecenie w nowym makrze (zakładając, że chcesz wkleić bez formatowania):
W przypadku MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
W przypadku MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Ponownie, po zapisaniu makra, musisz przypisać go do skrótu klawiaturowego (np. Ctrl + m).
Dodatek: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
W programach Word 2007 do 2013 w systemie Windows można używać Ctrl+ Alt+ V.
W programie Word 2011 dla komputerów Mac możesz użyć Control+ Command+ V.
Oba wyświetlą okno dialogowe „Wklej specjalnie”. Nie ma bezpośredniego skrótu do „Niesformatowanego tekstu”, ale ponieważ można użyć strzałek, aby przejść do „Niesformatowanego tekstu” i Enterpotwierdzić, jest to prawdopodobnie najszybszy sposób bez makra.
Właśnie dowiedziałem się, że w programach Word 2013 i Excel 2013 istnieje szybki sposób na dostęp z klawiatury za pomocą wszystkich opcji „ Wklej specjalnie ”. W poniższych przykładach pokazano tylko, jak wkleić jako tekst (bez wklejania formatów).
Po skopiowaniu czegoś przejdź do miejsca, w którym chcesz go wkleić (bez wklejania formatu). CTRL+ V(również tymczasowo wklei format) następnie CTRL(naciśnij i zwolnij klawisz kontrolny), a następnie T(ostatni T oznacza „zachowaj tylko tekst”).
Po skopiowaniu czegoś przejdź do miejsca, w którym chcesz go wkleić (bez wklejania formatu). CTRL+ V(również tymczasowo wklei format) następnie CTRL(naciśnij i zwolnij klawisz kontrolny), a następnie V(ostatnie V oznacza „wklej wartości”).
Ważne jest, aby drugi CTRL klawisz został zwolniony przed wpisaniem ostatniej litery.
Ta metoda wymaga tylko 4 naciśnięć klawiszy, bez makr i bez użycia myszy w oknie dialogowym.
Jeśli chcesz ustawić opcję „Zachowaj tylko tekst” jako domyślną, możesz wykonać następujące czynności:
Domyślna pasta:
Kliknij menu u góry i wybierz „Więcej poleceń”:
Kliknij Zaawansowane:
Zmień wartości domyślne (na Zachowaj tylko tekst):
Powtarzanie tej samej wklejania domyślnie dotyczy tylko tekstu:
Mam nadzieję że to pomoże!
W przypadku programu Word zmiana ustawień domyślnych (jak pokazano powyżej) wydaje się dobrą opcją, jeśli ustawienia są zgodne z oczekiwaniami. W przypadku programu Excel sugerowałbym jednak użycie kliknięcia prawym przyciskiem myszy.
Jest kilka istotnych problemów z dodawaniem makra.
1) Zostanie utracony w nowych dokumentach, chyba że zmodyfikujesz domyślny szablon.
2) Jeśli zmodyfikujesz szablon domyślny i będziesz musiał udostępnić swój skoroszyt, osoba otrzymująca plik otrzyma ostrzeżenie bezpieczeństwa .... co prawdopodobnie go przerazi.
Inne opcje klawiatury wymagają wielu naciśnięć klawiszy. Ponadto, jeśli wklejasz ze strony internetowej, konwersja HTMLa w programie Excel i Word długo potrwa.
Kliknij prawym przyciskiem myszy, aby wyświetlić opcje wklejania, w których możesz wybrać opcję zwykłego tekstu.
Chciałbym mieć wbudowany skrót klawiaturowy, ale kliknięcie prawym przyciskiem wydaje się dla mnie najlepszą alternatywą.
Funkcja już istnieje, po prostu nie ma gotowego skrótu, ale możesz go podać.
W programie Word 2007-2013 (być może wcześniej, nie pamiętaj) możesz przypisać skrót klawiaturowy do poleceń. W Word 2013 to jest w
Jeśli używana jest kombinacja klawiszy, pod polem „bieżące klucze” wyświetla się komunikat „Aktualnie przypisany do: xyz”, gdzie xyz to polecenie, które już używa tego skrótu. Następnie możesz zdecydować, czy chcesz pozostać przy swoim pierwszym wyborze (skrót będzie teraz wywoływał PasteTextOnly i nie będzie już wywoływał xyz) lub spróbujesz wymyślić inną kombinację klawiszy.
Jest tak naprawdę prosty sposób. Po prostu naciśnij Alt+ E, a następnie Si V. Otworzysz okno dialogowe znacznie łatwiej, co z pewnością zaoszczędzi Ci dużo czasu.
W programie Word 2007-2013 musisz nacisnąć klawisze ALT + CTRL + G, a następnie nacisnąć T i kliknąć klawisz Enter
W programie Excel po prostu naciśnij klawisz F2 na komórce, do której chcesz wkleić, a następnie naciśnij klawisze CTRL + V.
Aby wkleić zarówno obiekty, jak i tekst w programie Excel, 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