Détecter via VBA les objets OLE dans un Word

Bonjour,

Dans la cadre de l'utilisation d'un outil de type PDF Factory pour générer des renditions PDF à partir de documents WORD, je rencontre des problèmes avec des objets OLE insérés dans les doc WORD. Certains objets ne sortent pas ou sortent déformés dans le PDF.
Comme la base de documents WORD est énorme, je cherche une fonction VBA dans WORD qui me permettrait de scruter mes documents WORD pour repérer la présence ou nom d'objets OLE.
Est-ce possible ? Pouvez-vous m'aider SVP ?

Merci

Salut,

Qu'as-tu comme code pour l'instant ?

Bonjour,

Je n'ai pas de code pour l'instant. Ma question vise en premier lieu la faisabilité.

Bonjour,

C'est mon premier post, et je ne suis pas informaticien, merci pour votre compréhension.

J'ai travaillé sur une macro qui permet de faire automatiquement des copiés / collés entre 4 documents word distincts. J'ai inséré ces 4 documents word dans un document word chapeau sous forme d'objet. En complétant la macro initiale avec les lignes ci-dessous, je peux ouvrir les 4 documents automatiquement. La difficulté est que les 4 documents portent le même nom, à savoir "Document dans [nom du document dans lequel ils sont incorporés]. Et cela m'empêche d'aller de l'un à l'autre car encore une fois, ils portent tous le même nom. Est-ce que vous auriez une idée pour attribuer un nom à chacun des 4 documents ?

Sub Ouverture()
Dim i As Long
With ActiveDocument
For i = 1 To .InlineShapes.Count
With .InlineShapes(i)
.Select
.OLEFormat.DoVerb VerbIndex:=1
End With
Next i
End With
End Sub