W7delete

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 DeleteDocument

WORD 97 / 2000 - Makro, ermglicht das vollstndige Lschen und Entfernen von der Festplatte von in WORD 97 / 2000 geffneten Dokumenten direkt aus WORD heraus. Alternativ kann die Datei zur spteren Lschung in einem bestimmten Ordner abgelegt werden.  

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


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

 "Extras / Makro / Makros: Erstellen"

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


WORD 2000 entsprechend.


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

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

Sub DeleteDocument()
'Makro erstellt 2002 von Juergen Hinrichs schul16@gmx.net
' DeleteDocument Makro

MsgBox "Lsche " + ActiveDocument.fullname + " ?"

Dim UrsprDatei$
UrsprDatei$ = ActiveDocument.fullname()

Dim DateiName$
DateiName$ = ActiveDocument.Name()

'GoTo ABFALL

Rem Vollstndige Lschung

ACHTUNG:
       Y = WordBasic.MsgBox("WARNUNG! Diese Datei wird im bernchsten Schritt vollstndig von der Festplatte gelscht. Sie wird NICHT im Papierkorb abgelegt. Dennoch Weitermachen?", "Frage Weiter1", 36)
    If Y <> -1 Then GoTo ABFALL
    If n <> -1 Then GoTo Weiter

Weiter:

Rem Die nchste Meldung kann abgeschaltet werden:
Rem Das Apostroph vor dem Wort in der nchsten Zeile entfernen
'GoTo NAGUT
    
       Y = WordBasic.MsgBox("LETZTE WARNUNG! Diese Datei wird jetzt unrettbar von der Festplatte gelscht! Immer noch Weitermachen?", "Frage Weiter2", 36)
    If Y <> -1 Then GoTo Ende
    If n <> -1 Then GoTo NAGUT

NAGUT:
       Y = WordBasic.MsgBox("ABSOLUT ALLERLETZTER AUSWEG. Weitermachen?", "Frage Weiter3", 36)
    If Y <> -1 Then GoTo Ende
    If n <> -1 Then GoTo KILL


ABFALL:

Rem Diese Alternative kann abgeschaltet werden:
Rem Das Apostroph vor dem Wort in der nchsten Zeile entfernen
'GoTo Ende


Rem Die nchste Meldung kann abgeschaltet werden:
Rem Das Apostroph vor dem Wort in der nchsten Zeile entfernen
'GoTo OK
    
Rem DEN PFAD ZUM GEWNSCHTEN ABLAGEORDNER FR ZU LSCHENDE DATEIEN
Rem HIER ZUM ERSTEN EINTRAGEN 1

       Y = WordBasic.MsgBox("Na gut: Diese Datei kann alternativ in das Verzeichnis 'C:\ABFALL' verschoben und dort spter manuell gelscht werden. Weitermachen?", "Frage Weiter4", 36)
    If Y <> -1 Then GoTo Ende
    If n <> -1 Then GoTo Wenn
    
Wenn:

Rem Die nchste Meldung kann abgeschaltet werden:
Rem Das Apostroph vor dem Wort in der nchsten Zeile entfernen
'GoTo OK
    
       Y = WordBasic.MsgBox("Wenn dieses Verzeichnis nicht existiert, mu es vorher erstellt werden. Wenn sich die Datei bereits dort befindet, wird sie hiermit vollstndig von der Festplatte gelscht. Weitermachen?", "Frage Weiter5", 36)
    If Y <> -1 Then GoTo Ende
    If n <> -1 Then GoTo OK


OK:

    
Rem DEN PFAD ZUM GEWNSCHTEN ABLAGEORDNER FR ZU LSCHENDE DATEIEN
Rem HIER ZUM ZWEITEN EINTRAGEN 2 - MIT \ ABSCHLUSS

ActiveDocument.SaveAs "C:\ABFALL\" + DateiName$
Rem Dialog ffnen nicht mglich in Word  97

MsgBox "Datei gesichert als " + ActiveDocument.fullname

KILL:
ActiveDocument.Save
ActiveWindow.Close

Rem DIESE SCHLEIFE 'ON ERROR-NIX' WURDE IN WORD 2000 NOCH NICHT GEPRFT
Rem BEI VERSAGEN EIN APOSTROPH ' VOR DIE NCHSTE ZEILE STELLEN
On Error GoTo Nix

KILL UrsprDatei$
GoTo Ende

Nix:
MsgBox "Fehler beim Dateiaufruf"
MsgBox "Datei war mglicherweise noch in Gebrauch und wurde nicht gelscht"

Ende:
End Sub

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


Neue Makros in MS WORD 97 integrieren:


 "Extras / Anpassen / Befehle / Kategorien: Makros"

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

beispielsweise in "Datei" als 'Dokument &Lschen'

oder ber "Tastatur" mit einer Tastenkombination belegen.


Alternativ das Makro direkt ber

 "Extras / Makro / Ausfhren" 	

auswhlen und ausfhren lassen.

WORD 2000 entsprechend.


Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

 2002 Jrgen Hinrichs
