Delphi steuert Word - Dokument unter anderem Name speichern

[ms6]

Hallo Guten Morgen!

Hat zwar ne Weile gedauert aber habs mal ausprobiert, allerdings bin ich nicht weiter gekommen
Hier mal der ursprüngliche Code, vielleicht kann mans ja doch anders machen?

if ckbKoepfe_erstellen.Checked then
begin
try
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open(inFile);
except
ShowMessage('Cannot start Word or open document!');
Exit;
end;
Begin
Case i of
1: neuKopf:='AA';
2: neuKopf:='AB';
3: neukopf:='AG';
4: neukopf:='AI';
5: neukopf:='BV';
6: neukopf:='DS';
7: neukopf:='EV';
8: neuKopf:='EW';
9: neuKopf:='FA';
10: neuKopf:='FIG';
11: neuKopf:='GEW';
12: neuKopf:='GL';
13: neuKopf:='GS';
14: neuKopf:='GSA';
15: neuKopf:='GST';
16: neuKopf:='GV';
17: neuKopf:='IG';
18: neuKopf:='IHK';
19: neuKopf:='IN';
20: neuKopf:='IT';
21: neuKopf:='IV';
22: neuKopf:='KK';
23: neuKopf:='LAR';
24: neuKopf:='LG';
25: neuKopf:='LSG';
26: neuKopf:='OFD';
27: neuKopf:='OLG';
28: neuKopf:='OVG';
29: neuKopf:='SCD';
30: neuKopf:='SCGV';
31: neuKopf:='SCZB';
32: neuKopf:='SG';
33: neuKopf:='ST';
34: neuKopf:='STA';
35: neuKopf:='VG';
36: neuKopf:='VSA';
37: neuKopf:='WAG';
38: neuKopf:='WZV';
39: neuKopf:='ZAG';
40: neuKopf:='ZB';
41: neuKopf:='ZV';
42: neuKopf:='ZZV';
end; //Case
WordApp.Visible := true;
repeat
begin

WordApp.ActiveWindow.ActivePane.View.SeekView:=wdS eekFirstPageHeader;
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Replacement.ClearFormatting ;for i:=1 to 42 do
WordApp.Selection.Find.Text := 'SC' ;
WordApp.Selection.Find.Replacement.Text := 'AV'+neuKopf;
WordApp.Selection.Find.Forward := True;
WordApp.Selection.Find.Wrap := wdFindContinue;
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;

if WordApp.Selection.Find.Execute() = true then
begin

WordApp.Selection.TypeText(Text:='AV'+neuKopf);

If (WordApp.ActiveWindow.ActivePane.View.Type = 1) Or
(WordApp.ActiveWindow.ActivePane.View.Type = 2) Then
WordApp.ActiveWindow.ActivePane.View.Type :=3;


end;
end;
until WordApp.Selection.Find.Execute()=false;
outfile:='KOPF'+neukopf+'.RTF';

//WordApp.Documents.SaveToFile(outfile);
//WordApp.Documents.SaveAs(outfile);

WordApp.Quit;
// i:=i+1;
end; //For
end;//if