Delphi steuert Word - Dokument unter anderem Name speichern

[ms6]

Hallo!
ich öffne mit Delphi 5 ein Word-Dokument und verändere es verschiedenen stellen.
Das geänderte Dokument soll nun unter einem anderen Dateinamen abgespeichert werden.
Ich habe es schon probiert mit WordApp.Document.SaveAs und WordApp.Document.SaveToFile,
jedoch werden beide Varianten nicht vom Automatisierungsobjekt unterstützt.

Kann mir vielleicht jemand helfen???

[generic]

probier es mal mit später bindung. möglicherweise sind deine tlb von delphi5 zu alt.

laut msdn library unterstützt das document objekt saveas


edit:
ach ja, willkommen in der dp.

[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

[Angel4585]

WordApp.Documents sind ja alle geöffneten Dokumente, ich muss bei mir Wordapp.Documents.Items(Beginnend mit 1).SaveAs() verwenden.

[ms6]

Danke! Habs grad mal schnell ausprobiert, bekomme aber folgende Meldung: siehe Anhang

[Angel4585]

Was für eine version von Delphi 5 verwendest du? Gibt es eine Codevervollständigung(STRG+Leertaste)?
schau dir einfach mal an was es da ales gibt und was davon dir am geeignetsten erscheint.

Vllt geht auch Wordapp.Documents(Index).SaveAs(Filename)?

[hoika]

Halll,

zeige doch noch mal den betreffenden Code ,
aber nicht alles !!

Heiko

[ms6]

--> neukopf ergibt sich aus einer Case i of

outfile:='KOPF'+neukopf+'.RTF';
//Bis jetzt probiert:
//WordApp.Documents.SaveToFile(outfile);
//WordApp.Documents.SaveAs(outfile);
//WordApp.Documents.Items(i).SaveAs(outfile);

WordApp.Quit;

- verwende Borland Delphi 5 Enterprise

[hoika]

Hallo,

probier mal

WordApp.ActiveDocument.SaveAs(blaaa)


oder mit variable

var
WordDoc: TWordDocument;

WordDoc:= WordApp.ActiveDocument;
WordDoc.SaveAs(blaaa)


Heiko
PS:
http://www.djpate.freeserve.co.uk/