<?
// Создать соединение с сервером MySQL
$host = "localhost";
$user = "root";
$pswd = "";
$db = "book";
$address_table = "addressbook";

mysql_connect($host, $user, $pswd) or die("Couldn't connect to MySQL server!");
mysql_select_db($db) or die("Couldn't select database!");

// Выбрать из базы данных все записи
$query = "SELECT * FROM $address_table ORDER BY last_name";
$result = mysql_query($query);

// Создать новый объект COM для приложения MS Word
$word=new COM("word.application") or die("Couldn't start Word!"); 

// Активизировать окно MS Word
$word->visible =1; 

// Открыть пустой документ.
$word->Documents->Add(); 

// Перебрать записи из таблицы адресов
while($row = mysql_fetch_array($result)) :
	$last_name = $row["last_name"];
	$first_name = $row["first_name"];
	$tel = $row["tel"];
	$email = $row["email"];

	// Вывести данные таблицы в открытый документ Word.

	$word->Selection->Typetext("$last_name, $first_name\n"); 
	$word->Selection->Typetext("tel. $tel\n");
	$word->Selection->Typetext("email. $email:\n"); 

endwhile;

// Запросить у пользователя имя документа.
$word->Documents[1]->Save;

// Выйти из MS Word
$word->Quit();
?>