The following should create a new document containing the details of each
linked object in the document that is the active document when the code is
run:
Dim alink As Field
Dim Source As Document
Dim Target As Document
Set Source = ActiveDocument
Set Target = Documents.Add
Target.Range.InsertAfter "The following links are present in " & Source.Name
& ":" & vbCr
With Source
For Each alink In .Fields
If alink.Type = wdFieldLink Then
Target.Range.InsertAfter alink.Code.Text & vbCr
End If
Next alink
End With
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
