Если я хочу вставить без форматирования, мне нужно перейти к кнопке “Вставить” на ленте и нажать кнопку “Вставить специальный”, а затем “неформатированный текст”.
Есть ли такой ярлык, как Ctrl+V, который автоматически сделает это за меня?
В Word 2007-2013 на Windows можно использовать Ctrl+Alt+V.
On Word 2011 для Mac, вы можете использовать Control+Command+V.
Оба они вызовут диалог “Специальная вставка”. Нет прямого ярлыка для “Неформатированного текста”, но так как вы можете использовать стрелки для перехода к “Неформатированному тексту” и Enter для подтверждения, это, вероятно, самый быстрый способ без макроса.
Я только что узнал, что в Word 2013 и Excel 2013 есть быстрый способ доступа, с клавиатуры, все “Paste Special” варианты. В следующих примерах просто показано, как вставить как текст (без вставки форматов).
После того, как вы скопировали что-то, перейдите туда, куда хотите вставить (без вставки формата).CTRL+V (он тоже временно вставит формат), затем CTRL (нажмите и отпустите клавишу управления), затем T (последняя T означает “хранить только текст”).
После того, как вы скопировали что-то, перейдите туда, куда хотите вставить (без вставки формата).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
Если вы хотите установить по умолчанию “Сохранять только текст”, вы можете сделать следующее:
вставка по умолчанию:
Нажмите на выпадающее сверху и выберите “Больше команд”:
Щелкните Дополнительно:
Измените значения по умолчанию (чтобы сохранить только текст):
Повторение тех же самых вставок по умолчанию только для текста:
Надеюсь, это поможет!
Для Word изменение настроек по умолчанию (как показано выше) кажется хорошим вариантом, если настройки соответствуют тому, что вы хотите. Для Excel, однако, я бы предложил использовать правой кнопкой мыши.
Есть пара существенных проблем с добавлением макроса.
1) Он будет потерян в новых документах, если вы не измените шаблон по умолчанию.
2) Если вы измените шаблон по умолчанию и вам нужно будет поделиться рабочей тетрадью, то человек, получивший файл, получит предупреждение безопасности…., которое, скорее всего, испугает его.
Остальные параметры клавиатуры требуют большого количества нажатий клавиш. Кроме того, если вы вставляете с веб-страницы, то Excel и Word потребуют много времени на преобразование HTML.
При нажатии правой кнопки мыши будут показаны опции вставки, где вы можете выбрать опцию простого текста.
Хотелось бы, чтобы была встроенная комбинация клавиш, но правый клик кажется мне лучшей альтернативой.
Функция уже существует, у нее просто нет ярлыка из коробки, но его можно дать.
В слове 2007-2013 (может быть, раньше, не помните), вы можете привязать выбранный вами ярлык к командам. В Слове 2013 это в
Если комбинация клавиш используется, под окошком “текущие клавиши”, она скажет вам “Current assigned to: xyz”, где xyz - это команда, которая уже использует этот ярлык. Затем вы можете решить, хотите ли вы вставить ж/у свой первый выбор (теперь этот ярлык будет вызывать только PasteTextOnly и больше не будет вызывать xyz) или попробовать придумать другую комбинацию клавиш.
Вообще-то, есть простой способ. Просто нажмите 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