Появилась необходимость перезадать переменные в нескольких сотнях фрагментов.
Но пока получается только получить их значения! Согласно Open Api все св-ва только для чтения.
Попытка изменить Expression успехом тоже не увенчалась. Может быть кто-нибудь знает способ
изменять значения переменных без использования древнего ActiveX?
doc=TFlex.Application.ActiveDocument
contact=1
for each fr in doc.Fragments
frnum+=1
frdoc=fr.GetFragmentDocument(1)
frdoc.BeginChanges("Изменение параметров фрагмента "+frnum.ToString())
MessageBox.Show("Изменение параметров фрагмента "+frnum.ToString())
for each v in frdoc.Variables
if v.name="hv" then
Messagebox.Show(v.Expression)
'v.Expression=contact.ToString() '?????
exit for
end if
next
frdoc.EndChanges()
frdoc.Save()
next
Но пока получается только получить их значения! Согласно Open Api все св-ва только для чтения.
Попытка изменить Expression успехом тоже не увенчалась. Может быть кто-нибудь знает способ
изменять значения переменных без использования древнего ActiveX?
doc=TFlex.Application.ActiveDocument
contact=1
for each fr in doc.Fragments
frnum+=1
frdoc=fr.GetFragmentDocument(1)
frdoc.BeginChanges("Изменение параметров фрагмента "+frnum.ToString())
MessageBox.Show("Изменение параметров фрагмента "+frnum.ToString())
for each v in frdoc.Variables
if v.name="hv" then
Messagebox.Show(v.Expression)
'v.Expression=contact.ToString() '?????
exit for
end if
next
frdoc.EndChanges()
frdoc.Save()
next