Total Commander

[Dimsok]

Ладно, возможно этот ревкест будет более полезен:

'Script written by Ayman Farhat (SCRIPTmaster)
'This script allows your PC to read contents of any text file you choose!
Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file, the file has an extension .txt","Read text files from notepad")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)

strText = objText.ReadAll

objText.Close

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak strText

Скрипт читает указанный текстновый файл. Как можно его модернизировать, чтобы была кнопка, при нажатии на которую читалось бы содержимое текстового файла под курсором