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.81 MB
Zeit: 0.03 c
3-21976
Termik
2001-12-06 11:47
2002.01.08
Gespeicherte Prozeduren, dynamische Objekte


14-22325
Olgerd
2001-11-04 19:05
2002.01.08
Verteilung


3-21921
MVova
2001-12-04 10:41
2002.01.08
Verbindung viele zu vielen;)


7-22430
AlexK
2001-09-21 12:28
2002.01.08
Tastensperre


1-22229
Mann in rot
2001-12-16 14:31
2002.01.08
Wieder eine Frage zu RichEdit!





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish 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