Delphi word замена всех

Доброго времени суток!

Сделал простенький компонент для замены текста в документах Word (docx) и OpenDocument (odt). Особенностью данного компонента является отсутствие необходимости какого-либо дополнительного ПО типа MS Office или OpenOffice и использует только встроенные библиотеки. В связи с чем он может работать на различных платформах (но ещё не проверял  ).

DocumentProcessing.zip

Как использовать:

uses
  DocumentProcessing;

...

procedure TForm2.Button1Click(Sender: TObject);
var
  Document: TDocumentProcessor;
begin
  Document:= TDocumentProcessor.Create(Self);

  Document.FilePath:= 'D:test.docx';
  Document.Open(TDocumentKind.dkDocx);
  Document.ReplaceText('Familiya', 'Cat');
  Document.Save;

  Document.Open('D:test.odt', TDocumentKind.dkOdt);
  Document.ReplaceText('Familiya', 'Cat', [rfReplaceAll]);
  Document.Save;
end;

Немного о принципе работы:

Проблемы:

Изменено 28 августа, 2019 пользователем Шамсуддин

Улучшена производительность

Замена текста в Word!

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

← →
sapsi
 
(2005-02-04 13:20)
[0]

---

← →
Alezy ©
 
(2005-02-04 17:19)
[1]

Надо просто пользоваться правильными свойствами объектной модели MS Word. Ниже приведен пример замены, реализованный на VBA, думаю перевести его на Delphi не составит никакого труда. Вообще автоматизацию офиса лучше изучать с помощью VBA и переносить готовые куски кода в другие среды разработки.

Sub TestReplace()
 Dim wordApp As Word.Application
 Dim worddoc As Word.Document
 Set wordApp = CreateObject("word.Application") "создаем объект Word
 Set worddoc = wordApp.Documents.Add "создаем новый документ

   With wordApp.Selection "добавляем в документ данные!!!
   .TypeText Text:="Test1111Test"
   .TypeParagraph
   .TypeText Text:="Test2222Test"
   .TypeParagraph
   .TypeText Text:="Test3333Test"
 End With

   With wordApp.Selection.Find "заполняем опции замены
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "111"
   .Replacement.Text = "222"
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   .Execute Replace:=wdReplaceAll "меняем всё
 End With
 worddoc.SaveAs ("c:AAA.doc") "сохраняем результаты или получем их другим способом
 worddoc.Close "закрываем документ!!!
 Set wordApp = Nothing "выгружаем Word
End Sub

---

← →
GanibalLector ©
 
(2005-02-06 22:31)
[2]

var WordApp:OleVariant;
begin
WordApp := CreateOleObject("Word.Application");
  try
  WordApp.Documents.Open("C:2.doc");
  wordapp.visible:=true;

   WordApp.Selection.Find.ClearFormatting;
   WordApp.Selection.Find.Replacement.ClearFormatting;
   WordApp.Selection.Find.Replacement.Text:="GanibalLector";
   WordApp.Selection.Find.Text := "L";
   WordApp.Selection.Find.Forward := True;
   WordApp.Selection.Find.Wrap := 1;
   WordApp.Selection.Find.Format := False;
   WordApp.Selection.Find.MatchCase := False;
   WordApp.Selection.Find.MatchWholeWord := False;
   WordApp.Selection.Find.MatchWildcards := False;
   WordApp.Selection.Find.MatchSoundsLike := False;
   WordApp.Selection.Find.MatchAllWordForms := False;

   WordApp.Selection.Find.Execute(Replace := 2);

  finally
    WordApp:=UnAssigned;
 end;

end;

---

uses 

  ComObj; 

// Replace Flags 

type 

  TWordReplaceFlags = set of (wrfReplaceAll, wrfMatchCase, wrfMatchWildcards); 

function Word_StringReplace(ADocument: TFileName;

SearchString, ReplaceString: string; Flags: TWordReplaceFlags): Boolean; 

const 

  wdFindContinue = 1; 

  wdReplaceOne = 1; 

  wdReplaceAll = 2; 

  wdDoNotSaveChanges = 0; 

var 

  WordApp: OLEVariant; 

begin 

  Result := False; 

  { Check if file exists } 

  if not FileExists(ADocument) then 

  begin 

    ShowMessage('Specified Document not found.'); 

    Exit; 

  end; 

  { Create the OLE Object } 

  try 

    WordApp := CreateOLEObject('Word.Application'); 

  except 

    on E: Exception do 

    begin 

      E.Message := 'Word is not available.'; 

      raise; 

    end; 

  end; 

  try 

    { Hide Word } 

    WordApp.Visible := False; 

    { Open the document } 

    WordApp.Documents.Open(ADocument); 

    { Initialize parameters} 

    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; 

    { Perform the search} 

    if wrfReplaceAll in Flags then 

      WordApp.Selection.Find.Execute(Replace := wdReplaceAll) 

    else 

      WordApp.Selection.Find.Execute(Replace := wdReplaceOne); 

    { Save word } 

    WordApp.ActiveDocument.SaveAs(ADocument); 

    { Assume that successful } 

    Result := True; 

    { Close the document } 

    WordApp.ActiveDocument.Close(wdDoNotSaveChanges); 

  finally 

    { Quit Word } 

    WordApp.Quit; 

    WordApp := Unassigned; 

  end; 

end;