maison
Top.Mail.Ru Yandeks.Metrika
Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Ouverture d'un document Word. (+) Trouver des branches similaires


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

Le fait est que vous devez ouvrir un document Word (par exemple, c: \ test.doc) et que, pour une raison quelconque, vous ne souhaitez pas utiliser ShellExecute, vous souhaitez utiliser la méthode TWordApplication.Documents.Open. Cette fonction est fournie avec le jeu de paramètres suivant (tiré de word97.pas):
function Open (var NomFichier: OleVariant; var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; var Revert: OleVariant; var : OleVariant): WordDocument; appel de secours;
Il gronde "Type Mismatch" sur la sélection des paramètres (ce qui signifie qu'il semble être compréhensible). Si quelqu'un utilise cette fonctionnalité, dites-moi quoi et comment transférer là-bas :)



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

utilise ..., OleServer, Word97; function RepairText (Ws: WideString): String; var i: entier; Ch1, Ch2: Char; S: chaîne; commencer S: = Ws; Résultat: = ""; Ch2: = # 13; pour i: = 1 en longueur (S) -1 commence Ch1: = S [i]; Ch2: = S [i + 1]; Résultat: = Résultat + Ch1; if (Ch1 = #13) et (Ch2 <> #10) alors Résultat: = Résultat + # 10; fin Résultat: = Résultat + Ch2; si Ch2 = chEnter, alors Résultat: = Résultat + # 10; AnsiToOEM (PChar (Résultat), PChar (Résultat)); OEMToAnsi (PChar (Résultat), PChar (Résultat)); fin function ImportWordFile (const NomFichier: String): String; var WordApp: TWordApplication; Doc: Variante; commencer WordApp: = TWordApplication.Create (nil); essayer WordApp.ConnectKind: = ckNewInstance; WordApp.Connect; essayer Doc: = WordApp.Documents; Doc.Open (NomFichier); Doc: = non affecté; WordApp.Selection.SetRange (0, $ 7FFFFFFF); Résultat: = RepairText (WordApp.Selection.Text); enfin WordApp.WindowState: = 1; WordApp.Quit; WordApp.Disconnect; fin enfin WordApp.Free; fin fin



Pages: 1 branche entière

Forum: "WinAPI";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.55 MB
Heure: 0.038 c
3-21986
Rêveur
2001-12-06 15:43
2002.01.08
Champ de données non autorisé sur un DataSet ouvert


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


14-22374
Nikols
2001-11-01 16:03
2002.01.08
Comment les programmeurs se détendent-ils? Et quand?


1-22107
Alexandre
2001-12-19 01:45
2002.01.08
Comment, au démarrage du programme, en afficher immédiatement un autre au-dessus du formulaire principal?


4-22472
Eugene
2001-10-27 17:03
2002.01.08
Comment faire votre propre petit serveur proxy?





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais Anglais estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais Roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol