Try the following on a _copy_ of your document. AFAIK it unlinks all fields
in a document, regardless of whether they are in the body of the document or
elsewhere. Please report back on your results.

Sub FieldsUnlinkAllStory()
' All Story Field Unlinker
' Written by Charles Kyle Kenyon
' repaired with help from Jezebel 10 December 2004
Dim oStory As Range
On Error Resume Next
For Each oStory In ActiveDocument.StoryRanges
Do
oStory.Fields.Unlink
Set oStory = oStory.Next
Loop Until oStory Is Nothing
Next
End Sub
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"?yvind Blom" wrote in message
om...
I have a word document with 150 pages and 250 images. All the images
are linked from a sub-directory to the document and not saved within
the file. I want to split this file into serveral smaller documents
that are
to be published in Sharepoint 2003 with each image saved within the
file, nor extracted or outside.

The images are graphics formatted with text wrap (float over text)?
The only way to edit or remove the links is to (remove the "float")
under image properties. It is therefore impossible to select the
entire document CTRL + A and remove all links.

My problem arises when trying to automate this process. During macro
recording the item "remove float" is blanked out !

Am I doomed spending weeks on word, selecting 250 images manually ??
Or does anyone have a nice macro to share.

Thanks
Oyvind