Discussion :

[titouille]

Bonjour bonjour à tous !!

Voilà. Je ne demande pas de solutions, juste des pistes. Si tu as une idée sur un des problèmes suivant, n'hésite pas à m'en faire part


Le topo : j'ai un document word, de nature quelconque.

Dans une première étape, il faudrai que je reformatte ce document (au besoin) pour qu'il soit sous la forme A4 Paysage, sur 2 colonnes.

La seconde étape serait de pouvoir afficher un "aperçu avant impression" de mon document, puis de faire une copie d'écran de chaque page, pour l'enregistrer en tant qu'image.

Enfin, il faudrai que je récupère toutes ces images et que je fasse une moulinette qui me permette de les découper pour obtenir, pour chaque image, les 2 pages (gauche et droite)



Voilà. Maintenant, je me demande franchement si c'est faisable (en VBA, par exemple, ou autre). Donc toutes les suggestions sont les bienvenues.


D'avance merci, a++

[titouille]

Hello ouskel'n'or !

Oui, tu as bien raison de te lacher et de proposer quelque chose, ça permet d'élaguer et de trouver une solution adéquate.

En fait, le but est d'avoir un document formaté "A4 paysage" avec 2 colonnes. Puis de pouvoir récupérer des jpg (ou png) à partir de chaque page, et enfin de les reformater, pour au final obtenir 2 images jpg (par exemple) pour chaque page du document.

Donc après, peu importe la manière... Si passer par du PDF peut aider à résoudre le problème, alors je passerai par du PDF. Si il y a des possibilités avec VBA, je passerai par VBA... peut importe la manière, en fin de compte, c'est le résultat qui est important.

Donc si tu as une idée en tête, expose, je suis à l'écoute

[ouskel'n'or]

Déjà, tu peux essayer ça :
J'ai fait ça avec une seule page de texte, sélectionnée entièrement, copiée puis collée en tant qu'image non dissociée du texte. C'est du bitmap.

Code :

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

1
2
3
    Selection.WholeStory
    Selection.Copy
    Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine

Si ça te convient, on pourra passer à la suite - dimensionnement, copie page par page, etc...

A+

[ouskel'n'or]

Autant pour moi, tu n'as pas du bitmap, tu as un empilement de boîtes de textes... Pour avoir du bitmap, tu dois faire

Code :

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

1
2
3
4
5
    Selection.Copy
    Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine
    Selection.Copy
    Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _
        wdInLine, DisplayAsIcon:=False

Ceci dit, pour obtenir ce que tu veux, tes copies doivent être placées dans un tableau (deux colonnes, autant de lignes que tu as de pages /2) - question de présentation - sinon, les images de tes pages s'aligneront sur la lignes et les plus petites démarreront en dessous des plus longues.

Enfin, pour faire ça, commence par la dernière page, transforme toutes tes pages en les redimensionnant au passage, puis sélectionne tout le document et crée ton tableau sur deux colonnes.

Finalement, c'est relativement simple à réaliser.

Bon courage.

A+

[titouille]

Merci beaucoup pour toutes ces indications, je pense que je vais pouvoir grandement m'en inspirer.
Je n'ai pas encore vraiment testé le truc, je voulais d'abord avoir des pistes. Je vais essayer tout ça d'ici peu et te tiendrai au courant. Un grand merci pour ton aide