Вставить RTF-текст в документ MS Word

Delphi , Технологии , OLE Automation MSOffice

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   Word_TLB, ActiveX, ComObj;

 function GetRTFFormat(DataObject: IDataObject; var RTFFormat: TFormatEtc): Boolean;
 var
   Formats: IEnumFORMATETC;
   TempFormat: TFormatEtc;
   pFormatName: PChar;
   Found: Boolean;
 begin
   try
     OleCheck(DataObject.EnumFormatEtc(DATADIR_GET, Formats));
     Found := False;
     while (not Found) and (Formats.Next(1, TempFormat, nil) = S_OK) do
     begin
       pFormatName := AllocMem(255);
       GetClipBoardFormatName(TempFormat.cfFormat, pFormatName, 254);
       if (string(pFormatName) = 'Rich Text Format') then
       begin
         RTFFormat := TempFormat;
         Found := True;
       end;
       FreeMem(pFormatName);
     end;
     Result := Found;
   except
     Result := False;
   end;
 end;

 procedure WriteToMSWord(const RTFText: String);
 var
   WordDoc: _Document;
   WordApp: _Application;
   DataObj : IDataObject;
   Formats : IEnumFormatEtc;
   RTFFormat: TFormatEtc;
   Medium : TStgMedium;
   pGlobal : Pointer;
 begin
     try
       GetActiveOleObject('Word.Application').QueryInterface(_Application, WordApp);
     except
       WordApp := CoWordApplication.Create;
     end;
     WordApp.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
     WordApp.Visible := True;
     WordDoc := WordApp.ActiveDocument;
     OleCheck(WordDoc.QueryInterface(IDataObject,DataObj));
     GetRTFFormat(DataObj, RTFFormat);
     FillChar(Medium,SizeOf(Medium),0);
     Medium.tymed := RTFFormat.tymed;
     Medium.hGlobal := GlobalAlloc(GMEM_MOVEABLE, Length(RTFText)+1);
     try
      pGlobal := GlobalLock(Medium.hGlobal);
      CopyMemory(PGlobal,PChar(RTFText),Length(RTFText)+1);
      GlobalUnlock(Medium.hGlobal);
      OleCheck(DataOBJ.SetData(RTFFormat,Medium,True));
     finally
       GlobalFree(Medium.hGlobal);
       ReleaseStgMedium(Medium);
     end;
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   WriteToMSWord(Memo1.Text); // may be rtf-formatted text 
end;

Программа на языке Delphi, которая вставляет текст формата Rich Text Format (RTF) в документ Microsoft Word с помощью активного контроля ActiveX.

Вот разбивка кода:

Функция GetRTFFormat Эта функция принимает объект IDataObject и объект TFormatEtc в качестве входных параметров, и возвращает булевое значение, указывающее, содержит ли объект данных формат Rich Text Format. Функция использует метод EnumFormatEtc, чтобы перечислить доступные форматы в объекте данных, а затем проверяет каждый формат, чтобы увидеть, является ли он форматом Rich Text Format.

Процедура WriteToMSWord Эта процедура принимает текст RTF в качестве входного параметра и записывает его в документ Microsoft Word с помощью активного контроля ActiveX. Вот что она делает:

1. Она получает экземпляр объекта Word.Application, либо запросив активный OLE-объект, либо создав новый.
2. Она добавляет новый документ к приложению с помощью метода Documents.Add.
3. Она устанавливает видимость приложения в true, чтобы документ был виден в интерфейсе Word.
4. Она получает экземпляр объекта Word.Document из приложения и запрашивает у него объект IDataObject.
5. Она вызывает функцию GetRTFFormat, чтобы получить формат Rich Text Format из объекта данных.
6. Она создает новый объект TStgMedium и инициализирует свойство tymed, соответствующее типу данных в формате RTF.
7. Она выделяет глобальную память с помощью функции GlobalAlloc, блокирует ее с помощью GlobalLock и копирует текст RTF в память с помощью CopyMemory.
8. Она устанавливает метод SetData объекта данных с форматом RTF и памятью, а затем освобождает память с помощью GlobalFree.

Обработчик события Button2Click Это обработчик события клика кнопки, который вызывает процедуру WriteToMSWord с текстом из компонента мемо (Memo1) в качестве входного параметра.

В целом, этот код предоставляет способ вставки текста формата Rich Text Format в документ Microsoft Word с помощью Delphi и активного контроля ActiveX.

В статье описана реализация функции вставки RTF-текста в документ Microsoft Word из приложения на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: OLE Automation MSOffice ::