Сокращение в Word или Excel для специальной пасты?

В Word 2007-2013 на Windows можно использовать Ctrl+Alt+V.

On Word 2011 для Mac, вы можете использовать Control+Command+V.

Оба они вызовут диалог “Специальная вставка”. Нет прямого ярлыка для “Неформатированного текста”, но так как вы можете использовать стрелки для перехода к “Неформатированному тексту” и Enter для подтверждения, это, вероятно, самый быстрый способ без макроса.

Я только что узнал, что в Word 2013 и Excel 2013 есть быстрый способ доступа, с клавиатуры, все “Paste Special” варианты. В следующих примерах просто показано, как вставить как текст (без вставки форматов).

Слово 2013:

После того, как вы скопировали что-то, перейдите туда, куда хотите вставить (без вставки формата).CTRL+V (он тоже временно вставит формат), затем CTRL (нажмите и отпустите клавишу управления), затем T (последняя T означает “хранить только текст”).

Excel 2013:

После того, как вы скопировали что-то, перейдите туда, куда хотите вставить (без вставки формата).CTRL+V (он тоже временно вставит формат), затем CTRL (нажмите и отпустите клавишу управления), затем V (последняя V означает “вставить значения”).

Важно, чтобы клавиша second CTRL была освобождена перед вводом последней буквы.

Этот метод требует всего 4 ударов по клавиатуре, никаких макросов и использования мыши в диалоговом окне.

Не думаю, что есть, но хорошая новость в том, что можно сделать его, создав макрос.

Либо запишите макрос, делая вставку так, как вы хотите, затем назначьте его сочетанием клавиш, либо вставьте в новый макрос следующее (предполагая, что вы хотите вставить без форматирования):

Для MS Word 2010:

Selection.PasteAndFormat (wdFormatPlainText)

Для MS Excel 2010:

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

Опять же, как только вы сохранили Macro, вам нужно назначить его на сочетание клавиш (например, ctrl + m).

Добавление: Слово MS 2002:

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

Если вы хотите установить по умолчанию “Сохранять только текст”, вы можете сделать следующее:

1. вставка по умолчанию:

2. Нажмите на выпадающее сверху и выберите “Больше команд”:

3. Щелкните Дополнительно:

4. Измените значения по умолчанию (чтобы сохранить только текст):

5. Повторение тех же самых вставок по умолчанию только для текста:

Надеюсь, это поможет!

Для агностического решения приложения рассмотрим PureText .

Инсталлятор не требуется, он бесплатный, и при запуске он отобразит новую комбинацию клавиш для вставки без форматирования.

Лично я использую Win+V.

Для Word изменение настроек по умолчанию (как показано выше) кажется хорошим вариантом, если настройки соответствуют тому, что вы хотите. Для Excel, однако, я бы предложил использовать правой кнопкой мыши.

Есть пара существенных проблем с добавлением макроса.

1) Он будет потерян в новых документах, если вы не измените шаблон по умолчанию.

2) Если вы измените шаблон по умолчанию и вам нужно будет поделиться рабочей тетрадью, то человек, получивший файл, получит предупреждение безопасности…., которое, скорее всего, испугает его.

Остальные параметры клавиатуры требуют большого количества нажатий клавиш. Кроме того, если вы вставляете с веб-страницы, то Excel и Word потребуют много времени на преобразование HTML.

При нажатии правой кнопки мыши будут показаны опции вставки, где вы можете выбрать опцию простого текста.

Хотелось бы, чтобы была встроенная комбинация клавиш, но правый клик кажется мне лучшей альтернативой.

Функция уже существует, у нее просто нет ярлыка из коробки, но его можно дать.

В слове 2007-2013 (может быть, раньше, не помните), вы можете привязать выбранный вами ярлык к командам. В Слове 2013 это в

• Файл > Параметры > Настроить ленту > затем нажмите кнопку “Настроить…” в левом нижнем углу с надписью “Клавиатурные сокращения:”.
  
• в Категориях выберите “Все команды”;
• в Командах выберите “Вставить только текст”.
  
• в текстовом поле “Press new shortcut key” (Нажмите новую клавишу быстрого доступа) нажмите комбинацию клавиш, которую вы хотите использовать для выполнения этой команды.
  
• Чтобы привязать ярлык к команде (заставить ее запомнить / сохранить новый ярлык), нажмите кнопку “Назначить”.

Если комбинация клавиш используется, под окошком “текущие клавиши”, она скажет вам “Current assigned to: xyz”, где xyz - это команда, которая уже использует этот ярлык. Затем вы можете решить, хотите ли вы вставить ж/у свой первый выбор (теперь этот ярлык будет вызывать только PasteTextOnly и больше не будет вызывать xyz) или попробовать придумать другую комбинацию клавиш.

В Word 2010 вы можете щелкнуть правой кнопкой мыши и из опций вставки выбрать “Сохранять только текст” - не так хорошо, как горячие клавиши, но неплохо.

Вообще-то, есть простой способ. Просто нажмите Alt+E, затем S и V. Вы получите диалоговое окно намного проще, что, безусловно, сэкономит вам много времени.

В Excel просто нажмите F2 на ячейке, в которую вы хотите вставить, затем нажмите CTRL+V.

В слове 2007-2013 необходимо нажать ALT + CTRL + G, затем нажать T и нажать клавишу Enter.

Щелкните правой кнопкой мыши там, где вы хотите вставить обычный текст, нажмите клавишу T 0x2 и 0x2 и вставляется неформатированный текст.

BTW: Если вы случайно вставили форматированный текст, выделите его все и нажмите Ctrl + Пробел, чтобы сбросить в “нормальный” формат.

Для вставки как объектов, так и текста в 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/ .