изменение *.DOC - файлов

[Bayazet]

в файле DOC у меня размещены метки типа <aaa>, <bbb>, <ccc> ...
не подскажите, как мне можно заменить эти <aaa>, <bbb>... на соответствующие строковые константы str1, str2... при этом не порушив разметку документа DOC?

[Serge_Bliznykov]

не рекомендую...
А вот если Вы сохраните в формате RTF (RichText Format)(причём расширение можно поставить и DOC), тогда в нём можно искать и заменять Ваши метки.

по этом принципу, например, сделан бесплатный RepoRTF - со странички A_PL_ simple's home page

[Stilet]

не рекомендую...

Да чего ж? Автору просто стоит подцепить WordDocument и найти нужные методы в его API.

[Serge_Bliznykov]

Виталий, не дискуссии ради, а просто чтобы для себя прояснить - WordDocument - это обёртка над OLE? т.е. для того, чтобы программа работала, потребуется установленный MS Word ? :-(

и ещё, мне показалось, что автор вопроса хочет менять данные прямо внутри бинарного файла (формата .DOC). Так может получится ТОЛЬКО если заменяемый шаблон ТОЧНО такого же размера, как и вставляемый текст...

[Stilet]

потребуется установленный MS Word ?

Ну а чего б нет?

что автор вопроса хочет менять данные прямо внутри бинарного файла

Плохая идея, согласись. Проще Ворд поставить и не морочится

[Serge_Bliznykov]

Виталий, Вы не поверите, многие огранизации/фирмы вынуждены отказываться от установки MS Office, т.к. он стоит достаточно приличных денег.. :-)

[Stilet]

Поверю, Серж, но я никогда не говорил о лицензионках )

Ломанное форева!

[Kotofff]

Плохая идея, согласись. Проще Ворд поставить и не морочится

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

[Bayazet]

неплохая дискуссия вышла.
но вопрос все еще открыт (некоторое время у меня не было доступа к сети) :
каким способом мне можно заменять свои "теги" на какие-то другие строковые константы?

ворд выбирается не случайно - в doc-шаблонах нарисованы сложные таблицы с разными видами границ в оных

[Kotofff]

Вот было у меня. Взято не помню где.

type
  TWordReplaceFlags = set of (wrfReplaceAll, wrfMatchCase, wrfMatchWildcards);
......
......
function WordStringReplace(ADocument: TFileName; SearchString, ReplaceString:string; Flags: TWordReplaceFlags): Boolean;
const wdFindContinue = 1;  wdReplaceOne = 1;  wdReplaceAll = 2;  wdDoNotSaveChanges = 0;
var WordApp: OLEVariant;
begin
  Result := False;
  if not FileExists(ADocument) then
  begin
    ShowMessage('Файл не найден!');
    Exit;// если файла нет - ВЫХОД из функции
  end;
  try WordApp := CreateOLEObject('Word.Application');
  except on E: Exception do
    begin
      E.Message := 'Word недоступен'; // Word не установлен на компе
      raise;
    end;
  end;
  try
    WordApp.Visible := False;
    WordApp.Documents.Open(ADocument);
    WordApp.Selection.Find.ClearFormatting;
    WordApp.Selection.Find.Text := SearchString;
    WordApp.Selection.Find.Replacement.Text := ReplaceString;
    WordApp.Selection.Find.Forward := True;
    WordApp.Selection.Find.Wrap := wdFindContinue;
    WordApp.Selection.Find.Format := False;
    WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
    WordApp.Selection.Find.MatchWholeWord := False;
    WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
    WordApp.Selection.Find.MatchSoundsLike := False;
    WordApp.Selection.Find.MatchAllWordForms := False;
    { СОБСТВЕННО ПОИСК}
    if wrfReplaceAll in Flags then WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
    else WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
    { Сохраняем документ там же }
    WordApp.ActiveDocument.SaveAs(ADocument);
    Result := True;// Все в норме
    WordApp.ActiveDocument.Close(wdDoNotSaveChanges);
  finally
    WordApp.Quit; WordApp := Unassigned; // закрываем ОБЯЗАТЕЛЬНО иначе экземпляры Word останутся "висеть" в памяти
  end;
end;

Использование :

WordStringReplace('C:\Файл тест.doc', 'Ку-ку', 'Ка-ка', [wrfReplaceAll]);