Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 445

•  TDictionary Custom Sort  6 476

•  Fast Watermark Sources  6 267

•  3D Designer  9 217

•  Sik Screen Capture  6 605

•  Patch Maker  6 991

•  Айболит (remote control)  6 991

•  ListBox Drag & Drop  5 861

•  Доска для игры Реверси  97 024

•  Графические эффекты  7 192

•  Рисование по маске  6 486

•  Перетаскивание изображений  5 357

•  Canvas Drawing  5 736

•  Рисование Луны  5 445

•  Поворот изображения  4 974

•  Рисование стержней  3 533

•  Paint on Shape  2 801

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 954

•  Теорема Монжа об окружностях  3 761

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 129

•  Игра Go (Го)  2 063

•  Симулятор лифта  2 438

•  Программа укладки плитки  2 111

•  Генератор лабиринта  2 581

•  Проверка числового ввода  2 261

•  HEX View  2 590

•  Физический маятник  2 202

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как преобразовать DOC в RTF при помощи OLE



Создайте новое приложение и пометите на него: кнопку с именем Button3, объект RitchText с именем WordEditor и компонент OpenDialog. Теперь посмотрим, как пролистывать все файлы *.doc и загружать их в объект RitchText.

ЗАМЕЧАНИЕ: Format:=6 указывает Word-у на необходимость сохранять файл как RTF. Расширения недостаточно.

Другие форматы файлов:

Format      File 
Argument    Format 
--------    ------ 

   0        Нормальный (формат Word)
   1        Шаблон документа
   2        Только текст (extended characters saved in ANSI character set) 
   3        Текст+Переносы (plain text with line breaks; extended 
            characters saved in ANSI character set) 
   4        Только текст (PC-8) (extended characters saved in IBM PC 
            character set) 
   5        Текст+Переносы (PC-8) (text with line breaks; extended 
            characters saved in IBM PC character set) 
   6        Формат Rich-text (RTF) 

procedure TImport_Form.ToolButton3Click(Sender: TObject);
var
  WordApp: Variant;
begin
  if OpenDialog1.Execute then
  begin
    Edit1.Text := ExtractFileName(OpenDialog1.FileName);
    StatusBar1.SimpleText := OpenDialog1.FileName;
    WordApp := CreateOleObject('Word.Basic');
    if not VarIsEmpty(WordApp) then
    begin
      WordApp.FileOpen(OpenDialog1.FileName);
      WordApp.FileSaveAs(Name := 'c:\temp_bb.rtf', Format := 6);
      WordApp.AppClose;
      WordApp := Unassigned;
      WordEditor.Lines.LoadFromFile('c:\temp_bb.rtf');
    end
    else
      ShowMessage('Could not start MS Word');
  end;
end;


Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте