экспорт в шаблон word

[yume]

Вообще, было бы достаточно если бы была возможность редактировать memo поле на форме перед формированием отчета.
Гляньте, пожалуйста, на примере этого.
тест.rar

должен же какой-то способ быть.

[R Dmitry]

Сообщение от yume

Вообще, было бы достаточно если бы была возможность редактировать memo поле на форме перед формированием отчета.
Гляньте, пожалуйста, на примере этого.
Вложение 38294

должен же какой-то способ быть.

Вот не понимаю , зачем так усложнять себе жизнь,
сделали два шаблона ворд, для каждого типа бланка свой , отформатировали в нем сразу как надо и подставляйте данные из формы в зависимости от условий в нужный бланк.
Ведь шаблон останеться неизменным, а созданный документ можно и подправить, если что.

С уважением, Дмитрий.

[ovt256]

yume!
Я когда-то делал так, правда не в Access, а в Delphi:
Создавал в Word шаблон, форматировал его так, как требовалось (отступы, интервалы, логотипы и т.п.) Вместо изменяемых данных писал примерно так: "$Family$ живет по адресу: $Address$", где вместо английских слов в знаках $ нужно было подставить фамилию и адрес.

Далее, при нажатии на кнопку, запускал Word, создавал новый документ на основе моего шаблона, а далее методом поиска и замены заменял слова в долларах на требуемые значения.

Думаю, что а Access такой подход тоже может применяться.

Если принцип понятен, то PS не читайте. Как реализовать - подскажут более опытные товарищи.

PS
На всякий случай приведу код из Delphi, поясняющий принцип:

procedure TfmStdDocs.buActClick(Sender: TObject);
var
  i : Integer;
  ParagrafText : String;
begin
  TemplateName := 'Акт Сверки.dot';
  VisibleWord := True;
  SaveChanges := False;
  srvWord.Connect;
  srvWord.Application.Visible := True;
  Document := srvWord.Documents.Add(TemplateName, EmptyParam, EmptyParam, VisibleWord);
  for i:=2 to Document.Paragraphs.Count do begin
    Style := Document.Paragraphs.Item(i).Range.Get_Style;
    ParagrafText := Document.Paragraphs.Item(i).Range.Get_Text;
    ParagrafText := StringReplace(ParagrafText, '$Customer$', edCustomer.Text, [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$Date$', DateToStr(caDtTo.Date), [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$NoDog$', edNoDog.Text, [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$DateDog$', edDateDog.Text, [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$SummaRub$', edSummaRub.Text, [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$SummaKop$', edSummaKop.Text, [rfReplaceAll]);
    ParagrafText := StringReplace(ParagrafText, '$SummaProp$', edSummaProp.Text, [rfReplaceAll]);
    Document.Paragraphs.Item(i).Range.Set_Text(ParagrafText);
    Document.Paragraphs.Item(i).Range.Set_Style(Style);
  end;
  srvWord.Documents.Close(EmptyParam, EmptyParam, EmptyParam);
	srvWord.Disconnect;
end;

Пока искал пример кода, Дмитрий уже ответил. Именно так и надо делать: отдельный шаблон для отдельного типа документа.