Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Если коротко, без каких-либо проверок — то так:
читать дальше »
Код: Выделить весь код
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")
…
Это сообщение посчитали полезным следующие участники:

Отправлено: 04:07, 04-08-2012 | #2