Teclas De Atalho E Ms Word

[Davi Cabral]

Olá pessoal,

Alguém sabe como posso desabilitar as teclas de atalho Ctrl+A e Ctrl+O do MS Word 97 através de um arquivo em VBScript? Consegui fazer isto via Visual Basic for Application (VBA) utilizando o objeto KeysBoundTo, porém parece que este objeto não existe em VBS Estou precisando solucionar este problema para controlar o acesso do usuário ao aplicativo MS Word que chamo a partir da minha aplicação.

[]s

Davi

[Graymalkin]

De fato, o VBScript não vai ter esse objeto e sim o seu Word.Application que você deve estar criando. Bastaria utilizar o objeto deste.

Abraços,

Graymalkin

[Guest Visitante]

Olá Graymalkin,

Executei o seguinte código, mas ainda estou obtendo erro no início do For

  Set app = WScript.CreateObject("Word.Application")
  app.Visible = True

  For Each myKey In _
      app.KeysBoundTo(wdKeyCategoryCommand, "FileOpen")
      myKey.Disable
  Next
  For Each myKey In _
      app.KeysBoundTo(wdKeyCategoryCommand, "FileNew")
      myKey.Disable
  Next 

[Davi Cabral]

Graymalkin, esta última mensagem foi minha, é que esqueci de fazer o login.

[Graymalkin]

A constante wdKeyCategoryCommand está realmente definida? Se sim, qual o valor dela?

Abraços,

Graymalkin

[Guest Visitante]

olah graymalkin, o vbscript não defini esta constant do word. solucionei o problema setando uma variavel com este nome e o valor 1.