WORD 97 Makro: Scanntext

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 Scanntext

Dient dazu, den grbsten Schrott aus eingescannten Texten zu beseitigen. 
Bearbeitet gescannten Text immer nur komplett. 
Kann beliebig erweitert werden.

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


Den unten stehenden Makro- Code kopieren und in MS 2000
ber

 "Extras / Makro / Makros: 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 Scanntext()
Rem Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

WordBasic.StartOfDocument
WordBasic.EditReplace Find:="~", Replace:="", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, ReplaceAll:=1, Format:=0, Wrap:=1

WordBasic.EditReplace Find:="_", Replace:="", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="   ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" ,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",,,,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",,,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",,", Replace:=",", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=".", Replace:=". ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=",", Replace:=", ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=";", Replace:="; ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=".", Replace:=". ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=":", Replace:=": ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="' ", Replace:="'", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="''", Replace:="'", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="' '", Replace:="' ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="'", Replace:="' ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" [ ", Replace:="l", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="    ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="   ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:="  ", Replace:=" ", Direction:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem BESEITIGT EINZELN STEHENDE BUCHSTABEN

WordBasic.EditReplace Find:=" ^$ ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" ^$ ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" ^$ ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" ^$ ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1
WordBasic.EditReplace Find:=" ^$ ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

Rem BESEITIGT EINZELN STEHENDE ZEICHEN

Rem WordBasic.EditReplace Find:=" ^? ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1


Rem EINZELNE GRUPPEN / ZUM ERWEITERN

WordBasic.EditReplace Find:="f6r", Replace:="fr", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1




Rem ABSCHLUSS

' WordBasic.ToolsMacro Name:="MehrAbsaetze", Run:=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 97  integrieren:

 "Extras / Anpassen / Befehle / Kategorien: Makros"

Makro auswhlen und durch Ziehen mit der Maus in ein Men einfgen


oder ber "Tastatur" mit einer Tastenkombination belegen, 


Alternativ das Makro direkt ber

 "Extras / Makro / Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs




