Всем доброго времени суток
Существует проблема: есть 2 файла (в дальнейшем n-файлов) Word, которые нужно объединить в один общий файл, причем после каждого нового файла нужно вставить разрыв страницы
Существует проблема: есть 2 файла (в дальнейшем n-файлов) Word, которые нужно объединить в один общий файл, причем после каждого нового файла нужно вставить разрыв страницы
Код:
#include <Word.au3>
$oWord = _Word_Create()
$oDoc=_Word_DocAdd($oWord)
ReadWord(@ScriptDir&'\'&'1.doc')
ReadWord(@ScriptDir&'\'&'2.doc')
Exit
Func ReadWord($Path)
$oDocTemp=_Word_DocOpen($oWord,$Path)
$Data=$oDocTemp.Range().Text
$oRange = _Word_DocRangeSet($oDoc, -2)
$oRange.Select
$oRange.InsertAfter($Data)
$oRange = _Word_DocRangeSet($oDoc, -2)
$oRange.Select
$oRange.InsertBreak($wdLineBreak) ; Enter
$oRange.InsertBreak($wdPageBreak) ; Разрыв страницы
EndFunc