Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
1 / 1 / 0
Регистрация: 14.09.2010
Сообщений: 26
1

Работа с Word-файлом: изменить цвет всего текста на красный

29.09.2011, 08:00. Просмотров 3342. Ответов 4
Метки нет (Все метки)


необходимо изменить цвет всего текста на красный например=)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2011, 08:00
Ответы с готовыми решениями:

MS WORD - изменить цвет текста и его стиль
Создать программный продукт средствами языка VBA в MS WORD который позволяет: 1. Менять цвет (5...

Изменить цвет части текста в ячейке таблицы в Word
Добрый день уважаемые знатоки)) Никак не могу справится со следующей задачей: С помощью VBA кода...

Работа с Word: изменить цвет конкретного слова в тексте
Здравствуйте. Проблема в следующем: есть программа, которая подключается к ворду и находит в нем...

Из вызывающей программы нужно изменить цвет линий, например, красный на зеленый, как это организовать?
Вот такая проблема!!! Есть файл DLL, в нем код для рисования картинки к примеру Canvas->Pen->With...

4
59 / 59 / 4
Регистрация: 13.08.2011
Сообщений: 165
29.09.2011, 08:55 2
Delphi
1
doc.Paragraphs.Item(1).Range.Font.Color:=(255,0,0)
там сделаеш цикл чтобы для всех строчек он сделал
2
13064 / 5850 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
29.09.2011, 09:15 3
Изменение параметров шрифта для всего текста в документе:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDoc, wdRng : Variant;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;
  if Od.InitialDir = '' then Od.InitialDir := ExtractFilePath(ParamStr(0));
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с именем:'
      + #10 + Od.FileName
      + #10 + 'не найден. Действие отменено.'
      , mtError, [mbOK], 0
    );
    Exit;
  end;
 
  //Ссылка на объект приложения MS Word - это корневой объект в объектной структуре MS Word.
  wdApp := CreateOleObject('Word.Application');
  //Делаем видимым окно приложения.
  wdApp.Visible := True;
  //Открываем документ в MS Word и получаем на него ссылку.
  wdDoc := wdApp.Documents.Open(FileName:=Od.FileName);
  //Ссылка на объект диапазона. Этот объект представляет весь текст документа.
  wdRng := wdDoc.Range;
  //Устанавливаем параметры шрифта.
  //Тёмно красный цвет.
  wdRng.Font.Color := RGB(170, 0, 0);
  //Жирный.
  wdRng.Font.Bold := True;
end;
На форму надо положить кнопку TButton и компонент диалога TOpenDialog.
1
3 / 3 / 1
Регистрация: 08.09.2014
Сообщений: 76
25.11.2014, 16:41 4
у меня выдает ошибку на range
0
177 / 149 / 43
Регистрация: 14.08.2008
Сообщений: 1,280
18.08.2020, 16:18 5
Тоже понадобилось менять цвет всего текста, тоже выдавало ошибку.
Вот так без ошибки работает
Delphi
1
wdRng := wdApp.ActiveDocument.Range;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.08.2020, 16:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Изменить цвет строк и цвет текста через одну в listbox
Всем привет! Есть код который изменят стиль и цвет строк и текста в datagridview For intCount...

On mouse move поменять цвет текста "НАДПИСЬ1" на красный, VBA
Как поменять цвет надписи при наведении мышки на Надпись1 на красный цвет, в Access 2003 с помощу...

Выделение всего текста в Word документе
Нужно написать часть кода, которая выделяет все обьекты в документе Word макросом из Excel...

Перенос всего текста из Word в Excel
Здравствуйте, подскажите пожалуйста как перенести все содержимое из Word(a) в Excel?(в Word...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.