Discussion :

[SfJ5Rpw8]

Bonjour,

voilà j'ai un document Word dans lequel j'ai "inclus" des fichiers pdf (extrait de documentations...) en objet OLE ...

j'aimerai "imprimer en pdf" ce document ainsi que tous les documents qu'il inclus.. (en conservant l'ordre des pages..)

dans un premier temps je voudrais arriver à imprimer un objet ole ..j'arrive à accéder à celui-ci par le code ..:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'
' Pour mémoire parcours des objets OLE inclus
'
Private Sub ParCoursOLEobject()
 Dim d As Document
 Dim ils As InlineShape
 Set d = ActiveDocument
 
 For Each ils In d.InlineShapes
  If ils.AlternativeText = "A_IMPRIMER.." Then
    Debug.Print ils.OLEFormat.ProgID
  End If
 Next
End Sub

mais je vois pas comment l'imprimer ...

[Heureux-oli]

Salut,

Quand tu fais un simple print, il se passe quoi ?
J'arrive pas à inclure un ficher PDF dans un document Word, je n'ai que le reader d'installé et il ne me laisse pas faire.

Si c'est pour imprimer un objet, je pense que le sélectionner et imprimer la sélection devrait le faire, mais c'est sans aucune certitude.

[SfJ5Rpw8]

Salut,

quand je dis inclus c'est sous forme d'icône.... et bien entendu ce n'est pas l'icône que je veux imprimer mais le contenu du document pdf.

[kiki29]

Salut, je suppose que le double clic sur l'icône n'affiche rien , ni le clic droit "Objet Acrobat Document/Ouvrir ?

[SfJ5Rpw8]

si-si le double clic sur le document me permet de l'ouvrir (après un message de sécurité) ... dans PDF-Xchange ... le viewer âar défaut des pdf sur mon PC.

[Heureux-oli]

Salut,

quand je dis inclus c'est sous forme d'icône.... et bien entendu ce n'est pas l'icône que je veux imprimer mais le contenu du document pdf.

C'est logique, je ne pensais pas que c'était sous la forme d'icône.

Je me doutais que ça serait pas facile.

Je vois pas comment faire.

On peut faire plein de chose, l'ouvrir, l'activer, ...

Mais imprimer, je ne vois pas, même dans les actions que l'on peut entreprendre avec DoVerb, il n'est pas possible d'imprimer.

[kiki29]

Re, clic droit sur icône PDF puis "Objet Acrobat Document/Convertir puis Décocher "Afficher sous forme d'icône" et sans doute faire un peu de mise en page ?

PS ; ou mieux

Code :

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

1
2
3
    For Each ils In d.InlineShapes
        ils.OLEFormat.DisplayAsIcon = False
    Next ils

[SfJ5Rpw8]

Merci..kiki mais les pdf inclus dont je parle comprennent plusieursvpages et leur mise en page me convient....

[kiki29]

Re, ok mais pourquoi avoir mis tes PDFs dans un doc, car en plus tu récupères du Bitmap avec tous les problèmes d'aliasing et autres si mise à l'échelle. En fait tu perds le bénéfice du PDF initial en le mettant dans un doc Word.

[SfJ5Rpw8]

En fait le but c'est ecriture de documentation la partie doc etant de mon 'cru' elle fait refence a des extraits de documentation constructeurs, specifications... je ne veux pas modifier ces pdf constructeurs.. mais juste les inclure dans mon pdf final en annexe par exmple..habituellement je fais cela avec pdfxchange...mais j'aimerais automatiser la construction du pdf final suite a des corrections ou modifications de mon. Doc.....

[kiki29]

Re, ok d'accord , juste pour vendre ma camelote, as-tu vu ceci http://www.developpez.net/forums/d43...bat-distiller/ il y a la possibilité via PDFCreator pour faire, entre autres, de la fusion de docs PDF etc .....

[Heureux-oli]

Salut,

Je pense à une table de liens.
Deux cellules, une avec l'icône et l'autre avec le chemin du fichier.

On peut par VBA utiliser le chemin pour ouvrir le fichier et quand même l'ouvrir avec l'icône.

Ou encore un hyperlink.

[SfJ5Rpw8]

J'ai pas le code sous main ...mais faute de mieux j'ai utilisé la propriété Alternativetext pour stocker le chemin du pdf.....

[Heureux-oli]

Salut,

Ça devient plus intéressant.

Ce à quoi je pense, c'est sélectionner le texte entre chaque inlineshape, l'imprimer et pour chaque inlineshape rencontré, l'imprimer aussi.

Pour concaténer les fichiers ensuite, mais on pourrait même ne pas imprimer les PDF en PDF

Mais une impression en une fois, je ne le vois pas bien.

[SfJ5Rpw8]

Tiens voila une partie du code que j'ai commence a ecrire :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 For Each ils In ActiveDocument.InlineShapes
 
  If Dir(ils.AlternativeText) <> "" And ils.AlternativeText <> "" Then
 
    iFin = ils.Range.Information(wdActiveEndPageNumber)
 
    PrintPage iDeb, iFin
 
    Sleep 1000
 
    PDFCreator1.cPrintFile ils.AlternativeText
 
    Sleep 1000
 
    iDeb = iFin + 1
 
  End If
 
 Next
 
 iFin = 9999
 
 PrintPage iDeb, iFin
 
 Sleep 1000
 
  PDFCreator1.cCombineAll
 
  PDFCreator1.cPrinterStop = False

Je suis parti du code fourni avec pdfcreator et decrit ici : http://heureuxoli.developpez.com/office/word/doc2pdf/

[Heureux-oli]

Salut,

Je pensais pas qu'il n'y avait qu'une seule possibilité de fichier par page.
Si tu peux travailler avec des pages, c'est encore plus simple.
Je pensais à du texte sélectionné et imprimer la sélection, avec le risque d'avoir une page scindée en plusieurs morceau pour l'impression.

Par contre, tu ne réinitialises pas ton iDeb, seulement le iFin ?

Les pages du début vont être imprimées un grand nombre de fois.

[SfJ5Rpw8]

Oui, je rajoute un titre et un saut de page avant l'insertion des pdf de façon a rajouter une entrée dans le sommaire....

pour ideb j'ai la ligne de code

Code :

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

ideb=ifin+1

Voilà si j trouve pas mieux pour imprimer le pdf inclus je me servirai de cette propriété alternativetext....

[Edit] où en liant les objets à leur fichiers sources .. et utilisant la propriété :

Code :

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

ils.Hyperlink.Address