<?xml version="1.0"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
 xmlns:w="http://schemas.microsoft.com/office/word/2003/wordml"
  xmlns:wx="http://schemas.microsoft.com/office/word/2003/auxHint">
 <xsl:output method="xml" encoding="windows-1251" omit-xml-declaration="no" indent="yes" media-type="text/xml"/>
 <xsl:template match="/">
  <VFPdata>
   <xsl:for-each select="w:body/wx:sect/w:tbl/w:tr">
    <xsl:choose>
     <xsl:when test="position() != number('1')">
      <f_w>
       <xsl:for-each select="w:tc">
        <xsl:choose>
         <xsl:when test="position() = number('1')">
          <code>
           <xsl:value-of select="w:p/w:r/w:t/text()"/>
          </code>
         </xsl:when>
         <xsl:when test="position() = number('2')">
          <name_service>
           <xsl:value-of select="w:p/w:r/w:t/text()"/>
          </name_service>
         </xsl:when>
         <xsl:when test="position() = number('3')">
          <price>
           <xsl:value-of select="w:p/w:r/w:t/text()"/>
          </price>
         </xsl:when>
        </xsl:choose>
       </xsl:for-each>
      </f_w>
     </xsl:when>
    </xsl:choose>
   </xsl:for-each>
  </VFPdata>
 </xsl:template>
</xsl:stylesheet>

Create Cursor f_w( ;
 code v( 9 ), ;
 name_service v( 254 ), ;
 price b( 3 ) ;
 )


* Файл ворда сохранен в юникоде. Поэтому при чтении этого файла в переменную сразу конвертируем в нужную кодировку
* и т.к. файл в чистом юникоде первым символом идет BOM. После преобразования этот BOM вырезаем, иначе он мешает 
обрабатывать XML
xm(SUBSTR(Strconv(Strconv(Strtran(FILETOSTR("C:\1_1\3т_first.xml"), [encoding="UTF-8"], 
[encoding="windows-1251"]), 11 ), 2 ), 2 ))
* Или-же скармливать XMLю путь к файлу и тогда он сам корректно его загружает
*xm("C:\1_1\3т_first.xml")


***************************************************************
Procedure xm
Lparameters sXml As String

Local transformXML As String
Local XML As MSXML2.DOMDocument, xsl As MSXML2.DOMDocument
Local oXA As Xmladapter, oXT As Xmltable

oXA = Createobject("XMLAdapter")

xsl = Createobject("MSXML2.DOMDocument")
XML = Createobject("MSXML2.DOMDocument")
* Загружаем полученный XML
XML.Async = .F.
XML.LoadXML(sXml)
* Это если путь к файлу передаем
* XML.Load(sXml)

* Проверяйтесь на ошибки! Не игнорируйте их! Иначе они(ошибки) будут СИЛЬНО любить вас :)))
If XML.parseError.errorCode !=  0  Then
 Messagebox("Ошибка загрузки XML-документа: " + XML.parseError.reason + Chr( 10 )+Chr( 13 ) + ;
  " srcText: " + XML.parseError.srcText + Chr( 10 )+Chr( 13 ) + ;
  " line: " + Transform(XML.parseError.Line) + Chr( 10 )+Chr( 13 ) + ;
  " linepos: " + Transform(XML.parseError.linepos) + Chr( 10 )+Chr( 13 ))
 Return
Endif
* Загружаем схему преобразования для получения данных из XML
xsl.Async = .F.
xsl.Load("C:\1_1\3t_2.xsl")

* Проводим трансформацию и получаем нужный XML
transformXML = XML.transformNode(xsl)
* После трансформации заменяем кодировку в самом xml'е и делаем преобразование из utf-8 в windows-1251
* Если преобразовывали при чтении XML'я в переменную, тогда здесь преобразовывать не нужно.
*transformXML = Strconv(Strconv(Strtran(transformXML, [encoding="UTF-16"], [encoding="windows-1251"]), 11 ), 2 )
Strtofile(transformXML, "c:\1_1\transformXML.xml")

* Загружаем полученный XML
oXA.LoadXML(transformXML,.F.)
* Присоединяем курсор, в который нужно получить результат
oXA.AddTableSchema("f_w",.T.,Strconv("f_w", 5 ))
* Выгружаем данные
oXT=oXA.Tables( 1 )
oXT.ToCursor(.T.)
* Очмщаем объект от предыдущих данных
oXA.ReleaseXML()


* Освобождаем объекты преобразования
Release oXT
Release oXA
Release XML
Release xsl

* Преобразование прошло, курсоры подготовленны, сохраняем полученные курсоры на сервере
Select f_w
Browse
Endproc