Makro til at formaterer en word tekst til HTML

Sub FedKursivUnderst()
    Selection.Font.Bold = wdToggle
    Selection.Font.Italic = wdToggle
    If Selection.Font.Underline = wdUnderlineNone Then
        Selection.Font.Underline = wdUnderlineSingle
    Else
        Selection.Font.Underline = wdUnderlineNone
    End If
End Sub

Du kan evt. selv indspille den ved:
1. at skrive lidt tekst.
2. Marker et par bogstaver eller ord
3. Vælge Funktioner, Makro, Indspil Ny makro
4. Klik på knappen for Fed, for kursiv og for Understreg
5. Klik på knappen "Stop indspilling" på værktøjslinien der dukkede op da du valgte at indspille makroen.

Hej mlhave

Jeg har vist ikke forklaret mig ordentligt.
Makroen skal formaterer fed understregning og kursiv  til HTML-koder - altså <b> </b> - <u> </u> - <i> </i>

Kan du hjælpe med det - på forhånd tak

Hvis du vælger Gem som HTML, _burde_ Word lave en HTML-fil med de ønskede koder, når du først har formatteret på alm. word-vis.
Hvis man begynder at skrive < > -tags inde i et Word-dokument, som ikke er en txt-fil, så ender man med noget virkelig snavs.
Du må nok bestemme, om du vil være i Word- eller HTML-miljø.