whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1541)

Database (90)
Files (137)
Forms (107)
Graphic (114)
IDE (21)
Indy (5)
Internet / LAN (130)
IntraWeb (0)
Math (76)
Misc (126)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (266)
VCL (242)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

51 Visitors Online


 
...replace text in a word document?
Autor: Thomas Stutz
[ Print tip ]  

Tip Rating (94):  
     


{
  This function starts a hidden word instance, opens a specified document "ADocument"
  and replaces (all) occurrences of "SearchString" with a specified "ReplaceString".
  The function is similar to the Delphi StringReplace() function.
}

{
  Diese Funktion startet eine Word versteckte Instanz, öffnet eine Datei und
  ersetzt (alle) Vorkommen von "SearchString" durch "ReplaceString".
  Die Funktion ist ähnlich zur StringReplace() Funktion.
}


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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  
Word_StringReplace('C:\Test.doc','Old String','New String',[wrfReplaceAll]);
end;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners