<?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>

<?xml version="1.0" encoding="windows-1251"?>
<VFPdata xmlns:w="http://schemas.microsoft.com/office/word/2003/wordml" xmlns:wx="http://schemas.microsoft.com/office/word/2003/auxHint">
</VFPdata>

Set objXML = CreateObject("Msxml2.DOMDocument")
Set xsl = Createobject("MSXML2.DOMDocument")
Set XML = Createobject("MSXML2.DOMDocument")
' Загружаем полученный XML
XML.Async = False
XML.load("C:\1_1\3т_first.xml")

' Загружаем схему преобразования для получения данных из XML
xsl.Async = False
xsl.load("C:\1_1\3t_2.xsl")

' Проводим трансформацию и получаем нужный XML
transformXML = XML.transformNode(xsl)
objXML.loadXML(transformXML)
objXML.save("c:\1_1\rezult.xml")

Set objXML = Nothing
Set xsl = Nothing
Set XML = Nothing

MsgBox(transformXML)