Hallo,
meine bisherigen Bemühungen sind zumindestens vom Erfolg gekrönt!!!
Einziger Nachteil ist bei
WordApp.Selection.SetRange(0,10000);
die 10000.
Mehr habe ich auf jeden Fall nicht drin.
Eine Lösung ohne die 10000 wäre schön.
Ich finde aber kein SelectAll.
Danke
Heiko
Delphi-Quellcode:
procedure TForm67.Button3Click(Sender: TObject);
var
WordApp: OLEVariant;
begin
DeleteFile('
c:\temp10\3.doc');
try
WordApp := CreateOLEObject('
Word.Application');
except
on E:
Exception do
begin
Exit;
end;
end;
WordApp.Visible:= False;
WordApp.Documents.Open('
c:\temp10\2.doc');
WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekPrimaryFooter;
WordApp.Selection.SetRange(0,10000);
WordApp.Selection.Text := '
';
WordApp.ActiveDocument.SaveAs('
c:\temp10\3.doc');
WordApp.Quit;
WordApp := Unassigned;
end;