Форум на Исходниках.RU

Удаление строк шаблона Word

slaventos — Mon, 01 Dec 2008 11:40:12 +0000

slaventos: Всем спасибо, но сделал по другому :D

Была функция

Function FindAndPasteTextDoc(findtext_,pastetext_:string):boolean;

begin

FindAndPasteTextDoc:=true;

try

W.Selection.Find.Forward:=true;

W.Selection.Find.Text:= findtext_;

if W.Selection.Find.Execute then begin

W.Selection.Delete;

W.Selection.InsertAfter (pastetext_);

end else FindAndPasteTextDoc:=false;

except

FindAndPasteTextDoc:=false;

end;

End;

Добавил новую

Function FindAndPasteTextDoc2(findtext_,pastetext_:string):boolean;

begin

FindAndPasteTextDoc2:=true;

try

W.Selection.Find.Forward:=true;

W.Selection.Find.Text:= findtext_;

if W.Selection.Find.Execute then begin

W.Selection.Delete;

end else FindAndPasteTextDoc2:=false;

except

FindAndPasteTextDoc2:=false;

end;

End;

И по условию выполняю FindAndPasteTextDoc и FindAndPasteTextDoc2.

Удаление строк шаблона Word

vecs — Mon, 01 Dec 2008 11:25:34 +0000

vecs: Для Word-отчетов можно использовать ArWordReport.

В шаблоне пишем:
<#a1>%IF <#checked_a2>%THEN
<#a2>%ELSE%ENDIF
<#a3>

В коде:

//Указываем, где брать шаблон

WordReport1.WordReport1.Filename := 'c:\мой_шаблон.doc';

//На вход отчета передаем три параметра

WordReport1.CustTagValues['a1'] := EditA1.Text;

WordReport1.CustTagValues['a2'] := EditA2.Text;

WordReport1.CustTagValues['a3'] := EditA3.Text;

WordReport1.CustTagValues['checked_a2'] := IntToStr(Ord(CheckBoxA2.Checked));

//Запускаем отчет

try

WordReport1.Preview;

finally

WordReport1.CloseWord;

end;

Удаление строк шаблона Word

Игорь Акопян — Mon, 01 Dec 2008 09:02:05 +0000

Игорь Акопян: а ещё в ворде есть Bookmarks или Закладки.

Не надо никаких поисков и парсеров :)

Просто значению Закладки присваиваем нужный текст, исключается блок просто - весь блок в шаблоне выделяется и назначается закладка типа "Блок1_есть" и если по условию его не должно быть - присваивается пустая строка.

Минусы - если надо вставлять какой-то одинаковый текст - там, наверное, удобнее заменить несколько спец символов на нужную последовательность

Удаление строк шаблона Word

ViktorXP — Sun, 30 Nov 2008 12:34:12 +0000

ViktorXP: 1) вставлять пустоту
2) зделать парсер. не делать заменой слова а сначала в какойто масив положить слово = значение. потом пробегатся по доку и если это слово совпадает с именем переменной в масиве то заменяем. нам это даст добавление возможности условий. например в доке ты пишеш

###a1!{if ###a2!}

###a2!

{/if}###a3!

а уже при парсировании смотриш если нашол слово {if значит между им и закрывающей скобкой должна быть обявлена переменная. опань и вправду есть... значит проверяем по масиву... и тут она есть а че в ней лежит... в ней какойто текст, значит смотрим что между закрывающей скобкои и {/if} включаем эту часть тоже в парсирование иначе выключаем этот кусок.
получится чето типа SMARTY но под делфи.

Удаление строк шаблона Word

slaventos — Sun, 30 Nov 2008 12:20:11 +0000

slaventos: Творю программу для подготовки отчетов в *.doc-формат.

Вот кусок кода:

procedure TForm1.Button1Click(Sender: TObject);

begin

...

if CreateWord then begin

VisibleWord(true);

If OpenDoc(ExtractFileDir(application.ExeName)+'.doc') then begin

StartOfDoc; FindAndPasteTextDoc('###a1!',a1.text);

StartOfDoc; FindAndPasteTextDoc('###a2!',a2.text);

StartOfDoc; FindAndPasteTextDoc('###a3!',a1.text);

Шаблон документа выглядит так:

###a1!

###a2!

###a3!

Как, например, удалить строку в шаблоне ###a2!, если a2.text не трогаю (под "контролем" чекбокса), чтобы не было текста "###2!" между ###1! и ###a3! :rolleyes: ?

Сейчас так:

текст из а1

###a2!

текст из а3

Хочу так:

текст из а1

текст из а3