#include <Word.au3>
#include <Array.au3>
Local $oWord1 = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_Create", _
"Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $sPath1 = @ScriptDir & "\allref_6441.docx"
$oDoc1=_Word_DocOpen($oWord1, $sPath1, Default, Default,False)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen", "Error opening "&$sPath1 & _
@CRLF & "@error = " & @error & ", @extended = " & @extended)
$oWord1.Selection.WholeStory
$oWord1.Selection.Copy
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocSaveAs Example", _
"Error saving the Word document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Word_DocClose($oDoc1)
Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_Create", _
"Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $sPath = @ScriptDir & "\1.docx"
$oDoc2=_Word_DocOpen($oWord, $sPath, Default, Default,False)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocOpen", "Error opening "&$sPath & _
@CRLF & "@error = " & @error & ", @extended = " & @extended)
; Текст
;$oWord.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
$oWord.Selection.WholeStory
$oDoc2.Range().Font.Size=14
$oDoc2.Range().Font.Bold=0
$oDoc2.Range().Font.Name = "Times New Roman"
; Выход
MsgBox($MB_SYSTEMMODAL, "1", "texst")
_Word_DocSaveAs($oDoc2,$sPath1,$WdFormatDocumentDefault)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocSaveAs Example", _
"Error saving the Word document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Word_DocClose($oDoc2)
_Word_Quit($oWord1)
_Word_Quit($oWord)