Hallo zusammen,
ich habe folgendes Problem:
ICh möchte Text und Bilder aus einer Wordtabelle auslesen.
Der Text ist Formatiert, mit Aufzählungszeichen etc.
Wie bekomme ich nun diesen Schei...TExt (Sorry, sitz da aber schon länger dran...)
mit der richtigen Formatierung in das Richedit?
Ich habe hier aus dem Forum und aus dem Netz schon ein zwei Ansätze, die haben aber leider
alle noch Nachteile...
Eine Beispielworddatei habe ich mal mit hochgeladen...
Ansatz 1:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| ...
myword : TWordApplication;
my : Table;
...
clipboard.Clear;
my.cell(3,2).range.select;
myword.Selection.FormattedText.Select;
myword.Selection.Copy;
fwordread.re.PasteFromClipboard; |
Das Ergebnis zeigt das Bild "Ergebnis1".
Ansatz 2:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| ...
size : integer;
my_Handle : THandle;
my_String : string;
TextPtr : PChar;
strstream : TStringstream;
myword : TWordApplication;
my : Table;
...
clipboard.Clear;
my.cell(3,2).range.select;
myword.Selection.FormattedText.Select;
myword.Selection.Copy;
My_Handle := Clipboard.GetAsHandle(CF_TEXT);
TextPtr := GlobalLock(My_Handle);
my_String:= strpas(TextPtr);
GlobalUnlock(My_Handle);
strstream:=TStringstream.Create(my_String);
strstream.Position:=0;
fwordread.re.PlainText:=false;
fwordread.re.Lines.LoadFromStream(strstream); |
Das Ergebnis zeigt das Bild "Ergebnis2".
Das wäre so suuperklasse, wenn mir jemand hierbei helfen könnte, ich bin
langsam echt verzweifelt.
Schonmal vielen Dank und beste Grüße,
Frank
