[Iska]

Если коротко, без каких-либо проверок — то так:

читать дальше »

Код:

Option Explicit

Dim objShell
Dim objFolder
Dim objFolderItem

With WScript.CreateObject("Shell.Application")
	With .NameSpace("shell:Common Programs").ParseName("Microsoft Office").GetFolder
		With .ParseName("Microsoft Office Word 2003.lnk")
			If .IsLink Then
				With WScript.CreateObject("WScript.Shell").CreateShortcut(.Path)
					.Hotkey = "Ctrl+Shift+W"
					
					.Save
				End With
			End If
		End With
		
		With .ParseName("Microsoft Office Excel 2003.lnk")
			If .IsLink Then
				With WScript.CreateObject("WScript.Shell").CreateShortcut(.Path)
					.Hotkey = "Ctrl+Shift+E"
					
					.Save
				End With
			End If
		End With
	End With
End With

WScript.Quit 0

Пример рассчитан на Office 2003. Вы же, под свою версию, поправьте в скрипте название папки в меню:

Код:

	With .NameSpace("shell:Common Programs").ParseName("Microsoft Office").GetFolder

если оно отличается, и поправьте названия ярлыков на свои:

Код:

…
		With .ParseName("Microsoft Office Word 2003.lnk")
…
		With .ParseName("Microsoft Office Excel 2003.lnk")
…

[Valek271183]

Спасибо большое, всё работает, хотелось ещё спросить что именно определяет горячие клавиши в Windows 7: это запись в реестре или изменения в каком-то файле и можно ли назначить их с помощью BAT ?

[Iska]

что именно определяет горячие клавиши в Windows 7: это запись в реестре или изменения в каком-то файле »

Вопрос задан не вполне корректно.

Если подразумевалось: «С помощью какого механизма горячие клавиши с ярлыков, находящихся на Рабочем столе и в Главном меню, регистрируются как глобальные?» — то не скажу. Возможно, более опытные коллеги Вам подскажут.

Вообще же, по определению горячих клавиш в ярлыках — [MS-SHLLINK].pdf - Поиск в Google (на сайте Microsoft он, в виде отдельного файла, более недоступен), раздел 2.1.3, HotKeyFlags.

и можно ли назначить их с помощью BAT ? »

Если не рассматривать внешние утилиты — то нет.

[Valek271183]

Ясно, спасибо

[Iska]

Valek271183, пожалуйста, посмотрите мой предыдущий пост ещё раз — я его немного поправил.