Phím tắt trong Word hoặc Excel để dán đặc biệt?
Câu trả lời:
Tôi không nghĩ là có, nhưng tin tốt là bạn có thể tạo một cái bằng cách tạo một macro.
Ghi lại macro, thực hiện dán theo cách bạn muốn, sau đó gán nó cho một phím tắt hoặc đặt phần sau vào một macro mới (giả sử bạn muốn dán mà không cần định dạng):
Đối với MS Word 2010:
Selection.PasteAndFormat (wdFormatPlainText)
Đối với MS Excel 2010:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Một lần nữa, khi bạn đã lưu Macro, bạn sẽ cần gán nó cho một phím tắt (ví dụ: ctrl + m).
Ngoài ra: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Trên Word 2007 đến 2013 trên Windows, bạn có thể sử dụng Ctrl+ Alt+ V.
Trên Word 2011 cho Mac, bạn có thể sử dụng Control+ Command+ V.
Cả hai sẽ hiển thị hộp thoại "Dán đặc biệt". Không có phím tắt trực tiếp cho "Văn bản chưa được định dạng", nhưng vì bạn có thể sử dụng mũi tên để đi đến "Văn bản chưa được định dạng" và Enterđể xác nhận, đây có lẽ là cách nhanh nhất mà không cần macro.
Tôi vừa phát hiện ra rằng trong Word 2013 và Excel 2013, có một cách nhanh chóng để truy cập, từ bàn phím, tất cả các tùy chọn " Dán đặc biệt ". Trong các ví dụ sau, nó chỉ hiển thị cách dán dưới dạng văn bản (không dán các định dạng).
Lời 2013:
Sau khi đã sao chép một cái gì đó đi đến nơi bạn muốn dán nó (mà không dán định dạng). CTRL+ V(nó cũng sẽ tạm thời dán định dạng) sau đó CTRL(nhấn và nhả phím điều khiển) sau đó T(chữ T cuối cùng có nghĩa là "chỉ giữ văn bản").
Excel 2013:
Sau khi đã sao chép một cái gì đó đi đến nơi bạn muốn dán nó (mà không dán định dạng). CTRL+ V(nó cũng sẽ tạm thời dán định dạng) sau đó CTRL(nhấn và nhả phím điều khiển) sau đó V(chữ V cuối cùng có nghĩa là "dán Giá trị").
Điều quan trọng là khóa thứ hai CTRL được phát hành trước khi gõ chữ cái cuối cùng.
Phương pháp này chỉ cần 4 lần nhấn bàn phím, không có macro và không sử dụng chuột trong cửa sổ hộp thoại.
Nếu bạn muốn đặt "Chỉ giữ văn bản" làm mặc định, bạn có thể thực hiện các thao tác sau:
Dán mặc định:
Nhấp vào menu thả xuống ở trên cùng và chọn "Lệnh khác":
Bấm Nâng cao:
Thay đổi mặc định (để Chỉ giữ văn bản):
Lặp lại cùng một mặc định dán thành văn bản:
Hi vọng điêu nay co ich!
Đối với Word, thay đổi cài đặt mặc định (như được hiển thị ở trên) có vẻ là một tùy chọn tốt nếu cài đặt khớp với những gì bạn muốn. Tuy nhiên, đối với Excel, tôi sẽ đề nghị sử dụng nhấp chuột phải thay thế.
Có một vài vấn đề quan trọng khi thêm macro.
1) Nó sẽ bị mất trong các tài liệu mới trừ khi bạn sửa đổi mẫu mặc định.
2) Nếu bạn sửa đổi mẫu mặc định và cần chia sẻ sổ làm việc của mình, thì người nhận tệp sẽ nhận được cảnh báo bảo mật .... có thể sẽ khiến họ hoảng sợ.
Các tùy chọn bàn phím khác yêu cầu rất nhiều tổ hợp phím. Ngoài ra, nếu bạn dán từ một trang web, thì Excel và Word sẽ mất nhiều thời gian để chuyển đổi HTML.
Một nhấp chuột phải sẽ hiển thị các tùy chọn dán, nơi bạn có thể chọn tùy chọn văn bản thuần túy.
Tôi ước có một phím tắt được tích hợp sẵn, nhưng nhấp chuột phải có vẻ là lựa chọn tốt nhất đối với tôi.
Hàm đã tồn tại, nó chỉ không có lối tắt ra khỏi hộp, nhưng bạn có thể cung cấp cho nó một phím tắt.
Trong Word 2007-2013 (có thể sớm hơn, đừng nhớ), bạn có thể liên kết phím tắt mà bạn chọn với các lệnh. Trong Word 2013, đây là
- Tệp> Tùy chọn> Tùy chỉnh Dải băng> sau đó nhấp vào nút "Tùy chỉnh ..." ở dưới cùng bên trái được gắn nhãn "Phím tắt:".
- Trong Danh mục, chọn, "Tất cả các lệnh";
- trong Lệnh, chọn, "PasteTextOnly".
- Nhấp vào hộp văn bản "Nhấn phím tắt mới", sau đó nhấn tổ hợp phím bạn muốn sử dụng để thực hiện lệnh này.
- Để liên kết phím tắt với lệnh (làm cho nó nhớ / lưu phím tắt mới), nhấp vào nút "Gán".
Nếu tổ hợp phím đang được sử dụng, bên dưới hộp "khóa hiện tại", nó sẽ cho bạn biết "Hiện được gán cho: xyz", trong đó xyz là lệnh đã sử dụng phím tắt này. Sau đó, bạn có thể quyết định xem mình có muốn chọn lựa chọn đầu tiên hay không (phím tắt bây giờ sẽ gọi PasteTextOnly và không còn gọi xyz nữa) hoặc thử đưa ra một tổ hợp phím khác.
Thực sự có một cách dễ dàng. Chỉ cần nhấn Alt+ E, sau đó Svà V. Bạn sẽ nhận được hộp thoại dễ dàng hơn nhiều, điều đó chắc chắn sẽ giúp bạn tiết kiệm rất nhiều thời gian.
Trong Word 2007-2013, bạn phải nhấn ALT + CTRL + G, sau đó nhấn T và nhấn phím Enter
Trong Excel, chỉ cần nhấn F2 trên ô mà bạn muốn dán vào, sau đó nhấn CTRL + V.
Để dán cả đối tượng và văn bản trong Excel, với tùy chọn hoàn tác, hãy sử dụng
' 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