Help with Word macro please

		Microsoft Office Forums > Microsoft Word > Word VBA
Help with Word macro please

FAQ

Thread Tools

Display Modes

01-21-2011, 03:41 PM

macropod

Windows 7 32bit Help with Word macro please

Office 2000

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,526

Hi Phil,

Try:

Code:

Dim alink As Field
For Each alink In ActiveDocument.Fields
  If alink.Type = wdFieldHyperlink Then
    If InStr(alink.Code.Text, "APPLE") > 0 Then alink.Unlink
  End If
Next alink

Note: when posting code, please use code tags

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Print Macro in MS Word	steve207	Word VBA	0	09-10-2010 02:11 AM
word macro username	Swarv	Drawing and Graphics	4	06-16-2010 09:05 AM
Word 2003 macro to Word 2007 to 2010 to...	maruapo	Word VBA	0	06-04-2010 03:43 PM
Word Macro Tutorial	Jax	Word VBA	0	04-27-2010 09:13 PM
Word macro	weezypenguin	Word	0	02-25-2010 01:25 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 04:17 PM.