Office: Konvertierungs Problem

Hallo!
Ich habe folgendes Problem:
Ich habe mehrere Hundert Office Dateien (Word und Excel-Dateien), die mit Office 2000 erzeugt worden sind. Nun muss ich es irgendwie schaffen, dass ich alle diese Dateien auf einem anderen Computer verwenden kann, der allerdings noch die (sehr alte) Version 7.0 von Word und Excel installiert hat.

Gibt es irgend eine Möglichkeit diese Excel und Word Dateien so zu konvertieren dass sie mit Word/Excel 7.0 geöffnet werden können?

Die einzige Möglichkeit die mir einfällt, ist alle diese Dateien mit der Office 2000 Version von Word/Excel zu öffnen und dann unter "Speichern unter" bei "Dateityp" die ältere Version angebe... Das ist jedoch bei mehreren Hundert Dateien ziemlich aufwendig - ich hoffe sehr dass das auch einfacher geht!

lg
matthias

 

Hallo Matthias,

ich wüsste keine einfachere Möglichkeit. Sorry.

Gruß
Michael

 

Falls es jemanden interessiert, hier 2 Makros (jeweils eines für Word und Excel) die das Problem lösen:

Diese Makros sprechen jeweils alle doc-Dateien bzw. xls-Dateien innerhalb eines Ordners (C:\temp\) an, und speichern die Dateien dann mit dem neuen Dateityp Word-95 bzw. Excel-95

für Word:

Code:

Sub AlleDateienAnsprechen()

    Dim Verz As String
    Dim DName As String
    
    Verz = "C:\temp\"
    
    DName = Dir(Verz & "*.doc")
    
    If DName <> "" Then
        DateienBearbeiten Verz, DName
    End If
    
    Do While (DName <> "")
        DName = Dir()
        If DName <> "" Then
            DateienBearbeiten Verz, DName
        End If
    Loop
    
End Sub

Sub DateienBearbeiten(Verz As String, DName As String)

    Documents.Open (Verz & DName)
    With Documents(DName)
        .SaveAs FileName:=DName, FileFormat:=106
        .Close SaveChanges:=wdDoNotSaveChanges
    End With

End Sub

Für Excel:

Code:

Sub AlleDateienAnsprechen()

    Dim Verz As String
    Dim DName As String
    
    Verz = "C:\temp\"
    
    DName = Dir(Verz & "*.xls")
    
    If DName <> "" Then
        DateienBearbeiten Verz, DName
    End If
    
    Do While (DName <> "")
        DName = Dir()
        If DName <> "" Then
            DateienBearbeiten Verz, DName
        End If
    Loop
    
End Sub

Sub DateienBearbeiten(Verz As String, DName As String)

    Workbooks.Open (Verz & DName)
    With Workbooks(DName)
        .SaveAs FileName:=DName, FileFormat:=xlExcel5
        .Close SaveChanges:=wdDoNotSaveChanges
    End With

End Sub

mit freundlichen Grüßen
Matthias