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.82 MB
Zeit: 0.026 c
1-22136
Dorixe
2001-12-20 09:40
2002.01.08
Proekt


1-22189
bestix
2001-12-14 19:54
2002.01.08
Metafiles


3-21959
Nikolaev Konstantin
2001-12-04 20:54
2002.01.08
Fehler beim Aktivieren von TTable ???


1-22227
Tosov
2001-12-15 10:43
2002.01.08
So arbeiten Sie mit TInplaceEdit


4-22469
Zibaro
2001-11-01 19:38
2002.01.08
Bild im Popup-Menü (wie von der Schaltfläche)





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