Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Memo и Word   Найти похожие ветки 

 
Ref   (2007-02-02 03:01) [0]

Доброго времени суток.
Такая проблема:
На форме есть поле Memo, пользователь забивает туда адрес компании.
При отправке данных в MS Word
вместе с адресом в  Word"e отображаются и знаки переносов Memo поля, как от них избавиться? ЗАранее благодарен за ответы.


 
Elen ©   (2007-02-02 08:11) [1]


> При отправке данных в MS Word
> вместе с адресом в  Word"e отображаются и знаки переносов
> Memo поля

Как отправляеш?


 
Ref   (2007-02-02 09:53) [2]

function FAI(F,I:string):boolean;
const wdReplaceAll=2;
begin
w.Selection.Find.Text:=F;
w.Selection.Find.Replacement.Text:=I;
FAI:=w.Selection.find.execute(Replace:=wdReplaceAll);
end;

в процедуре по нажатию кнопки
w:=CreateOleObject("Word.Application");
w.documents.add("u:\sh\n_fiz.doc");
fai("Adress", DBMemo1.lines.text);
----
w.ActiveDocument.PrintOut(Copies:=2);
w.quit;
w:=UnAssigned;


 
Elen ©   (2007-02-02 10:04) [3]


> Ref

в DBMemo1.lines.text включаются так же и переносы. вызывай fai("Adress", DBMemo1.lines.text); например в цикле или через Memo1.Lines.CommaText


 
Elen ©   (2007-02-02 10:06) [4]


> Ref

Да еще если важен разделитель между строками в мемо то можно получить всю его вот так :

Memo1.Lines.Delimiter:=" ";
// между строками будет пробел, но можно и другой символ поставить
и дальше получить все строки : Memo1.Lines.DelimitedText;


 
pvi   (2007-02-02 14:46) [5]


> в DBMemo1.lines.text включаются так же и переносы. вызывай
> fai("Adress", DBMemo1.lines.text); например в цикле или
> через Memo1.Lines.CommaText

Тогда вместо Adress в документе будет только первая сточка. Что мешает перед отправкой в Ворд заменить в тексте сиволы табуляции и перевода каретки (я правильно понял?) например на пробелы? И лучше в документе сделать метки (поля) и работать через них.


 
pvi   (2007-02-02 14:47) [6]


> Тогда вместо Adress в документе будет только первая сточка.

Это я про то, что ечли в цикле.



Страницы: 1 вся ветка

Текущий архив: 2007.02.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.097 c
15-1170099470
hmmm
2007-01-29 22:37
2007.02.18
помогите перевести фразу с eng.


2-1170322622
марат
2007-02-01 12:37
2007.02.18
Изменение названия поля


15-1169518575
Spider_NET
2007-01-23 05:16
2007.02.18
Конкурс


2-1170152950
Destroyer
2007-01-30 13:29
2007.02.18
Правильная кодировка в .bat файле


4-1159423982
Серге И
2006-09-28 10:13
2007.02.18
Как получить доступ к Bios из Windows