Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Ein Word-Dokument öffnen. (+) Finden Sie ähnliche Zweige


neverbee   (2001-11-06 12:11) [0]

Tatsache ist, dass Sie ein Word-Dokument öffnen müssen (z. B. c: \ test.doc) und aus irgendeinem Grund nicht ShellExecute, sondern die TWordApplication.Documents.Open-Methode verwenden möchten. Diese Funktion enthält die folgenden Parameter (aus word97.pas):
Funktion Öffnen; : OleVariant): WordDocument; sicherer Anruf;
Bei der Auswahl von Parametern (im Sinne dessen, was klar zu sein scheint) verflucht es "Type Mismatch". Wenn jemand diese Funktion durchgearbeitet hat, sag mir, was und wie ich dorthin komme :)



Dimka Maslov   (2001-11-06 12:29) [1]

verwendet ..., OleServer, Word97; Funktion RepairText (Ws: WideString): String; var i: ganze Zahl; Ch1, Ch2: Char; S: String; beginne S: = Ws; Ergebnis: = ""; Ch2: = # 13; für i: = 1 bis Länge (S) -1 beginnen Ch1: = S [i]; Ch2: = S [i + 1]; Ergebnis: = Ergebnis + Ch1; wenn (Ch1 = #13) und (Ch2 <> #10) dann Ergebnis: = Ergebnis + # 10; Ende; Ergebnis: = Ergebnis + Ch2; wenn Ch2 = chEnter dann Result: = Result + # 10; AnsiToOEM (PChar (Ergebnis), PChar (Ergebnis)); OEMToAnsi (PChar (Ergebnis), PChar (Ergebnis)); Ende; Funktion ImportWordFile (const FileName: String): String; var WordApp: TWordApplication; Doc: Variant; beginne WordApp: = TWordApplication.Create (nil); versuchen Sie es WordApp.ConnectKind: = ckNewInstance; WordApp.Connect; versuchen Sie es Doc: = WordApp.Documents; Doc.Open (FileName); Doc: = Nicht zugewiesen; WordApp.Selection.SetRange (0, $ 7FFFFFFF); Ergebnis: = RepairText (WordApp.Selection.Text); endlich WordApp.WindowState: = 1; WordApp.Quit; WordApp.Disconnect; Ende; endlich WordApp.Free; Ende; Ende;



Seiten: 1 ganze Branche

Forum: "WinAPI";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben





Speicher: 0.54 MB
Zeit: 0.035 c
7-22442
Alexei
2001-09-26 15:20
2002.01.08
Wie kann ich feststellen, ob ein Modem vorhanden ist?


1-22047
Handra
2001-12-17 13:12
2002.01.08
Hilfe bei der Erstellung


3-21926
Oleon
2001-12-04 15:14
2002.01.08
Eine Tabelle aus Delphi erstellen.


14-22391
Serg5
2001-11-10 10:29
2002.01.08
Wer nicht faul ist, geht zu http://forum.ru-board.com/, es hängt wirklich oder IP-Filterung, sie lassen mich nicht.


1-22064
Daos
2001-12-19 08:46
2002.01.08
die Registrierung





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch