Wordmakro unter Word97 und 2000

[alexstarke 10]

Folgendes Macro läuft 100%ig unter Word2000 und XP aber NICHT unter Word97! Was mache ich falsch!?!? ich finde keine Dokumentation zu Word97 makro's! Folgendes ist der Code! Vielleicht könnt ihr mir ja helfen!!

 

Sub Sicherung()
'
' Sicherung Makro
' Sicherung von MS-Word-Dokumenten (c)by A.Starke
'
On Error Resume Next

Dim msg_answer
Dim msg_answer2
Dim fs, a, wri
Dim sicher_dat As String
Dim file_name As String
Dim sicher_path As String
Dim file_path As String
Dim floppy_path As String
Dim err_string As String
Dim err_datei As String
err_file = "C:\makro_sicherung_log.txt"

floppy_path = "A:\"
sicher_path = "C:\Sicherung"

ActiveDocument.Save
    file_path = ActiveDocument.Path
    file_name = ActiveDocument.Name
    sicher_dat = file_name
    sicher_dat = Replace(sicher_dat, ".doc", "")
    sicher_dat = sicher_dat + " " + Format$(Date, "dd.mm.yyyy") + " " + Format$(Time, "hh.mm") + ".doc"

      err_string = "[" & Format$(Date, "dd.mm.yyyy") & " um " & Format$(Time, "hh:mm:ss") & "] = " & "Sicherung von " & file_name & " gestartet....."
            Open err_file For Append As #40
            Write #40, err_string
            Close #40

    ChangeFileOpenDirectory sicher_path
    ActiveDocument.SaveAs FileName:=sicher_dat, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    If Err.Number = 0 Then
    msg_answer = MsgBox("Sicherung in " + sicher_path + " erfolgreich! Soll auch eine Sicherung auf Diskette erfolgen?", vbYesNo, "Word-Sicherung (c)by A.Starke")
    Else
      err_string = "[" & Format$(Date, "dd.mm.yyyy") & " um " & Format$(Time, "hh:mm:ss") & "] = " & Err.Number & ":" & Err.Description & " Beim Schreiben in " & sicher_path
            Open err_file For Append As #40
            Write #40, err_string
            Close #40
      msg_answer = MsgBox("Sicherung in " + sicher_path + " NICHT erfolgreich! Soll eine Sicherung auf Diskette erfolgen?" + vbCrLf + vbCrLf + "Wenn diese Fehlermeldung erscheint bitte Alex benachrichtigen!", vbYesNo + vbCritical, "Word-Sicherung (c)by A.Starke")

    End If

If msg_answer = vbYes Then
    msg_answer2 = MsgBox("Bitte eine Diskette einlegen!", vbOKCancel, "Word-Sicherung (c)by A.Starke")
    If msg_answer2 = vbOK Then
      ChangeFileOpenDirectory floppy_path
      ActiveDocument.SaveAs FileName:=sicher_dat, FileFormat:= _
          wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
          True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
          False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
          SaveAsAOCELetter:=False
        If Err.Number = 0 Then
        Else
            err_string = "[" & Format$(Date, "dd.mm.yyyy") & " um " & Format$(Time, "hh:mm:ss") & "] = " & Err.Number & ":" & Err.Description & " Beim Schreiben in " & floppy_path
            Open err_file For Append As #40
            Write #40, err_string
            Close #40
            msg_answer = MsgBox("Sicherung auf Diskette NICHT erfolgreich!" + vbCrLf + vbCrLf + "Diskette entweder voll oder nicht eingelegt!" + vbCrLf + vbCrLf + "Wenn diese Fehlermeldung trotz neuer und eingelegter Diskette erscheint bitte Alex benachrichtigen!", vbOKOnly + vbCritical, "Word-Sicherung (c)by A.Starke")
        End If
    End If
    If msg_answer2 = vbCancel Then msg_answer = MsgBox("Diskettensicherung abgebrochen! Ohne Diskette nicht möglich!", vbCritical + vbOKOnly, "Word-Sicherung (c)by A.Starke")
End If

 ChangeFileOpenDirectory file_path
 ActiveDocument.SaveAs FileName:=file_name, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

If Err.Number = 0 Then
    msg_answer = MsgBox("Sicherung Erfolgreich durchgeführt!", vbOKOnly, "Word-Sicherung (c)by A.Starke")
      err_string = "[" & Format$(Date, "dd.mm.yyyy") & " um " & Format$(Time, "hh:mm:ss") & "] = " & "Sicherung von " & file_name & " Erfolgreich beendet!!" & vbCrLf
            Open err_file For Append As #40
            Write #40, err_string
            Close #40
Else
   err_string = "[" & Format$(Date, "dd.mm.yyyy") & " um " & Format$(Time, "hh:mm:ss") & "] = " & "Sicherung teilweise Fehlgeschlagen!" & vbCrLf
            Open err_file For Append As #40
            Write #40, err_string
            Close #40
    msg_answer = MsgBox("Sicherung NICHT komplett erfolgreich!", vbOKOnly + vbCritical, "Word-Sicherung (c)by A.Starke")
        End If
End Sub
[/Code]

[edv-olaf 10]

Hallo alex,

 

ich habe zwar null Ahnung von VB/VBA, aber ich weiss, dass Makros von Office 95 nicht bei 97 laufen, entsprechend ist es sehr unwahrscheinlich, dass von Office 2k/XP auch noch Abwärtskompatibilität besteht.

 

Außerdem wirst du vermutlich keine Antwort bekommen, weil deine Anfrage unpräzise und der Quellcode viel zu lang und ohne Beschreibung ist. Es wird sich keiner die Mühe machen, nach einem Fehler zu suchen, den er nicht kennt.

 

Eine genauere Angabe der Zeile, in der der Fehler auftritt, könnte die Spezies möglicherweise schon zu einer Antwort treiben.

 

Olaf

[alexstarke 10]

Wenn der Fehler nur in einer Zeile auftreten würde....

 

Ich vermute, dass die VBA-Version von Word97 keine Strings kennt! Könnte das sein?!?

 

Wie gesagt! ich finde keine doku! nicht bei microsoft noch sonst irgendwo!

[grutsch 10]

hallo alex,

word 97 kennt schon strings, das ist es sicher nicht,

@olaf: ich habs durchgelesen ;)

aber einige Eigenschften haben sich schon geändert.

vor allem hat sich auch der WSH (Windows Scripting host) geändert, dazu gibt es updates.

 

ansonsten musst du dein script doch unter word97 debuggen, da bekommst du deine Fehler genau dokumentiert.

 

grutschmööhh

[alexstarke 10]

wo gibts diese updates? und was muß ich alles updaten!!

 

Mein fehler genau dokumentiert?!? *lach* schön wärs! der findet überall nen fehler....

alle 2 Zeilen! und auch keine Fehlermeldungen die einem helfen würden woran es liegt! schon beim deklarieren der Variablen!