' ############################################################
' #            Firefox/Mozilla-Bookmarks bereinigen          #
' #  die hex-codierten favicons werden gelöscht              #
' #  Lesezeichen-Informationen über                          #
' #        Datum der Aufnahme, Datum der letzen Änderung,    #
' #        Datum des letzten Besuches werden entfernt        #
' #                                                          #
' #                                                          #
' #  Ergebnis nicht mit Word abspeichern!                    #
' #  In Notepad kopieren und dort als UTF-8 abspeichern.     #
' #        Irmgard Schwenteck, 2005  iw @ 4haus.de           #
' ############################################################

Sub clean_bookmarks()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ICON=""*"""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "LAST_MODIFIED=""*"" "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "ADD_DATE=""*"" "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "LAST_VISIT=""*"" "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub