DOCUMENT:Q137295  06-JUL-2000  [foxpro]
TITLE   :How to Convert Memo Fields into Embedded Word Documents
PRODUCT :Microsoft FoxPro
PROD/VER:MACINTOSH:2.6a,3.0b; WINDOWS:3.0,6.0
OPER/SYS:
KEYWORDS:kbvfp300 kbvfp600

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Macintosh, version 3.0b 
 - Microsoft FoxPro for Macintosh, version 2.6a 
 - Microsoft Visual FoxPro for Windows, versions 3.0, 6.0 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows by example how to take the text from a memo field and create
a Microsoft Word document that can be embedded in a general field to allow easy
use of the data within Word. The sample code in this article does it by by
scanning through the table and replacing the general field for the record with a
word document containing the memo text for each record that contains data in the
memo field.

MORE INFORMATION
================

For the code samples in thie article to work, you must have Microsoft Word
version 6.0 installed and properly registered for OLE support. For the Macintosh
code sample to work, you must run Microsoft Word 6.0 to set the file Creator and
Type, and you must specify the class for the document in the APPEND GENERAL
command.

Macintosh Code Sample
---------------------

   * This code creates a .dbf file that holds a memo and a
   * general field and creates an embedded Microsoft Word 6.0 document
   * in the corresponding general field (mygen) for any record where
   * the memo field (mymemo) contains text. It also reports the number
   * of converted memo values in the statusbar as it goes.
   * In the fname="MacHD:TEMPSTUF.TXT" line, replace MacHD with the
   * actual name of your Mac hard disk drive volume.

   CREATE TABLE test ;
        (mymemo M, mygen G)
   INSERT INTO test (mymemo ) ;
        VALUES ('Hello, this is a test')
   INSERT INTO test (mymemo) ;
        VALUES ('Test record number 2')
   COUNT=0
   SET LIBRARY TO foxtools
   * Use the following line in Visual FoxPro for Macintosh
   * SET LIBRARY TO foxtools.slm

   SET SAFETY OFF
   fname="MacHD:TEMPSTUF.TXT"                && temporary file
    name
   GO TOP
   SCAN
        IF MEMLINES(mymemo )>0               && text in the memo?
             COPY MEMO mymemo TO (fname)     && macro sub the filename

             B=fxsettype(fname,"W6BN","MSWD")
             * W6BN,MSWD is the Type and Creator for a Word 6 document
             IF B!=0
                  WAIT WINDOW "problem with FxSetType()"
             ENDIF
        * Replaces the general field (mygen) with an embedded Word Doc
             APPEND GENERAL mygen FROM (fname) CLASS word.document.6

             COUNT=COUNT+1          && increment number created
             SET MESSAGE TO STR(COUNT)     && display count on statusbar
        ENDIF
   ENDSCAN
   DELETE FILE (fname)                         && remove temp file

Windows Visual Foxpro Code Sample
---------------------------------


   *  This code creates a .dbf file that has a memo and a
   *  general field. It creates an embedded Microsoft Word document
   *  in the corresponding general field (mygen) for any record where
   *  the memo field (mymemo) contains text. It also shows the number
   *  of converted memo values in the statusbar as it goes. A temporary
   *  file is created and then deleted from the FoxPro startup directory.

   CREATE TABLE test ;
        (mymemo M, mygen G)
   INSERT INTO test (mymemo) ;
        VALUES ('Hello, this is a test')
   INSERT INTO test (mymemo) ;
        VALUES ('Test record number 2')

   COUNT=0
   maindir=sys(2004)
   OLD=SET('SAFETY')
   SET SAFETY OFF
   FNAME=maindir+"tempdoc.doc"               && Tempfile
   GO TOP
   SCAN
        IF !EMPTY(mymemo)                    && Anything in the Memo?
             DELETE FILE maindir+"tempdoc.doc"
             COPY MEMO mymemo TO &fname
             APPEND GENERAL mygen FROM &fname
             COUNT=COUNT+1
             SET MESSAGE TO STR(COUNT)
        ENDIF
   ENDSCAN
   DELETE FILE maindir+"tempdoc.doc"          && remove temp file
   SET SAFETY &old
   SET MESSAGE TO

Additional query words: vFoxMac VFoxWin FoxMac

======================================================================
Keywords          : kbvfp300 kbvfp600 
Technology        : kbHWMAC kbOSMAC kbVFPsearch kbAudDeveloper kbFoxproSearch kbFoxPro260aMac kbVFP300bMac kbVFP300 kbVFP600
Version           : MACINTOSH:2.6a,3.0b; WINDOWS:3.0,6.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.