Discussion :

[Djang0]

Bonjour,

Je souhaite convertir un pdf en doc.
Il est tres facile de convertir un pdf en fichiers images (png, jpg, ...)
Mais je n'arrive pas ensuite à créer un fichier .Doc ou .rtf et à insérer dedans mes images en taille maximale (de sorte qu'elle prenne toute la page...)

Merci d'avance

[Djang0]

J'ai déja essayé d ouvrir mon html via microsoft word mais le résultat n'est pas concluant...

[blondelle]

Salut Djang0
Ton fichier image est il deja sur ton disque avant de l'integrer dans Word

[Djang0]

Salut,

Oui mes fichiers images sont sur mon disque.

[blondelle]

Alors deja voici le lien sur la FAQ OleWord

http://cpp.developpez.com/faq/bcb/?page=msofficeword

Voici un bout de code qui place une image sur la feuille les dimensions sont parametrables, je n'ai pas cherche a l'automatiser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Variant shpCanvas, vFileName;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Grue_Atelierxx.jpg";
 
shpCanvas =  vWDocument.OlePropertyGet("Shapes").OleFunction("AddCanvas", 0, 0, 600, 800); // AddCanvas, left, top, width, height
 
// attention au Canvas et image ils doivent correspondre au niveau des dimensions
// sinon on a le droit a une exception totalement inexplicite
 
shpCanvas.OlePropertyGet("CanvasItems").OleFunction("AddPicture", vFileName, false, true, 1, 1, 599, 799); //  AddPicture, FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height

[Djang0]

C'est cool tout ca !
Merci beaucoup !
je viens de tester rapidement
C'est pas mal !
J'ai encore quelques petits problèmes : il faut d'abord ouvrir word manuellement sous windows pour que ca fonctionne mais je veux le faire via une commande système pour contrer le problème.
Et puis lors de la fermeture du word apres la sauvegarde il me met une erreur et la je vois pas mais je chercherai plus cette après-midi.

Merci beaucoup blondelle.
je travail dessus cette après-midi à fond et je vous dit quoi
merci

[Djang0]

J'ai passé la première erreur en rajoutant juste
system ("start WINWORD.EXE");
Sleep(6000);

Mais ensuite lors de la fermeture il me met une erreur que j'arrive pas à analyser : je vais demander a un collègue cette aprem

Apres la sauvegarde de mon travail, il me fait une erreur :
le project a provoqué une classe d'exception Evarianttypecasterror avec le message : Impossible de convertir le variant de type (Boolean) en type (Dispatch).
processus stoppé.

C'est lors de l'execution via c++ builder mais peut etre qu'en executant directement l'exe, l erreur va passer a la trappe. Je test cette aprem.

je fais ca pour stoppé et il plante à la ligne en rouge

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    vWDocuments.OleFunction("Close");
    // on libere les Variants
    vMSWord = Unassigned;


    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;

[blondelle]

Pour ouvrir Word regarde le lien que je t'ai passe il y a aussi un Tuto sur le site, si tu a des problemes Post je t'aiderais

[blondelle]

Pour ouvrir Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
// #include <utilcls.h>  <---- ne pas oublier
 
try
        {
//    vMSWord = Variant::GetActiveObject("Word.Application");
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
vMSWord.OlePropertySet("Visible", true);
 
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Add");

pour quitter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
vMSWord.OleFunction("Quit");
vMSWord = Unassigned;

[Djang0]

effectivement pas besoin de passer par la
Oui l'erreur est résolu pour la fermeture

j'avais en fait mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    //Procedure pour fermer le document
 
    vWDocuments.OleFunction("Close");
    // on libere les Variants
    vMSWord = Unassigned;
 
    //Procedure pour quitter word
 
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;

Il suffisait juste de mettre la procédure pour quitter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    //Procedure pour quitter word
 
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;

je continue et te tient au courant !
Merci pour ton aide

[blondelle]

Si tu veut utiliser "Close " puis " Quit " il faut dans ton cas l'ecrire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    vWDocuments.OleFunction("Close", NULL, NULL);
    vMSWord.OleFunction("Quit");
    // on libere les Variants
    vMSWord = Unassigned;

[Djang0]

D'accord,
je travail sur un projet plus urgent jusqu'à jeudi et je reprend ce projet jeudi.
je te tiens au courant.
merci

[Djang0]

L'enregistrement fonctionne tres bien mais il se fait au dernier format word installé sur le pc.
Sais-tu s'il est possible de changer le format : le mettre en rtf ou doc compatible avec word 97 ?
Merci d'avance

[blondelle]

C'est dans la FAQ BCB, soit au format TXT, CSV pas de RTF

http://cpp.developpez.com/faq/bcb/?page=msofficeexcelgestionclasseurs#oleexcelworkbooksaveas

[Djang0]

Oui, mais ca c'est pour excel,
dans le passage sur word, il n'y a rien du même genre donc je me suis dit qu'il l'avait oublié et que peut etre quelqu'un savait faire

[blondelle]

Oui grossiere erreur de ma part voici comment il faut faire pour le format RTF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    Variant vFileName;
    vFileName = "c:\\book11.doc";
    vWDocument.OleProcedure("Saveas", vFileName, 6);
}

[Djang0]

C'est pas grave
et l'important c est de reconnaitre ces erreurs
bravo et merci
Je me met sur autre chose jusqu'a jeudi
y a un audit qui passe jeudi donc je dois fignoler d autres trucs

[Djang0]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    vFileName = "c:\\book1.doc";
    vWDocument.OleProcedure("Saveas", vFileName,19);

Je fais ca pour l'enregistrer au format doc compatible avec word 97 et la il me crée un fichier 3 ko avec l'emplacement de l'image mais cet emplacement est vide
car avec les fichiers rtf, ca me crée des fichiers trop gros ( de l ordre de 2 mo pour une image de 100 ko

Tu n'aurais pas une autre idée

[Djang0]

Bon en fait meme quand j enregistre au format 97 ca me crée des fichiers de 2 mo .......

donc ca ne pourra passer dans mon automate
Je vais chercher une autre solution.

[Djang0]

Est ce que tu aurais une documentation pour OleWord - quelque chose d'un peu plus développé que la faq - ?

Peut être qu'en modifiant les options de l'appel lors de la fonction de sauvegarde, je pourrai réussir à avoir un fichier de taille inférieure.
Sinon tu connais peut etre les détails de cette fonction .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    vFileName = "c:\\book1.doc";
    vWDocument.OleProcedure("Saveas", vFileName, 6);