title image


Smiley Re: Zwischensichern: Mechanismus gegen versehentliches Schließen ohne Speic
Hi,



ich habs für mich so gelöst:

'Code im Klassenmodul ThisDocument der Normal.dot

Private Sub Document_Open()

Document_New

End Sub

'

Private Sub Document_New()

Call InitializeAutoSave

End Sub

'

'Code in einem beliebigen Modul

'der Normal.dot

'

Sub InitializeAutoSave()

'WordBasic.MsgBox String(5, 32) & "Autosave gestartet!", -8

On Error Resume Next

'eingestellt: 3 Minuten

Application.OnTime When:=Now + TimeValue("00:03:00"), Name:="AutoSaveMacro"

End Sub

'

Sub AutoSaveMacro()

Dim sStatik, sWords, sWcount, sSeite

If Documents.Count = 0 Then Exit Sub

On Error Resume Next

ActiveDocument.Repaginate

'

sStatik = ActiveDocument.ComputeStatistics(wdStatisticPages)

If sStatik = 1 Then

sSeite = " Seite"

ElseIf sStatik > 1 Then

sSeite = " Seiten"

End If

'

sWords = ActiveDocument.ComputeStatistics(wdStatisticWords)

If sWords = 1 Then

sWcount = "Wort"

ElseIf sWords > 1 Then

sWcount = "Wörter"

End If

'

If Dir(ActiveDocument.FullName) = "" Then

With Dialogs(wdDialogFileSaveAs)

If .Show = 0 Then

Call InitializeAutoSave

Exit Sub

End If

End With

End If

'

If Dir(ActiveDocument.FullName) "" Then

On Error Resume Next

ActiveDocument.Save

WordBasic.MsgBox ActiveDocument.Name & " enthält " _

& sWords & Chr(32) & sWcount & " und " & sStatik & Chr(32) & sSeite _

& Chr(32) & ": Zuletzt gespeichert um " & Format(Time, "HH.MM") & " Uhr", -8

Call InitializeAutoSave

End If

End Sub      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: