**Исправление Форматирования Текста в PowerPoint с Delphi: Решение Проблемы со Шрифтами**

Delphi , Технологии , COM и DCOM

Игроконтакт: Разработка PowerPoint в Delphi

Описание проблемы: При взаимодействии с Microsoft PowerPoint из среды Delphi (Delphi Seattle, PPT 2013) разработчик сталкивается с проблемой корректного форматирования текста в программно созданных презентациях. Автоматическое создание презентаций включает извлечение шаблона из исполняемого файла, последующее открытие, переход на нужный слайд и заполнение содержимого. Основная сложность заключается в управлении атрибутами шрифта, в частности, в необходимости выделения жирным шрифтом только первые слова в каждом из перечня строк, которые добавляются в текстовый блок. Пользователь хочет, чтобы каждый раздел начинался с жирным шрифтом, а далее шел обычный текст, например:

• Категория1 - продукт1, продукт2
• Категория2 - продукт3, продукт4

Проблема заключается в том, что после добавления второго текста в блок, весь текст становится жирным, не сохраняя первоначальное форматирование. Попытки явно сбросить жирный шрифт после первого текста не приводят к ожидаемому результату.

Статья: Исправление Форматирования Текста в PowerPoint с Delphi: Решение Проблемы со Шрифтами

Введение

При создании презентаций в PowerPoint с помощью Delphi важно учитывать особенности работы с объектами Microsoft Office. Одной из таких особенностей является необходимость явно устанавливать стили форматирования для каждого фрагмента текста.

Основная Часть

Для решения проблемы с форматированием текста в PowerPoint из Delphi, необходимо использовать методы управления стилями текста, предоставляемые библиотеками Office. В примере кода ниже показано, как можно выделить жирным шрифтом только первые слова в каждой строке:

uses ... Office2000, msppt2000;
var
  lFinalDeck: PowerPointPresentation;
  lApplication: PowerPointApplication;
  sl: _Slide;
  sh1 : Shape;
  FoundIt : Boolean;
  i : Integer;
  CRLF : String;
  PPTFileName : String;
begin
  // Код для инициализации и открытия презентации
  ...

  // Нахождение нужного текстового блока
  for i := 1 to sl.Shapes.Count do
  begin
    sh1 := sl.Shapes.Item(i);
    if sh1.HasTextFrame = msoTrue then
      if sh1.TextFrame.TextRange.Text = 'TEXTBOX1' then
      begin
        FoundIt := True;
        sh1.TextFrame.TextRange.Text := '';
        break;
      end;
  end;

  // Добавление текста и форматирование
  sh1.TextFrame.TextRange.Text := 'Категория1' + CRLF + 'Продукт1, продукт2' + CRLF;
  sh1.TextFrame.TextRange.Paragraphs(1).Words(1).Font.Bold := msoTrue;
  sh1.TextFrame.TextRange.Paragraphs(2).Words(1).Font.Bold := True; // Устанавливаем длину в 10 символов для демонстрации
  sh1.TextFrame.TextRange.Paragraphs(2).Characters(2, 10).Font.Bold := False;

  sh1.TextFrame.TextRange.Text := sh1.TextFrame.TextRange.Text + 'Категория2' + CRLF + 'Продукт3, продукт4' + CRLF;
  sh1.TextFrame.TextRange.Paragraphs(3).Words(1).Font.Bold := msoTrue;
  sh1.TextFrame.TextRange.Paragraphs(4).Words(1).Font.Bold := False; // После первой части не выделяем второй блок
  sh1.TextFrame.TextRange.Paragraphs(4).Characters(2, 10).Font.Bold := False; // Для примера оставляем так как есть
end;

Особенности

• Важно явно обращаться к каждому абзацу и его словам для изменения стилей.
• При добавлении нового текста необходимо учитывать, что форматирование может автоматически копироваться с предыдущего текста. Это следует учитывать и явно сбрасывать нежелательные стили при необходимости.
• При работе со строками в коде, важно корректно задавать смещение для начала и конца выделения (в примере использование индекса 2 для начала, так как имя категории занимает строго 1 символ).

Заключение

Используя пример выше, разработчики могут избежать распространенной ошибки, при которой весь текст становится жирным после добавления нескольких строк. Разделение работы с текстом на отдельные шаги по управлению стилями каждого слова или фрагмента текста является ключом к успешному решению этой проблемы.

Создано по материалам из источника по ссылке.

Разработчик сталкивается с трудностями при программном создании презентаций в PowerPoint через Delphi, связанными с корректным форматированием текста, особенно с необходимостью выделения жирным шрифтом только определенные части текста.

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

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

:: Главная :: COM и DCOM ::