Что нового

вставить текстовый файл в документ Word

MadMNN

Новичок
Сообщения
27
Репутация
0
имеем некоторый файл Word к примеру письмо.doc
и текстовый файл вставить.txt

нужно вместо слова "ЗАМЕНИТЬ" вставить текстовый файл "вставить.txt"

содержимое письмо.doc
умный текст
ЗАМЕНИТЬ
продолжение умного текста

с кодировкой пока не заморачивайтесь
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
MadMNN,
Не понял, нужно вставить то, что находится в файле вставить.txt или просто строку вставить.txt?
 
Автор
M

MadMNN

Новичок
Сообщения
27
Репутация
0
не удачно файлик назвал
вставить содержимое текстового файла вместо слова ЗАМЕНИТЬ
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
MadMNN,
Попробуйте так.
Код:
#include <Word.au3>

$sFileTxt = @ScriptDir & '\1.txt'
$sFileWord = @ScriptDir & '\Test.doc'
$sFind = ':текст для замены:'
$sReplace = FileRead($sFileTxt)
$sReplace = StringReplace($sReplace, @LF, '')
$oWordApp = _WordCreate('')
$oDoc = _WordDocOpen($oWordApp, @ScriptDir & '\Test.doc')

$oFind = _WordDocFindReplace($oDoc, $sFind, $sReplace)
If $oFind Then
	MsgBox(0, 'FindReplace', 'Found and replaced.')
Else
	MsgBox(0, 'FindReplace', 'Not Found')
EndIf
_WordQuit($oWordApp, -1)
 
Верх