Word或Excel中特殊粘贴的快捷方式？

在Windows的Word 2007到2013上，你可以使用Ctrl+Alt+V。

在Mac的Word 2011上，你可以使用Control+Command+V。

这两种方式都会弹出 “粘贴特殊 "对话框。"非格式化文本 "没有直接的快捷方式，但由于可以用箭头进入 "非格式化文本 "并回车确认，所以这可能是没有宏的最快方式。

我刚刚发现，在Word 2013和Excel 2013中，有一种快速的方法可以从键盘上访问所有的"Paste Special“选项。在下面的例子中，它只是显示了如何粘贴为文本（不粘贴格式）。

Word 2013。

在复制了一些东西后，去你想粘贴的地方（不粘贴格式）.CTRL+V（它也会暂时粘贴格式），然后CTRL（按下并松开控制键），然后T（最后一个T表示 "只保留文本"）。

Excel 2013。

复制完东西后去你想粘贴的地方（不粘贴格式）.CTRL+V（它也会暂时粘贴格式）然后CTRL（推并释放控制键）然后V（最后一个V的意思是 "粘贴值"）。

重要的是，在输入最后一个字母之前，要先松开_秒的CTRL键。

这个方法只需要敲击4次键盘，不需要宏，也不需要在对话框窗口中使用鼠标。

我认为没有，但好消息是，你可以通过创建一个宏来制作。

要么录制宏，按照你想要的方式进行粘贴，然后将其分配给键盘快捷键，要么将以下内容放入一个新的宏中（假设你想要不加格式化的粘贴）：

对于MS Word 2010。

Selection.PasteAndFormat (wdFormatPlainText)

对于MS Excel 2010:

ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
    DisplayAsIcon:=False, NoHTMLFormatting:=True

同样，一旦你保存了宏，你需要将其指定为键盘快捷键（例如ctrl+m）。

补充: MS Word 2002:

Sub PastePlaintext()
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub

如果你想将 “只保留文字 "设置为默认，可以进行以下操作。

1.默认粘贴：

1. 点击顶部的下拉菜单，选择 "更多命令"。

2. 点击 "高级"：

3. 更改默认值（仅保留文本）：

4. 重复相同的粘贴默认为只保留文本：

希望这能帮到你!

对于一个应用程序不可知的解决方案，可以考虑 PureText .

不需要安装程序，它是免费的，当它运行时，它将映射一个新的键组合来粘贴，而不需要格式化。

我个人用的是Win+V。

对于Word来说，如果设置符合你的要求，改变默认设置（如上图所示）似乎是一个不错的选择。然而，对于Excel，我建议使用右键来代替。

添加宏有几个重大问题。

1）它将在新文档中丢失，除非你修改默认模板。

2）如果你修改了默认模板，并且需要共享你的工作簿，那么得到文件的人将得到一个安全警告….，这很可能会吓坏他们。

其他键盘选项需要大量的按键。此外，如果你是从网页粘贴过来的，那么Excel和Word会花很长时间来转换HTML。

右键单击会显示粘贴选项，在这里你可以选择纯文本选项。

我希望有一个内置的键盘快捷键，但右键似乎是我最好的选择。

这个功能已经存在了，只是没有开箱即用的快捷键，但你可以给它一个。

在Word 2007-2013中（也许更早，不记得了），你可以将你选择的键盘快捷键绑定到命令中。在Word 2013中，这是在

• 文件/>选项/>自定义功能区/>然后点击左下角标有 “键盘快捷键："的 "自定义… "按钮。
• 在 "类别 "中选择 "所有命令"；
• 在 "命令 "中选择 "仅粘贴文本"。
• 在 "按新的快捷键 "文本框中点击，然后按你要用来执行这个命令的组合键。
• 要将快捷键与命令绑定（使其记住/保存新的快捷键），请单击 "指定 "按钮。

如果正在使用按键组合，在 "当前按键 "框下面，会告诉你 "当前分配给：xyz"，其中xyz是已经使用这个快捷键的命令。然后你可以决定是否要坚持你的第一个选择（该快捷键现在将调用PasteTextOnly而不再调用xyz），或者尝试用另一个键组合。

在Word 2010中，你可以右击，并从粘贴选项中选择 “仅保留文本”–虽然不如键盘快捷键，但也不差。

其实有一个简单的方法。只要按Alt+E，然后按S和V，你就会更容易得到对话框，那肯定会节省你很多时间。

在Excel中，只需在要粘贴的单元格上按F2键，然后按CTRL+V键。

在Word 2007-2013中必须按ALT + CTRL + G，然后按T键，再按Enter键。

右键点击要粘贴纯文本的地方按T键

未格式化的文本就粘贴好了。

BTW: 如果你不小心粘贴了格式化的文本，请选择所有的文本，然后按Ctrl+Space重置为 “正常 "格式。

要在Excel中粘贴对象和文本，并带有撤销选项，使用

' 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

From https://acquirements.wordpress.com/2017/02/07/excel-paste-special-macro-shortcut-key-for-both-objects-and-text/ 。