Ярлик у 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 2007 до 2013 року в Windows ви можете використовувати Ctrl+ Alt+ V.
У Word 2011 для Mac можна використовувати Control+ Command+ V.
Обидва вони відкриють діалогове вікно "Спеціальне вставлення". Немає ярлика безпосередньо для "Неформатованого тексту", але оскільки ви можете використовувати стрілки, щоб перейти до "Неформатований текст" та Enterпідтвердити, це, мабуть, найшвидший спосіб без макросу.
Щойно я з'ясував, що в Word 2013 та Excel 2013 є швидкий спосіб отримати доступ до всіх параметрів " Вставити спеціальний " з клавіатури . У наступних прикладах просто показано, як вставити текст (не вставляючи формати).
Слово 2013:
Після того як щось скопіювали, перейдіть туди, куди потрібно вставити його (не вставляючи формат). CTRL+ V(він також тимчасово вставить формат) потім CTRL(натисніть і відпустіть клавішу управління) потім T(останній T означає "зберегти лише текст").
Excel 2013:
Після того як щось скопіювали, перейдіть туди, куди потрібно вставити його (не вставляючи формат). CTRL+ V(він також тимчасово вставить формат) потім CTRL(натисніть і відпустіть клавішу управління) потім V(останній V означає "вставити значення").
Важливо, щоб другий CTRL ключ був відпущений перед набором останньої літери.
Цей метод вимагає всього 4 звернень клавіатури, ніяких макросів і використання миші у діалоговому вікні.
Якщо ви хочете встановити "Зберігати лише текст" як за замовчуванням, ви можете зробити наступне:
Стандартна паста:
Клацніть спадне меню вгорі та виберіть "Більше команд":
Клацніть Додатково:
Змініть параметри за замовчуванням (для збереження лише тексту):
Повторення тих самих стандартних параметрів вставлення лише для тексту:
Сподіваюся, це допомагає!
Для Word зміна налаштувань за замовчуванням (як показано вище) здається хорошим варіантом, якщо налаштування відповідають бажаному. Однак для Excel я б запропонував замість цього натиснути правою кнопкою миші.
Існує пара суттєвих проблем із додаванням макросу.
1) Він буде втрачено в нових документах, якщо ви не зміните шаблон за замовчуванням.
2) Якщо ви модифікуєте шаблон за замовчуванням і вам потрібно поділитися робочою книжкою, то особа, яка отримує файл, отримає попередження про безпеку .... що, швидше за все, їх вигадає.
Інші параметри клавіатури вимагають багато натискань клавіш. Крім того, якщо ви вставляєте з веб-сторінки, то Excel та Word потребують тривалого перетворення HTML.
Клацніть правою кнопкою миші параметри вставки, де ви можете вибрати варіант простого тексту.
Мені б хотілося, щоб була вбудована комбінація клавіш, але найкраща альтернатива мені здається клацанням правого клацання.
Функція вже існує, у неї просто немає ярлика з коробки, але ви можете надати її.
У програмі Word 2007-2013 (можливо, раніше, не пам’ятайте), ви можете прив’язати комбінацію клавіш до вашого класу. У Word 2013 це в
- Файл> Параметри> Налаштувати стрічку> потім натисніть кнопку "Налаштувати ..." внизу ліворуч із написом "Комбінації клавіш:".
- У категоріях виберіть "Усі команди";
- у Командах виберіть "ВставитиTextOnly".
- Клацніть у текстовому полі «Натисніть нову швидку клавішу», а потім натисніть комбінацію клавіш, яку ви хочете використовувати для виконання цієї команди.
- Щоб прив’язати ярлик до команди (змусити її запам'ятати / зберегти нову ярлик), натисніть кнопку «Призначити».
Якщо використовується комбінація клавіш, під полем "Поточні клавіші" воно вказує "На даний момент призначено: xyz", де xyz - це команда, яка вже використовує цей ярлик. Тоді ви можете вирішити, чи хочете ви дотримуватися w / ваш перший вибір (ярлик тепер посилатиметься на PasteTextOnly і більше не посилатиметься на xyz) або спробувати придумати інше ключове комбо.
Насправді простий спосіб. Просто натисніть Alt+ E, потім Sі V. Діалогове вікно ви отримаєте набагато простіше, що, безумовно, заощадить багато часу.
В Word 2007-2013 ви повинні натиснути ALT + CTRL + G, потім натисніть T і натисніть Enter ключ
У Excel просто натисніть F2 на клітинку, в яку потрібно вставити, а потім натисніть CTRL + V.
клацніть правою кнопкою миші, куди потрібно вставити звичайний текст, натисніть клавішу T
неформатований текст вставляється.
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