word öffnen und maske ändern

[ferby]

Hallo,

Ich habe eine Datenbank geschrieben in die Namen, Adressen, Kundennummer, Rechnungsnummer etc gespeichert werden.
Ich habe auch als Word-Doc eine Musterreichnung.

Jetzt will ich das ich aus meinem Programm heraus die Musterrechnung öffne und in bestimmte zeilen nummern&wörter einfügen, wie z.b: die adresse oder die kundennummer.

leider habe ich keine ahnung wie ich ein word öffne und wie ich einzellne zeilen von meiner datenbank aus ändern kann...

kann mir wer weiterhelfen????

[Charly]

:shock: Hi, also das könnte wie folgt aussehen:


WordApplication1.Documents.Open(FileName,EmptyPara m,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyP aram,
EmptyParam,EmptyParam);
WordApplication1.Visible := True;
vWhat:=wdGoToBookmark;
vBookmark:='aa';
WordApplication1.Selection.GoTo_(vWhat,emptyParam, emptyParam,vBookmark);
WordApplication1.Selection.TypeText('Max Mustermann');

[ferby]

Hallo,

Ich habe das was du mir geschrieben hast ausprobiert, nur irgendwie klappt es nicht...

ich habe jetzt die muster-rechnung ins web gestellt:


Word-Dokument

Es ist 29kb groß


Da gibt es die zeile

Kundennummer: XXX Angebots-Nummer: 1000XXX


wie kann ich jetzt aus einen delphi programm die x gegen zahlen austauschen.

kann mir wer ein programm schreiben in den genau in diesen word die x gegen zahlen ausgetauscht werden und ein wenig beschreiben was welcher befehl macht, wäre sehr dankbar.....


ferby

[Albi]

Hallo,

für dein Problem gib es mehrere Lösungen. Entweder du schaust Dir mal die Befehl "Textmarke" an.

Code:

procedure ....
var Bookmark: OleVariant;
Begin
...
...
...
Bookmark:= 'Kundennummer';
if WordApplication1.ActiveDocument.Bookmarks.Exists(Bookmark) then
  begin
    R:= WordApplication1.ActiveDocument.Bookmarks.Item(Bookmark).Range;
    R.InsertAfter('123456'); //Kann auch Feld aus DB sein
  end;
end;

Oder Du schaust Dir mal ekRTF an, damit kannst Du das auch ganz einfach realisieren ohne dich um Word kümmern zu müssen. In meinen Augen, der Große Vorteile liegt darin, dass das auch läuft, wenn kein Word auf dem Rechner installiert ist (*.rtf).

[ferby]

Hallo,


bei mir kommt der fehler.

[Fehler] Unit1.pas(31): Undefinierter Bezeichner: 'WordApplication1'


Ist das ein Komponent? Wenn ja ich finde ihn nicht.



Was muss ich dagegen machen???

[Albi]

Hallo,

ja, es handelt sich um die Word-Kompo von Delphi. Zu finden in dem Server (D7).

Hast Du ekRTF ausprobiert? Das ist wirklich wesentlich einfacher.

[ferby]

Hallo,

Ich finde den Komponent nicht, was meinst du mit Server?

Die andere Variante kapier ich nicht....... mein englisch ist auch sehr schlecht........


kannst du mir genau sagen wo ich diesen komponent finde?


danke,
ferby

[ferby]

Hallo,

Ich brauche den Komponent TWordApplication , ich habe delphi 7 personal, kann ich diesen komponenten wo herbekommen?


danke für jede hilfe,
ferby

[ferby]

Hi,

Ich bin jetzt schon echt am verzweifeln, ich finde weder in diesen forum noch in google hilfe,
jetzt habe ich auch schon ekRTF angeschaut, doch wenn ich die komponenten installieren wil komt der fehler:

---------------------------
Delphi 7: delphi32.exe - Komponente nicht gefunden
---------------------------
Die Anwendung konnte nicht gestartet werden, weil dbrtl70.bpl nicht gefunden wurde. Neuinstallation der Anwendung könnte das Problem beheben.
---------------------------
OK
---------------------------


und

---------------------------
Delphi 7
---------------------------
Package C:\Programme\Borland\Delphi7\Projects\Bpl\D7\ecomp .bpl kann nicht geladen werden.

Das angegebene Modul wurde nicht gefunden.
---------------------------
OK
---------------------------




Kann mir irendwer weiterhelfen?? Ich will ganz einfach in einen fertigen Word ein paar Wörter einfügen können.......................


ferby

[Jelly]

Hallo ferby,

ich nutze für meine Berichte die Komponente TEkRTF. Allerdings muss dein Template im RTF Format vorliegen, was aber im Grunde jetzt keine Einschränkung ist, sondern schon fast eher ein Vorteil, weil der Endbenutzer nicht zwingend Word installiert haben muss, um den Bericht zu öffnen.

NACHTRAG: Ich seh grad, du nutzt nur Delphi Personal. Dir fehlen also alle TDataset Abkömmlinge... Die Kompo wird in deinem Fall also wohl kaum funzen, sorry