вот так работало, до установки новой версии.
вот так сделал по новому. Но не работает.
что исправить, что бы значения передавались в Word?
Код:
$DEV = 2000
$HSH = 01101110
$oWordApp = _WordCreate("G:\1.doc",0,0)
$oDoc = _WordDocGetCollection ($oWordApp, 0)
With $oWordApp.ActiveDocument.Variables("ДЭВ")
.Value = $DEV
endwith
With $oWordApp.ActiveDocument.Variables("ХЭШ")
.Value = $HSH
endwith
with $oWordApp.ActiveDocument.Fields
.Update
EndWith
with $oWordApp.ActiveDocument
.Save
.Close
EndWith
вот так сделал по новому. Но не работает.
Код:
#include <Word.au3>
$DEV = 2000
$HSH = 01101110
$worcre = _Word_Create (False)
$docopen = _Word_DocOpen ($worcre,"G:\1\2001.doc")
$oLink = _Word_DocGet($docopen)
With $oLink.ActiveDocument.Variables("ДЭВ")
.Value = $DEV
endwith
With $oLink.ActiveDocument.Variables("ХЭШ")
.Value = $HSH
endwith
with $oLink.ActiveDocument.Fields
.Update
EndWith
with $oLink.ActiveDocument
.Save
.Close
EndWith
что исправить, что бы значения передавались в Word?