Hi Leute,

ich würde gerne mit einem Delphi Programm Texte in Worddokumente einfügen. Allerdings sollten sie hinter dem Cursor eingefügt werden. Nicht am Anfang oder am Ende. Ich habe auch schon ein "Unit" gefunden und zwar von TurboPower OfficePartner. Mein Versuch sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ListBoxClick(Sender: TObject);
var
str : String;
begin
Str := ListBox.Items[WasMarkiert(ListBox)];
Str := copy(Str, AnsiPos('. ', Str)+2, Length(Str)-2);
AddText(Str);
end;

procedure TForm1.AddText(Str : String);
var
direction, FieldType, Text: OleVariant;
begin
direction:= wdCollapseStart;
// You could add any type of field.
// There are 91 different types available.
// See OpWrd2K.pas
FieldType:= wdHyperlink; //wdFieldAutoText;
Text:= Str;
Sel:= OpWord1.Server.Selection;
Sel.Collapse(direction);
Flds:= Doc.AsDocument.Fields;
Fld:= Flds.Add(sel.Range, FieldType, Text, emptyParam);
end;

an sich funktioniert es alles, nur
FieldType:= wdHyperlink; //wdFieldAutoText;
funktioniert nicht, da ich nicht weiss wie es statt "wdHyperlink" heissen muss, das es ganz normaler Text ist.
würde mich echt super über eure Hilfe freuen
mfg Tobias[delphi]

Ich kenne mich mit der OLE-Automation nicht so super aus, aber kuck dir mal das hier an:
http://www.swissdelphicenter.ch/de/showcode.php?id=81

Hi!

Auf die schnelle gecoded und ungetestet:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  ComObj;

// ...

var
  Word: OLEVariant;
begin
  try
    // offenes Word Dok. holen
    Word := GetActiveOleObject('Word.Application');
  except
    // sonst neue Word instanz erzeugen
    Word := CreateOleObject('Word.Application');
    // Neues Dok hinzufügen (mit Methode Open('Filename')
    // kann eine bestimmte Datei geöffnet werden
    Word.Documents.Add;
  end;
  // Word anzeigen
  Word.Visible := True;
  // Text schreiben
  Word.Selection.TypeText('DeinText');
end;

Wow, super das ging ja schnell. Werde mal testen...
mfg Tobias