Распечатка текста в MS Word

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <ComObj.hpp>
#include <utilcls.h>
 
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
Variant  vVarApp,vVarDoc,vVarParagraphs,vVarParagraph;
bool fStart;
void __fastcall TForm3::Button2Click(TObject *Sender)
{
 if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
 }
 
 vVarApp.OlePropertySet("Visible",true);
 vVarDoc=vVarApp.OlePropertyGet("Documents");
 vVarDoc.OleProcedure("Open", "C:\\Users\Пользователь\Documents\Embarcadero\Studio\test.doc");
 vVarDoc=vVarDoc.OleFunction("Item",1);
 vVarDoc.OleProcedure("Activate");
 vVarApp.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute", /*FindText=*/ "слово", /*MatchCase=*/false, /*MatchWholeWord=*/ false, /*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false, /*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/"НОВОЕ СЛОВО", /*Replace=*/2);
 
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <utilcls.h>
#include "ComObj.hpp"
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Variant vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, L"Ошибка при создании документов",
                 L"Ошибка", MB_OK);
 
  return;
 }
 Dms=Doc.OleFunction("Item",1);
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 Var.OleProcedure("Add");
 vVarParagraph=Var.OleFunction("Item",1);
 vVarParagraph.OlePropertyGet("Range").OlePropertySet("Text",WideString(Memo1->Text));
 
 
 Word.OlePropertySet("Visible", true);
}
//---------------------------------------------------------------------------