File: wordconvert.php

<?php
/* Class to convert any document, that can be read by MS Word, to another format supported by Word.
	 * © Alain M. Samoun 10/2001.
 	* alain@samoun.com
	* Gnu GPL code (see www.fsf.org for more information).
	* Tested on win98 + Apache1.3  PHP 4.8 dev as CGI  - Word 2000
	* This file should be saved in the PHP's include directory.
	*If you try to use COM in XP/win2k or NT, you need to 
         set-up permissions to the application
 	with the program DCOMCNFG.EXE : 
	Run DCOMCNFG.exe, select the application and add permissions
        in Security:
	- Custom Access Permissions: “Allow” 
	Then Edit / Add
	- the “IUSR_<servername>” user access to the object.- The user
          account to run the application: “The interactive user” 
	And close.
	* Usage:
	<?php
		require ("wordconvert.php");
		new wordconvert($filename,$convert_to,$visible);
	?>
	* Conversion time example: Convert a 33 pages rtf document (133KB)
          to an htm file (268KB)in 6 sec. (300MHz processor). Not a speed 
          daemon, but will work for small files on servers
	  with low hits number (Intranet...).
*/
	class wordconvert
	{

      	  /* variables */
	var $filename;	# Original File name with optional path.
			# If no path provided, will be looked for in 
                        # My Documents.
	var $convert_to=0;  	
                       # Extension (as a string) or number (See Doc on 
                       # SaveAs method below),doc extension is the default.
	var $visible=0;# 0=Hidden, 1= Visible, hidden is the default.
	
     	 /* Constructor */

     		function wordconvert($filename,$convert_to=0,$visible=0) 
       		{
       			if (!file_exists($filename))
			{
				echo "File $filename doesn't exist";
				exit();
			}

       			$filename_path=  substr($filename,0,-4);
			
			if (is_string ($convert_to))
			{
				$convert_to= strtolower($convert_to);
			
				 switch ($convert_to) 
				 {
     					case "doc":
     						$convert_to=0;
     						Break;
     					case "dot":
     						$convert_to=1;
     						Break;
     					case "txt":
     						$convert_to=2;
     						Break;
     					case "rtf":
     						$convert_to=6;
     						Break;
     					case "htm":
     						$convert_to=8;
     						Break;
     					case "html":
     						$convert_to=8;
     						Break;
     					case "asc":
     						$convert_to=9;
     						Break;
     					case "wri":
      						$convert_to=13;
     						Break;
     					case "wps":
      						$convert_to=28;
     						Break;
     					default:
     						$convert_to=0;
     				}
     			}
			# Instantiate MSWord
 			$word=new COM("Word.Application") or die("Cannot start MS Word");
 	
 			$word->visible = $visible ;
 	
			#Open the original file in word.
			$word->Documents->Open($filename)or die("Cannot find file to convert");

/* 
Doc on SaveAs method:
 expression.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter)
 Only the two first parameters are supported in this class.
File save format number to use ( WdSaveFormat prop. ):
  wdFormatDocument = 0;  wdFormatTemplate = 1;  wdFormatText = 2;  wdFormatTextLineBreaks = 3;
  wdFormatDOSText = 4;  wdFormatDOSTextLineBreaks = 5;  wdFormatRTF = 6;  wdFormatUnicodeText = 7;
  Extensions=number: doc=0,dot =1,txt=2,htm=8,asc=9,wri=13,doc(word perfect DOS)=24,wps(works)=28
*/


			#Save the new file
			$word->ActiveDocument->SaveAs($filename_path,$convert_to); 

 /*
 Doc on quit method:
 expression.Quit(SaveChanges, Format, RouteDocument)
 */
 
			$word->quit(0); #0: Quit without saving
			# print "done!";
	
		}#End of func
	
	}#End of class
?>