WordまたはExcelの特別な貼り付けのショートカット？
回答:
あるとは思いませんが、良いニュースは、マクロを作成することで作成できることです。
マクロを記録し、希望する方法で貼り付けを行ってから、キーボードショートカットに割り当てるか、次を新しいマクロに挿入します（書式設定なしで貼り付けたい場合）：
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
Word 2013およびExcel 2013では、キーボードからすべての「形式を選択して貼り付け」オプションに簡単にアクセスできることがわかりました。次の例では、（形式を貼り付けずに）テキストとして貼り付ける方法を示しています。
Word 2013：
コピーした後、貼り付けたい場所に（形式を貼り付けずに）移動します。 CTRL+ V（形式も一時的に貼り付けられCTRLます）、T（コントロールキーを押して放します）、（最後のTは「テキストのみを保持」を意味します）。
Excel 2013：
コピーした後、貼り付けたい場所に（形式を貼り付けずに）移動します。 CTRL+ V（形式も一時的に貼り付けられCTRLます）、次にV（コントロールキーを押して放します）、（最後のVは「値の貼り付け」を意味します）。
最後の文字を入力する前に2番目の CTRLキーを離すことが重要です。
この方法では、ダイアログウィンドウでキーボードを4回押すだけで、マクロもマウスも使用しません。
「テキストのみを保持」をデフォルトとして設定する場合は、次の操作を実行できます。
デフォルトの貼り付け：
上部のドロップダウンをクリックして、「その他のコマンド」を選択します。
[詳細設定]をクリックします。
デフォルトを変更します（テキストのみを保持する）：
同じ貼り付けを繰り返すと、デフォルトはテキストのみになります。
お役に立てれば！
Wordの場合、既定の設定（上記を参照）を変更することは、設定が希望するものと一致する場合に適したオプションのようです。ただし、Excelの場合は、代わりに右クリックを使用することをお勧めします。
マクロの追加には、いくつかの重大な問題があります。
1）デフォルトのテンプレートを変更しない限り、新しいドキュメントでは失われます。
2）デフォルトのテンプレートを変更し、ワークブックを共有する必要がある場合、ファイルを受け取った人にはセキュリティ警告が表示されます。
他のキーボードオプションでは、多くのキーストロークが必要です。さらに、Webページから貼り付ける場合、ExcelとWordはHTMLの変換に時間がかかります。
右クリックすると貼り付けオプションが表示され、プレーンテキストオプションを選択できます。
キーボードショートカットが組み込まれていればよかったのですが、右クリックは私にとって最良の選択肢のようです。
この関数は既に存在し、すぐに使用できるショートカットはありませんが、指定することができます。
Word 2007-2013（以前のバージョンかもしれませんが、覚えていません）では、選択したキーボードショートカットをコマンドにバインドできます。Word 2013では、これは
- [ファイル]> [オプション]> [リボンのカスタマイズ]> [キーボードショートカット：]というラベルの付いた左下の[カスタマイズ...]ボタンをクリックします。
- [カテゴリ]で、[すべてのコマンド]を選択します。
- [コマンド]で、[PasteTextOnly]を選択します。
- [新しいショートカットキーを押す]テキストボックスをクリックし、このコマンドの実行に使用するキーの組み合わせを押します。
- ショートカットをコマンドにバインドするには（新しいショートカットを記憶させる/保存する）、[割り当て]ボタンをクリックします。
キーコンボが使用中の場合、「現在のキー」ボックスの下に「現在の割り当て先：xyz」と表示されます。xyzは、このショートカットを既に使用しているコマンドです。次に、最初の選択肢に固執するかどうか（ショートカットがPasteTextOnlyを呼び出し、xyzを呼び出さなくなる）を決定するか、別のキーコンボを考え出すことができます。
実際には簡単な方法があります。Alt+を押してEから、Sを押しVます。ダイアログボックスがはるかに簡単になり、確実に多くの時間を節約できます。
Word 2007-2013では、ALT + CTRL + Gを押してから、Tを押してEnterキーをクリックする必要があります
元に戻すオプションを使用して、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
https://acquirements.wordpress.com/2017/02/07/excel-paste-special-macro-shortcut-key-for-both-objects-and-text/から