The Images Could Be Stored Externally

In some documents you will find that the user has pasted images directly from the clipboard. I think that this is a poor practice. Much better IMHO to link the image in as a picture.

Sub test1()
    Dim rng As Range
    Set rng = ActiveDocument.Range
    Debug.Print rng.InlineShapes.Count
    Dim lng As Long
    For lng = 1 To rng.InlineShapes.Count
        rng.InlineShapes(lng).Select
    Next lng
End Sub
Sub test2()
    Dim rng As Range
    Set rng = ActiveDocument.Range
    Debug.Print rng.Hyperlinks.Count
    Dim lng As Long
    For lng = 1 To rng.Hyperlinks.Count
        rng.Hyperlinks(lng).Range.Select
    Next lng
End Sub

Search