[e-statik]

А чего не работает? У меня нормально отрабатывает и подставляет все значения по всему документу в нужных местах.

Набросал такой пример:

IF ISCLEAR(wrdApp) THEN
  CREATE(wrdApp);

FileName := 'c:\test.doc';
wrdDoc := wrdApp.Documents.Open2000(FileName);

FOR i := 1 TO wrdDoc.FormFields.Count DO
  CASE wrdDoc.FormFields.Item(i).Name OF
	'НомерДоговора': wrdDoc.FormFields.Item(i).Result := '52748596-КС';
	'ДатаЗаключения': wrdDoc.FormFields.Item(i).Result := '01-05-2006';
  END;

wrdDoc.Saved := TRUE;
wrdApp.Visible := TRUE;

CLEAR(wrdDoc);
CLEAR(wrdApp);