Declare Integer FindWindow IN user32 string lpClassName, string lpWindowName
title_gv="Exsport..."

ColumnsCount= 3 && К-во столбцов в вордовской таблице...
TableName="Your table"
IF FindWindow ("OpusApp",.NULL.)!= 0 
	thisform.oword = GETOBJECT(,"Word.Application")
	IF TYPE("thisform.oword")="O"
		IF TYPE("thisform.oword.ActiveDocument")="O"
			thisform.oDoc=thisform.oword.selection
			oDoc=thisform.oword.selection
	IF oDoc.tables.count= 1 
			IF oDoc.tables.item( 1 ).Columns.count !=ColumnsCount
				MESSAGEBOX("Не правильний формат таблиці!", 16 ,title_gv)
			ELSE 
					rCount=oDoc.tables.item( 1 ).Rows.count
					cCount=oDoc.tables.item( 1 ).Columns.count		
				FOR i= 1  TO rCount
					FOR j= 1  TO cCount
						cj=TRANSFORM(j)	
						IF TYPE("oDoc.tables.item(1).cell(i,j)")="O"
							r&cj=SUBSTR(oDoc.tables.item( 1 ).cell(i,j).range.text, 1 ,LEN(oDoc.tables.item( 1 ).cell(i,j).range.text)- 2 )
						ELSE 
							MESSAGEBOX("Не правильний формат таблиці!", 16 ,title_gv)
							EXIT 
						ENDIF 
					ENDFOR 
					INSERT INTO (TableName) (f1, f2, f3) VALUES (r1, r2,r3)	
				ENDFOR 
			ENDIF 
	ELSE 
		MESSAGEBOX("Кількість таблиць відмінна від 1", 16 ,title_gv)
			ENDIF 
		ELSE 
			MESSAGEBOX("Не відкрито жодного документу", 16 ,title_gv)
		ENDIF 
	
	ELSE 
		MESSAGEBOX("Word не завантажено!", 16 ,title_gv)
	ENDIF 
ELSE 
	MESSAGEBOX("Word не завантажено!", 16 ,title_gv)
ENDIF