Hyperlinks verwijderen uit Word-document. Waar plaats ik de macro?

Status
Niet open voor verdere reacties.

gGerretje

Gebruiker
Lid geworden
12 mrt 2008
Berichten
439
Beste helpers,

Ik heb een macro gemaakt/opgezocht voor het verwijderen van alle hyperlinks uit een Word-document.
Code:
Sub HyperlinksVerwijderen()
    melding = MsgBox("Aantal hyperlinks: " & ThisDocument.Hyperlinks.Count, vbOKOnly, "Hyperlinks")
    With ThisDocument
        While .Hyperlinks.Count > 0
        .Hyperlinks(1).Delete
        Wend
    End With
'    Ook de AutoCorrectie tijdens typen uitzetten ("Internet- en netwerkpaden vervangen door hyperlinks")
    Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
'    Ook de AutoOpmaak uitzetten ("Internet- en netwerkpaden vervangen door hyperlinks")
    Application.Options.AutoFormatReplaceHyperlinks = False
End Sub
Deze doet precies wat hij moet doen als ik hem in een module van het betreffende document zet.
Maar als ik hem in een module van Normal zet werkt hij niet.
Ik heb al geprobeerd met Public ervoor te zetten, maar dat werkt ook niet.

Ik moet hem toch niet in élk document zetten?
Het zal wel heel simpel zijn, maar wat zie ik over het hoofd?
(ik weet dat het ook met CTRL+SHIFT+F9 kan maar ik gebruik een soortgelijke macro voor alle open Word-documenten in één keer)

Alvast bedankt voor jullie hulp.

Groeten
Ger
 
Laatst bewerkt:
Wijzig:
With ThisDocument

Eens in:
With ActiveDocument
 
Hallo Ed,

Zo moet het.
Het is zo logisch dat ik vind dat ik er zelf op had moeten komen.
Maar ja, niet vaak genoeg ermee bezig zijn en dan neem je code over en ...

Bedankt voor je hulp.
Ik kan weer verder.

Groeten,
Ger
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan