WORD 6.0 Makro: Stripped

Autor:
Jrgen Hinrichs
schul16@gmx.net
http://mitglied.lycos.de/erleuchtet/index-g.htm
Infos und Tips fr Word, Windows, Access, Excel, Internet

Dieses Makro unterliegt dem Urheberrecht und bleibt Eigentum des Autors.
Es ist Freeware und darf unter Nennung des Autors und der Herkunft
unentgeltlich weitergegeben werden.

Es darf weder verkauft noch verliehen noch anderweitig kommerziell
vertrieben werden, auch nicht in genderter oder erweiterter Form.

Jedwede Haftung wird ausgeschlossen.
Weitere Makros auf Anfrage.


###############

Makro Stripped

Demaskiert HTML - Umlaute. 
Schreibt etliche maskierte Umlaute und Sonderzeichen in HTML - Texten in Klartext um. 
Dient zum Bearbeiten von "gestrippten" HTML - Dokumenten.
Kann beliebig erweitert werden.

###############


Den unten stehenden Makro- Code kopieren und in MS WORD 6.0
ber

 "Extras / Makro / [Makroname]: Erstellen"

unter einem ausgewhlten Namen vollstndig in das sich ffnende Editor- Fenster einfgen




CODE AB HIER KOPIEREN (inklusive der Anfangs- und Endzeilen mit "Sub") 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub MAIN
REM Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

BeginnDokument

BearbeitenErsetzen .Suchen = "UML;", .Ersetzen = "uml;", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&uuml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&Uuml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&auml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&Auml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&ouml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&Ouml;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&eacute;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&szlig;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#223;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&copy;", .Ersetzen = "^0169", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#169;", .Ersetzen = "^0169", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&amp;", .Ersetzen = "^038", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&lt;", .Ersetzen = "^060", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&gt;", .Ersetzen = "^062", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&sect;", .Ersetzen = "", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&reg;", .Ersetzen = "(r)", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&quot;", .Ersetzen = Chr$(34), .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#0160;", .Ersetzen = " ", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#132;", .Ersetzen = "^0132", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#147;", .Ersetzen = "^0147", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#124;", .Ersetzen = "|", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#123;", .Ersetzen = "{", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#125;", .Ersetzen = "}", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#91;", .Ersetzen = "[", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#93;", .Ersetzen = "]", .Richtung = 0, .GroKleinschreibung = 1, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#42;", .Ersetzen = "*", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 1, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#133;", .Ersetzen = "^0133", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 1, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#150;", .Ersetzen = "^0150", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 1, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1

BearbeitenErsetzen .Suchen = "&#151;", .Ersetzen = "^0151", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 1, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1

BearbeitenErsetzen .Suchen = "&nbsp;", .Ersetzen = "^g", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 0, .Textflu = 1


BearbeitenErsetzen .Suchen = "<P>", .Ersetzen = "^a^a", .Richtung = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1

BearbeitenErsetzen .Suchen = "<BR>", .Ersetzen = "^z", .Richtung = 0, .Reserviert23 = 0, .AllesErsetzen, .Format = 1, .Textflu = 1


End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Einige Makros sind so umfangreich, da sie bei greren Texten und geringem Arbeitsspeicher die Fhigkeit von MS WORD berschreiten sich zurckliegende Schritte zu merken. Das beeintrchtigt jedoch nicht die Funktion des Makros. In diesem Fall die Meldung: "Unzureichender Arbeitspeicher. Sie knnen diesen Vorgang nicht rckgngig machen. Fortfahren?" mit J (Ja), Eingabe- oder der Leertaste besttigen. Um dieses zu umgehen knnen grere Texte abschnittsweise in einem separaten Fenster bearbeiten werden.



Neue Makros in MS WORD 6.0 integrieren:

 "Extras / Anpassen / Mens / Kategorien: Makros"

Makro auswhlen und in ein Men einfgen


oder ber "Tastatur" mit einer Tastenkombination belegen. 


Alternativ das Makro direkt ber

 "Extras / Makro / [Makroname]: Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs

