Word: Locating Embedded objects/files residing in the document

Topic

New Reply

Hello,

Wanted to know, if their is any option in word, using which I can find out if their are any embedded objects residing in the document.

Thanks.

Reply | Quote

Replies

You could run this macro:

Code:

Sub Test()
  Dim varObj As Variant
  Dim n As Integer
  For Each varObj In ActiveDocument.InlineShapes
	If varObj.Type = wdInlineShapeEmbeddedOLEObject Then
	  n = n + 1
	End If
  Next varObj
  For Each varObj In ActiveDocument.Shapes
	If varObj.Type = msoEmbeddedOLEObject Then
	  n = n + 1
	End If
  Next varObj
  MsgBox "This document contains " & n & " embedded object(s)", vbInformation
End Sub

Reply | Quote

You could run this macro:

Code:

Sub Test()
  Dim varObj As Variant
  Dim n As Integer
  For Each varObj In ActiveDocument.InlineShapes
	If varObj.Type = wdInlineShapeEmbeddedOLEObject Then
	  n = n + 1
	End If
  Next varObj
  For Each varObj In ActiveDocument.Shapes
	If varObj.Type = msoEmbeddedOLEObject Then
	  n = n + 1
	End If
  Next varObj
  MsgBox "This document contains " & n & " embedded object(s)", vbInformation
End Sub

Thanks, Hans !! this is really helping…Please accept a BIG thanks from my complete team

Reply | Quote