Что нового

как передать значения переменных из Autoit в поля WORD

Tiberium6

Новичок
Сообщения
51
Репутация
0
вот так работало, до установки новой версии.
Код:
$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?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Возможно нужно так :
Код:
With $docopen.ActiveDocument.Variables("ДЭВ")
                .Value = $DEV
endwith
 
Автор
T

Tiberium6

Новичок
Сообщения
51
Репутация
0
ra4o сказал(а):
Возможно нужно так :
Код:
With $docopen.ActiveDocument.Variables("ДЭВ")
                .Value = $DEV
endwith

Код:
$oWord = _Word_Create(False)
$oDocument = $oWord.Documents.Open('G:\1.doc')

With $oWord.ActiveDocument.Variables("ДЭВ")
				.Value = $DEV
endwith

сделал вот так, все заработало
 
Верх