filePath := A_Desktop . "\test.doc"
FileGetSize, size, % filePath
FileRead, data, *c %filePath%
str := ""
offset := 0
while offset < size {
part := StrGet(&data + offset, "cp0")
str .= part = "" ? " " : part
offset += part = "" ? 1 : StrLen(part)
}
MsgBox % Clipboard := str
oWord := ComObjCreate("Word.Application")
doc := oWord.Documents.Open(A_Desktop "\Сопроводительное письмо.doc")
MsgBox % doc.Range.Text
doc.Close(false)
oWord.Quit()
ExitApp
FileRead, fbody, %File%
msgbox, %fbody%Пробовал еще так:
FileRead, fbody, *P65001 %File%Был код, работающий с DOC-файлами, но интересно именно получение текста напрямую.
]]>