AlexVong
08-12-2010, 19:47
Подскажите пожалуйста, с помощью vbs открываю текстовые файлы след.командой
Option Explicit
Const wdOpenFormatEncodedText = 5
Const msoEncodingOEMCyrillicII = 866
Dim objDocument
With WScript.CreateObject("Word.Application")
.Visible = True
Set objDocument = .Documents.Open("С:\WORK\BALANS.txt", False, False, False, "", "", False, "", "", wdOpenFormatEncodedText, msoEncodingOEMCyrillicII)
WScript.Quit 0
1.Можно в vbs сделать чтобы выводился список всех файлов в данной паке или диалоговое окно для последующего открытия в ворде?
2.Можно в vbs сделать вывод сообщения, типа:"Вопрос" с кнопками ДА и НЕТ?
Заранее спасибо.
Option Explicit
Const wdOpenFormatEncodedText = 5
Const msoEncodingOEMCyrillicII = 866
Dim objDocument
With WScript.CreateObject("Word.Application")
.Visible = True
Set objDocument = .Documents.Open("С:\WORK\BALANS.txt", False, False, False, "", "", False, "", "", wdOpenFormatEncodedText, msoEncodingOEMCyrillicII)
WScript.Quit 0
1.Можно в vbs сделать чтобы выводился список всех файлов в данной паке или диалоговое окно для последующего открытия в ворде?
2.Можно в vbs сделать вывод сообщения, типа:"Вопрос" с кнопками ДА и НЕТ?
Заранее спасибо.