1 Тема от Alex_Gur

  • Открытие программы Word с помощью скрипта VBS
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Открытие программы Word с помощью скрипта VBS

Для открытия программы Word с помощью скрипта VBS можно использовать следующий код:

Run  
Sub Run()  
    Dim objXL    
    Set objXL = CreateObject("Word.Application")   
    objXL.Visible = TRUE    
End Sub

Для этого создайте обычный текстовый файл с указанным кодом и укажите для него расширение VBS (см. приложение).

Post's attachments

Test_Word1.zip 229 b, 10 скачиваний с 2015-07-29 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2 Ответ от Alex_Gur

  • Открытие программы Word с помощью скрипта VBS
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Открытие программы Word с помощью скрипта VBS

Запуск файла Word со встроенным автомакросом с помощью скрипта
(для подготовки данного сообщения была использована разработка, приведенная в внешняя ссылка)

Подготовьте файл с расширением VBS и следующим содержанием:

Run
  Sub Run() 
      Dim objWD
      Dim Secur
      Set objWD = CreateObject("Word.Application") 
      objWD.Visible = TRUE
      secur = objWD.AutomationSecurity
      objWD.AutomationSecurity = 1
      objWD.Documents.Open replace(Wscript.ScriptFullName,Wscript.ScriptName,"Word1.docm"),,,,"4321"
      objWD.AutomationSecurity = secur
  End Sub

В той же папке поместите файл Word со встроенным автомакросом.
В файле скрипта (с расширением VBS) вместо Word1.docm укажите имя своего файла, а вместо 4321 - пароль файла Word (если он есть; если пароля нет, то можно ничего не менять).

Запустите файл скрипта двойным щелчком мыши.
После этого должен открыться файл Word и запуститься автомакрос.

Пример файла скрипта и файла Word со встроенным автомакросом можно скачать в приложении.

Post's attachments

Test_Word2.zip 13.56 Кб, 11 скачиваний с 2015-07-30 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.