procedure TForm1.BitBtnWordClick(Sender: TObject);
var wordapp : olevariant;
s,t : widestring;
begin
try
try
WordApp:=CreateOleObject('Word.Application');
memoword.lines.add('Created OleObject');
except
memoword.lines.add('Unable to start Word.');
end;
s:='the';
t:='#####';
WordApp.Documents.Open(WideString(utf8decode('c:\users\david\desktop\firewood\testing.docx')));
memoword.lines.add('Opened word');
WordApp.Visible:=True; {Make WordApp visible}
memoword.lines.add('Word visible');
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := s;
// wordapp.selection.find.font.italic:=true;
WordApp.selection.find.replacement.clearformatting;
WordApp.Selection.Find.Replacement.Text := t;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.MatchAllWordForms := False;
WordApp.Selection.Find.MatchCase := False;
WordApp.Selection.Find.MatchWildcards := False;
WordApp.Selection.Find.MatchSoundsLike := False;
WordApp.Selection.Find.MatchWholeWord := False;
WordApp.Selection.Find.MatchFuzzy := False;
// try WordApp.Selection.Find.Wrap:=true; memoword.lines.add('Find Wrap'); except memoword.lines.add('No find wrap'); end;
try WordApp.Selection.Find.Format:=False; memoword.lines.add('Find Format'); except memoword.lines.add('No find format'); end;
memoword.lines.add('Ready to replace');
try
memoword.lines.add(' Find: <'+wordapp.selection.find.text+'>');
memoword.lines.add('Replace: <'+wordapp.selection.find.replacement.text+'>');
WordApp.Selection.Find.Execute(Replace := 2);
memoword.lines.add('Replaced');
memoword.lines.add(' Find: <'+wordapp.selection.find.text+'>');
memoword.lines.add('Replace: <'+wordapp.selection.find.replacement.text+'>');
if WordApp.Selection.Find.found then memoword.lines.add('Found') else memoword.lines.add('Nothing found');
except
memoword.lines.add('Did not replace')
end;
except
memoword.lines.add('All went wrong');
end;
{
try
// Shut down and clean up.
WordApp.activedocument.close;
wordapp.quit;
wordapp:=unassigned;
memoword.lines.add('Shut down Word');
except
memoword.lines.add('Failed to clean up');
end;
}
end;