#include <Word.au3> ; подключаем библиотеку
$oWord = _Word_Create(); открываем Word
$oDoc = _Word_DocOpen($oWord, @ScriptDir & "\123tst123.docx"); открываем документ
_Word_DocSaveAs($oDoc, @ScriptDir & "\DTest.txt", 2); сохранить как, сохраняем под указанным именем
_Word_Quit($oWord); закрываем Word
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 0); открываем только что созданный текстовый файл для чтения
$sText = FileRead($hFile); читаем текст в переменную
FileClose($hFile); закрываем файл
$sText = StringRegExpReplace($sText, "[\r\n]", " "); заменить переводы строк на пробел
$hFile = FileOpen(@ScriptDir & "\DTest.txt", 2); открываем файл для записи
FileWrite($hFile, $sText); переписываем в него текст в одну строку
FileClose($hFile); закрываем файл