[HomerSSS]

Доброго дня всем!

Народ, подскажите путь...

Начал осваивать работу с Wopd-ом из Delphi. Вот вопрос образовался. Простой пример - создан документ и напечатаны две строки...

Код:

W:=CreateOleObject('Word.Application');
  W.visible:=True;
  W.Documents.Add;
  W.ActiveDocument.Range.ParagraphFormat.Alignment:= 0;
  W.ActiveDocument.Range.InsertAfter('Первая строка'+#13);
  W.ActiveDocument.Range.InsertAfter('Вторая строка');

Теперь шрифт первой строки делаем жирным...

Код:

  W:=CreateOleObject('Word.Application');
  W.visible:=True;
  W.Documents.Add;
  W.ActiveDocument.Range.Font.Bold:=1;
  W.ActiveDocument.Range.ParagraphFormat.Alignment:= 0;
  W.ActiveDocument.Range.InsertAfter('Первая строка'+#13);
  W.ActiveDocument.Range.InsertAfter('Вторая строка');

Делается жирным текст всего документа... ОК... Добавляем ещё строчку кода

Код:

  W:=CreateOleObject('Word.Application');
  W.visible:=True;
  W.Documents.Add;
  W.ActiveDocument.Range.Font.Bold:=1;
  W.ActiveDocument.Range.ParagraphFormat.Alignment:= 0;
  W.ActiveDocument.Range.InsertAfter('Первая строка'+#13);
  W.ActiveDocument.Range.Font.Bold:=0;
  W.ActiveDocument.Range.InsertAfter('Вторая строка');

Но тогда текст документа ВЕСЬ опять становится обычным...

Как быть, если надо чтобы стиль шрифта строк документа можно было менять по отдельности?

[Страдалецъ]

Код:

  W := CreateOleObject('Word.Application');
  W.visible:=True;
  W.Documents.Add;
  W.Selection.Font.Size := 12;
  W.Selection.TypeText('Первая строка'#13#10);
  W.Selection.Font.Bold := True;
  W.Selection.Font.Size := 17;
  W.Selection.TypeText('Вторая строка'#13#10);

[HomerSSS]

Работает! Спасибо.

С #13 понятно... А что такое #10?

Тему, если можно, пока не закрывать... Наверняка ещё вопросы возникнут...

[Страдалецъ]

Перенос строки оформляется парой спецсимволов #10#13
Это наследие матричных печатающих устройств, там #13 это прокрутка на строку вниз, а #10 перенос каретки в начала строки.