Help with Word macro please

[Philcraig69]

Hi,

I use this simple macro:

Dim alink As Field
For Each alink In ActiveDocument.Fields
If alink.Type = wdFieldHyperlink Then
alink.Unlink
End If
Next alink

to remove all hyperlinks from a document. Now I need to remove only the hyperlinks with the word APPLE in the url, and leave the others alone -- how would I modify the macro??
Thanks for any help!