WORD 6 Makro: Alles in ein Dokument 

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 W6ALLIN1

Dieses Makro liest bis zu 50 in Word 6 offene Dokumente aus und fgt sie einzeln in ein neues Dokument mit dem Namen `Zusammenfassung ein. Anschlieend wird ein grobes Inhaltsverzeichnis erstellt. 

Die offenen Dokumente sollten zur Sicherheit vorher einmal gespeichert worden sein und sollten keine eigenen Word-Inhaltsverzeichnisse enthalten. 

Das Makro dient hauptschlich dazu, auf der Festplatte herumliegende Textdateien mit Informationsschnipseln oder im Laufe des Tages erstellte WORD-Dokumente zusammenzufassen.


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


Den unten stehenden Makro- Code kopieren und in MS WORD 6
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 MAIN

Dim Datei$
Dim FenName$
Dim b$

Datei$ = DateiName$()
REM b$ = DateiNameInfo$(Datei$, 4) + ".DOC"

DateiNeuStandard
EinfgenAbsatz
Einfgen "Zusammenfassung"
EinfgenAbsatz

DateiSpeichern
DokumentSchlieen
DateiListe 1

AnsichtNormal
BeginnDokument

REM SUCHEN ZUSAMMENFASSUNG

BearbeitenSuchen .Suchen = "Zusammenfassung", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .Format = 0, .Textflu = 0

EndeZeile
EinfgenAbsatz
EinfgenAbsatz
EinfgenAbsatz

REM DOKUMENTE EINFGEN

	For n = 1 To 50

On Error Goto Fertig

EinfgenAbsatz
EinfgenAbsatz
EinfgenAbsatz

FenName$ = FensterName$(2)

Einfgen "Dokument" + Str$(n) + FenName$
EinfgenAbsatz
ZeileOben 1
EndeZeile 1
FormatFormatvorlage .Name = "berschrift 2", .Zuweisen
EndeZeile
EinfgenAbsatz
FormatFormatvorlage .Name = "Standard", .Zuweisen
EinfgenAbsatz
EinfgenAbsatz

REM EIGENES DOKUMENT VERMEIDEN

Datei$ = DateiName$()
b$ = DateiNameInfo$(Datei$, 4) + ".DOC"

REM MsgBox "Datei Liste 1 - Ziel:  " + b$

FenName$ = FensterName$(2)

REM MsgBox "Fenster 2 - Quelle:  " + FenName$

		If InStr(FenName$, b$) Then Goto leider Else Goto fein

leider:
REM MsgBox "Stimmen leider berein, gehe auf Fenster 1 zum markieren"
FensterListe 1
Goto weiter

fein:
REM MsgBox "Alles OK, extrahiere nchstes Fenster 2"
FensterListe 2

weiter:

		BearbeitenAllesMarkieren
		BearbeitenKopieren
		DokumentSchlieen 2
		DateiListe 1
		BearbeitenEinfgen
		DateiSpeichern

REM MIT ZWISCHENSPEICHERN, BEI GERINGEM ARBEITSSPEICHER, KEHRT DIE REIHENFOLGE UM

REM DokumentSchlieen 1
REM DateiListe 1

EinfgenAbsatz
EinfgenAbsatz
EinfgenAbsatz
Einfgen "++++++++++++++++++++++++++++++++++++++++++++++"
EinfgenAbsatz
EinfgenAbsatz
EinfgenAbsatz

	Next

Fertig:

REM LETZTE BERSCHRIFT LSCHEN

REM MsgBox "LETZTE BERSCHRIFT LSCHEN"

EndeDokument

REM MsgBox "Stop"

BearbeitenSuchen .Suchen = "^$", .Richtung = 1, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .Format = 0, .Textflu = 0

REM MsgBox "Stop"

BeginnZeile
BearbeitenSuchenFV .Formatvorlage = "berschrift 2"
BeginnZeile
BearbeitenSuchen .Suchen = "Dokument ^#", .Richtung = 0, .GroKleinschreibung = 0, .GanzesWort = 0, .Mustervergleich = 0, .Reserviert23 = 0, .Format = 0, .Textflu = 0
BeginnZeile
EndeZeile 1
BearbeitenLschen

REM ENDE LSCHEN

MsgBox "Erstelle Inhaltsverzeichnis"

BeginnDokument

EinfgenAbsatz
EinfgenAbsatz

EinfgenInhaltsverzeichnis .Gliederung = 1, .Von = 1, .Bis = 4, .SeitenzahlenRechtsbndig = 1, .Ersetzen = 0

MsgBox "Fertig"

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 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 / Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs




