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

doc.Paragraphs.Item(1).Range.Font.Color:=(255,0,0)

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;

wdRng := wdApp.ActiveDocument.Range;