Hallo!
Ich bin kein Programmierer.
In einer branchenspezifischen Anwendung werden Kundendaten an Word weitergegeben und durch Suchen&Ersetzen Kundendaten in Word-Dokumente eingefügt. Ich selbst kenne mich NULL aus, hätte aber jemanden, der mir das in unser (zwingend notwendiges) Branchenlösungs-Programmes einbaut - er mag sich aber nicht mit der Thematik
OpenOffice beschäftigen.
Es geht nun darum, dass nicht mehr Word als Programm geöffnet wird, sondern ich hätte gerne, dass
OpenOffice-Writer geöffnet wird und das Suchen&Ersetzen nicht im Word sondern im
OpenOffice passiert...
Ist das sehr kompliziert???
Danke!
Wolfgang
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58:
| procedure TBefund.wordOLESteuerung;
var word ; variant; vorlage, zie1 : string; s : oleVariant; lbv : Tstrings; lbw : Tstrings; x : integer;
begin screen.cursor:=crHourglass: lbv := TStringList.Create; lbw := TStringList.Create:
try word := GetActiveOleObject('Word.Application');
except try word := CreateOleObject('word.Application'); except showMessage('Microsoft word kann nicht starten.'); screen.cursor :; crDefault; exit; end; end;
word.visible := true; vorlage := hauptprogramm.rfk.DOT_Pfad + flbVorlagen.ltems[flbVorlagen.Itemindex]: ziel := hauptprogramm.rfk.DOC_Pfad + hauptprogramm.kde.Caption+' ' + edBefundname.Text + '.doc'; copyfile(pchar(vorlage),pchar(ziel),FALSE); Word.Documents.OpenOld(ziel); for x := 0 to lbV.Count -1 do begin s := Word.Selection; s.find.text := lbv[x]; s.find.Rep1acement.Text := lbW[x]; s.find.Forward := TRUE; s.find.wrap := FALSE; s.find.Format := FALSE; s.find.Matchcase := FALSE; s.find.MatchWholeword := FALSE; s.find.MatchWîldCards := FALSE; s.find.MatchSoundslike := FALSE; s.find.MatchAl1WordForms := FALSE; s.Find.Execute(Replace:=2); end;
Word.ActiveDocument.Save; screen.cursor:=crDefault; end; |
Moderiert von Martok: Quote- durch Delphi-Tags ersetzt