Компания [], и [] заключило договор...

for k= 1  to len(ls_value)
  lole_word.selection.insertsymbol(asc(mid(ls_value,k, 1 )))
next

dw.columncount()

string ls_word, ls_save, ls_value, ls_format, ls_type, ls_name
string ls_template, template_name
oleobject lole_word, lole_doc
long ll_visible, ll_quit, ll_debug, ll_ret, i, j, k

//...............................
// CUT заполнение переменных
//...............................

lole_word = create oleobject

ll_ret = lole_word.connecttonewobject('Word.Application')
if ll_ret<> 0  then
	setpointer(p)
	messagebox('OLE','Невозможно подключится к OLE-объекту~r~nКод ошибки=' + string(ll_ret),stopsign!)
	return false
end if
	
lole_doc = lole_word.documents.open(ls_word + '\' + template_name + '.doc',true,true)


for i= 1  to long(lole_doc.bookmarks.count)	
	for j= 1  to dw.columncount()
		ls_name = upper(dw.describe('#' + string(j) +'.name'))
		if ls_name=upper(string(lole_doc.bookmarks[i].name)) then
			ls_format = dw.getformat(j)
			ls_type = upper(dw.describe('#' + string(j) +'.coltype'))
			choose case left(ls_type, 4 )
				case 'CHAR'
					ls_value = string(dw.getitemstring(al_row,j),ls_format)
				case 'DECI'
					ls_value = string(dw.getitemdecimal(al_row,j),ls_format)
				case 'DATE'
					ls_value = string(dw.getitemdatetime(al_row,j),ls_format)
				case else
					messagebox('OLE','Неизвестный тип исходных даных ' + ls_type)	
					ls_value = ''
			end choose
			lole_doc.bookmarks[i].select()
			for k= 1  to len(ls_value)
				lole_word.selection.insertsymbol(asc(mid(ls_value,k, 1 )))
			next
			exit
		end if
	next 	
	
next

lole_doc.saveas(ls_save + '\' + template_name + '.doc')

lole_doc.close()

destroy lole_doc

lole_word.quit()

ll_ret = lole_word.disconnectobject()
if ll_ret<> 0  then
	setpointer(p)
	messagebox('OLE','Невозможно откключится от OLE-объекта~r~nКод ошибки=' + string(ll_ret),stopsign!)
	return false
end if

destroy lole_word