Есть ли способ отключить ярлык закрытия файла MS Word 2010 (ctrl + w)?

2

Произошел несчастный случай, когда CTRL+ Wбыл нажат на длинном документе, который еще не был сохранен, и вся эта несохраненная работа исчезла. Есть ли способ отключить ярлык закрытия файла MS Word 2010?

keyboard-shortcuts microsoft-word-2010

— Будет
источник

Если вы не сохранили документ, Word попросит вас сохранить его. Он также периодически выполняет резервное копирование, чтобы вы не потеряли свои данные при отключении электроэнергии. Если они не работают, то это потому, что вы как-то напутали с установкой Office. Кроме того, у него есть возможность создавать новую резервную копию каждый раз, когда вы сохраняете

— phuclv

3

Да, но понимаю, что это только для вашего компьютера. Если вы переместите компьютеры, комбинация клавиш все равно будет существовать.

В Word 2010 нажмите Файл , Параметры .
Откройте вкладку « Настройка ленты ».
Нажмите кнопку « Сочетания клавиш: настройка» в нижней части списка слева.
Выберите Категория Все команды , Команда DocClose .
Выберите текущую клавишу Ctrl + W и нажмите кнопку « Удалить» в нижней части окна.
Нажмите Закрыть , затем ОК .

Если вы хотите увидеть имя команды, сопоставленной с комбинацией клавиш, вы можете ввести ее в поле « Нажать новую комбинацию клавиш», и она сообщит вам имя команды, которая использует эту комбинацию. Например, нажмите Ctrl + N, и он скажет «В настоящее время назначен: FileNewDefault».

— Hand-E-Food
источник

0

Есть выход!

Код это код VB, поэтому формат вылетает лучше на моей странице GitHub и просто измените BuildKeyCode (wdKeyBackspace) на BuildKeyCode (wdKeyControl, wdKeyW).

Attribute VB_Name = "NewMacros"  
Public backspace_disabled As Boolean  

Sub disable_backspace()
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB, wdKeyShift, wdKeyControl), KeyCategory:=wdKeyCategoryMacro, Command:="print_hello_world"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyBackspace), KeyCategory:=wdKeyCategoryMacro, Command:="empty_function"
End Sub

Public Sub print_hello_world()
Dim aKey As KeyBinding
For Each aKey In KeyBindings
   If aKey.KeyCode = BuildKeyCode(wdKeyBackspace) Then
       If backspace_disabled Then
       MsgBox ("disable_backspace")
       'KeyBindings.Add backspace_fake
       aKey.Rebind KeyCategory:=wdKeyCategoryMacro, Command:="empty_function"
       Else
       'FindKey(BuildKeyCode(wdKeyBackspace)).Execute
       MsgBox ("enable_backsapc")
       'MsgBox ("bye")
       aKey.Disable
       End If
   End If
Next aKey
backspace_disabled = Not backspace_disabled
End Sub

Public Sub empty_function()
End Sub

— Ситан Лю
источник