This macro *may* do the job. It depends on how the diagrams were
inserted in the document. If you press Alt+F9 and you see either an
EMBED field or a LINK field at the location of each diagram, then
you're good to go.

Sub DeleteVisioObjects()
   Dim fld As Field
   For Each fld In ActiveDocument.Fields
       If InStr(LCase(fld.Code), "visio.drawing") > 0 Then
           fld.Delete
       End If
   Next
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

MSPLearner was telling us:
MSPLearner nous racontait que :

Try this to strip and save as a new document:

'_______________________________________
Dim fldVisio As Field
Dim strPathDoc As String

strPathDoc = ActiveDocument.FullName
strPathDoc = Left(strPathDoc, Len(strPathDoc) - 4) & "_No-Visio.doc"

For Each fldVisio In ActiveDocument.Fields
   If InStr(1, fldVisio.Code, "EMBED Visio") > 0 Then
       fldVisio.Delete
   End If
Next

ActiveDocument.SaveAs strPathDoc
'_______________________________________

As Jay wrote, you may want to do SHIFT-F9 on a Visio drawing to see the code
behind it to make sure that the code will pick it up.