Selecting embedded objects 1

[wmbb]

I've created a word 2010 document with embedded files (insert-object...) displayed as an icon
I need to select these icons within a macro to exclude them for protection.
Is it possible to select these file-icons with VBA ?

 

[macropod]

Try:

Sub Demo()
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
  If Fld.Type = wdFieldEmbed Then
    Fld.Result.Editors.Add wdEditorEveryone
  End If
Next
End Sub

Cheers
Paul Edstein
[MS MVP - Word]

 

[wmbb]

Thanx, this is exactly what I wanted.
A star for you !