publ loWord, loDoc 
#DEFINE wdFieldEmpty   -1
#DEFINE wdToggle   9999998
shag=1
SELECT rub_tbl
COUNT TO col_rec2
GO top
store "" TO rubname_1,tmp_mem
loWord = CREATEOBJECT( 'WORD.APPLICATION') 
loDoc=m.loWord.Documents.Add()
loWord.Selection.Font.Color=RGB(255,0,0) 
FOR a1=1 TO col_rec2
	STORE rubrika TO rubname_1
	WITH loword.SELECTION
		.typetext(CHR(13))
		.typetext(CHR(13))
		.FIELDS.ADD(loword.SELECTION.RANGE,wdFieldEmpty,"QUOTE")
		.typetext(' ')
*		.Font.Bold=1
	ENDWITH
		loDoc.Fields(shag).Result.Text=ALLTRIM(rubname_1)
*		loDoc.Fields(shag).Font.Bold=1 &&wdToggle

				SELECT 10
				SCAN FOR rub_rep=rubname_1
					STORE ads_rep TO tmp_mem
					WITH loword.SELECTION
						.typetext(CHR(13))
						.FIELDS.ADD(loword.SELECTION.RANGE,wdFieldEmpty,"QUOTE")
						.typetext(' ')
					ENDWITH
						loDoc.Fields(shag+1).Result.Text=ALLTRIM(tmp_mem)
					shag=shag+1
					tmp_mem=""
				ENDSCAN
		shag=shag+1
	SELECT rub_tbl
SKIP
ENDFOR
loword.visible=.t.

	WITH loword.SELECTION
		.typetext(CHR(13))
		.typetext(CHR(13))
		.Font.Bold=1
		.FIELDS.ADD(loword.SELECTION.RANGE,wdFieldEmpty,"QUOTE")
		.typetext(' ')
		.Font.Bold=0
	ENDWITH