Текст Memo > БД > Word

[regman]

Есть поле Мемо, которое заполняется через свойство Lines выбором нескольких пунктов из Комбобокса. Затем это поле с текстом сохраняется в БД и после чего экспортируется в MS Word сплошным текстом, то есть без разрыва строки. Надо вот эти строки вывести построчно. В Ворде при отображении скрытых символов место переноса/абзаца не отображается вообще никак - пустое место. Это "пустое место" в Нотпаде++ отображается как CRLF. Если напрямую копировать с БД в Ворд - то все вставляется нормально - построчно с символом абзаца в конце. А вот при экспорте - бяда. Кто и что посоветует??

[Аватар]

А посмотреть как экcпортируешь?

[regman]

W:=CreateOleObject('Word.Application');
W.Documents.Add(ExtractFilePath(Application.ExeName)+'res\cart.dot');
W.Selection.Find.Text:='##_D_GORLO';
W.Selection.Find.Replacement.Text:=ADODataSetPrint.FieldValues['d_gorlo'];
W.Selection.Find.Execute(Replace:=wdReplaceAll);

пробовал делать замену через StringReplace перед самим экспортом, вставляя туда принудительно знак абзаца "^p", который понятен Ворду, но не сработало.

[Аватар]

Так не пойдет - нужно абзацы создавать. Вставь несколько строк в ворд, сохраняя все действия в макрос. Там есть такая возможность. Потом разбирайся с полученным макросом

[regman]

У меня задача убрать (заменить) значение CRLF в строке перед вставкой в Ворд. Проблема в том, что не могу его отловить нормально. Как еще можно прописать в Делфи эту комбинацию символов?? Да и походу Ворд просто не понимает эту комбинацию.

А запис макроса при вставке текста ничего не дает. Как и перевод строки, который в макросе выглядит как Selection.TypeParagraph

Таки да, при вставке в Ворд, он комбинацию CRLF понимает только в виде Chr(13)+Chr(10), поэтому для нормальной вставки текста построчно использовал функцию StringReplace в таком виде:

before:=ADODataSet1.FieldValues['recom'];
after:=StringReplace(before, Chr(13)+Chr(10), '^p', [rfReplaceAll, rfIgnoreCase]);
W.Selection.Find.Replacement.Text:=after;
W.Selection.Find.Execute(Replace:=wdReplaceAll);

то есть заменяем Chr(13)+Chr(10) на понятный Ворду символ абзаца/перевода строки ^p и все работает.

[Аватар]

А на фонт заменяемого участка текста при таком способе обратил внимание?

[regman]

Сообщение от Аватар

А на фонт заменяемого участка текста при таком способе обратил внимание?

зачем??

[Аватар]

Ну если не важен, то незачем