Thread: Macro from Macro Recorder won't work

I have been attempting to write a macro that will remove the hyperlinks in a document and convert the font to the same format as the rest of the document. I've accomplished the first part with this macro:

Sub KillHyperlinksinThisDocument()
Dim i As Long
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Delete
Next i
End Sub

For the second part I recorded my steps using the macro recorder. What I did was do a Replace. I selected ALL, opened the Replace dialogue, searched in the FONT section, for Blue Verdana underlined font, and replaced that with FONT Black TimesNewRoman, no underline. My steps worked perfectly, and the macro recorder recorded my steps, but what it recorded didn't do anything when I tried using the macro (code is below):

Sub Hypersnew()
'
' Hypersnew Macro
' Macro recorded 1/18/2011 by John.
'
    Selection.WholeStory
    Selection.Fields.Unlink
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

The macro recorder doesn't appear to have captured all the Font detail that's the heart of the replacement. I'd appreciate any help I can get in getting this working.

Thanks,
John

Something like this

Sub Remove_All_Hyperlinks()

'Removes hyperlinks from the active worksheet
'Does not delete the hyperlink text, only the link to the site
    Do Until ActiveSheet.Hyperlinks.Count = 0
        ActiveSheet.Hyperlinks(1).Delete
    Loop

End Sub

To go through the whole workbook

Sub Remove_All_Hyperlinks()
Dim ws as Worksheet
'Removes hyperlinks from the workbook
For Each ws in Thisworkbook.Worksheets
'Does not delete the hyperlink text, only the link to the site
    Do Until ws.Hyperlinks.Count = 0
        ws.Hyperlinks(1).Delete
    Loop
Next ws
End Sub

Hello jomille

If you examine the styles in your document is there one that relates to the deleted links? If there is, then try setting up a macro to delete all instances of that style.

Perhaps you could start by manually working in Word to remove the style. Then, when you have got as far as understanding styles and applying and removing them you could record a macro to perform the removal.

Search for ‘word styles and formatting’ on the web and you will find out plenty abut them.

Hello jomili

They are what Word refers to as 'in-line shapes'. Please test this macro as a way of deleting them:

Sub DeleteInlineShapes()
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim rngChar As Range

For Each rngChar In ActiveDocument.Characters
   rngChar.Select
   If Selection.Type = wdSelectionInlineShape Then Selection.Delete
Next rngChar

End Sub