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

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


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

procedure TForm1.Button1Click(Sender: TObject);
begin
...
...
if CreateWord then begin
VisibleWord(true);
If OpenDoc(ExtractFileDir(application.ExeName)+'\1.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! ?

Сейчас так:

текст из а1
###a2!
текст из а3

Хочу так:

текст из а1
текст из а3

Сообщение отредактировано: slaventos - 30.11.08, 12:23

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

###a1!{if ###a2!}
###a2!
{/if}###a3!

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

а ещё в ворде есть Bookmarks или Закладки.

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

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

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

Для 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;

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

Была функция

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;
W.Selection.Delete;
end else FindAndPasteTextDoc2:=false;
except
FindAndPasteTextDoc2:=false;
end;
End;

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