Как открыть из дельфи файл MS Word и выполнить в нем замены подстрок

[RusArtm]

Здравтсвуйте.

Есть у меня такая необходимость: открыть из дельфи файл MS Word и выполнить в нем замены подстрок на другие подстроки.

В данный момент я просто создаю ОЛЕ объект WordApplication и через него выполняю открытие файла и замену подстрок.

Но хочется, чтобы Ворд не откывался, и чтобы все было просто на формоке в программе.

Другими словами надо поместить объект OleContainer, загрузить в него файл Word и заменить в нем подстроки на нужные подстроки.

Не подскажите как или где рыть хотябы... или может ктото знает, как это зделать?

Зараннее спасибо за дельные ответы.

[Stalevar]

RusArtm

Посмотри эту статью http://www.kornjakov.ru/stat.htm
Там все хорошо написано.

[AHTuKiLLeR]

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

Список переменных

  W:variant;

Для начала надо запустить Ворд.

function TForm3.CreateWord: boolean;
begin
  CreateWord:=true;
  try
    W:=CreateOleObject('Word.Application');
  except
    CreateWord:=false;
  end;
End;

Опционально после этого можно сделать его видимым. Я не делал. Все происходило в фоновом режиме.

function TForm3.VisibleWord(visible:boolean):boolean;
begin
  VisibleWord:=true;
  try
    W.visible:= visible;
  except
    VisibleWord:=false;
  end;
End;

Далее загружаем документ

Function TForm3.OpenDoc(name_:string):boolean;
Var
  Doc_:variant;
begin
  OpenDoc:=true;
  try
    Doc_:=W.Documents;
    Doc_.Open(name_);
  except
    OpenDoc:=false;
  end;
End;

Редактирование документа(смотри названия функций)

Function TForm3.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 TForm3.FindTextDoc(text:string):boolean;
begin
  FindTextDoc:=true;
  Try
    W.Selection.Find.Forward:=true;
    W.Selection.Find.Text:=text;
    FindTextDoc := W.Selection.Find.Execute;
  except
    FindTextDoc:=false;
  end;
End;

Function TForm3.SetTextToDoc(text_: string;InsertAfter_: boolean): boolean;
var Rng_:variant;
begin
  SetTextToDoc:=true;
  try
    Rng_:=W.ActiveDocument.Range;
    if InsertAfter_
      then Rng_.InsertAfter(text_)
      else Rng_.InsertBefore(text_);
  except
    SetTextToDoc:=false;
  end;
End;

function TForm3.ChangeTextStyle(TextSelection:variant; Name: string; Size:integer; TextStyle: TFontStyles):boolean;
begin
  ChangeTextStyle:=true;
  try
    TextSelection.Size:=Size;
    TextSelection.Name:=Name;
    if fsBold in TextStyle      // æèðíûé
      then TextSelection.Bold:=true
      else TextSelection.Bold:=false;
    if fsItalic in TextStyle    // íàêëîííûé
      then TextSelection.Italic:=true
      else TextSelection.Italic:=false;
    if fsUnderline in TextStyle // ïîä÷åðêíóòûé
      then TextSelection.Underline:=true
      else TextSelection.Underline:=false;
    TextSelection.ColorIndex:=1;
  except
    ChangeTextStyle:=false;
  end;
end;

Сохраняем документ

Function TForm3.SaveDocAs(file_:string):boolean;
begin
  SaveDocAs:=true;
  try
    W.ActiveDocument.SaveAs(file_);
  except
    SaveDocAs:=false;
  end;
End;

Закрываем документ

Function TForm3.CloseDoc:boolean;
begin
 CloseDoc:=true;
 try
 W.ActiveDocument.Close;
 except
 CloseDoc:=false;
 end;
End;

Закрываем документ

Function TForm3.CloseDoc:boolean;
begin
 CloseDoc:=true;
 try
 W.ActiveDocument.Close;
 except
 CloseDoc:=false;
 end;
End;

Закрываем приложение Ворд

Function TForm3.CloseDoc:boolean;
begin
 CloseDoc:=true;
 try
 W.ActiveDocument.Close;
 except
 CloseDoc:=false;
 end;
End;

[RusArtm]

Спасибо... в общем то полезную информацию извлечь можно, но у меня вопрос не о том, как открыть ворд и как выполнить в нем замену (это у меня работает).
Вопрос в том, как открыть документ ворд в ОЛЕконтейнере (TOLEContainer) и в нем исправить документ открытый... а потом ещё и напечатать

[AHTuKiLLeR]

Задача стоит делать все в TOLEContainer? Или это не суть важно?
У меня просто стояла задача открыть шаблон. В нем заменить строки на необходимую инфу и распечатать документ.( Тоесть формирование и распечатка отчета.)

[RusArtm]

Задача сделать это именно через ОЛЕ контейнер, просто с шаблонами она сделана...

Моджно спросить конекретнее, как добраться да аналогичных команд Ворда через
OLEContainer.OLEObject
?

или может там есть какоето другое поле, через которое можно управлять загруженным документом, или может это впринципе невозможно?

[AHTuKiLLeR]

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

[RusArtm]

Ну, может быть ктото другой его ковырял ?

[RusArtm]

Вопрос пока открыт...

[RusArtm]

Уп .