Konvertierungs Problem :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Konvertierungs Problem

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Sonstiges

Autor

Nachricht

mstangl
Newbie
Newbie

Anmeldedatum: 18.12.2005
Beiträge: 5

Verfasst am: 18.12.2005, 23:15

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

Michael
Admin von Office-Hilfe.com

Anmeldedatum: 20.12.2003
Beiträge: 1479
Wohnort: Miltenberg

Verfasst am: 19.12.2005, 19:06

Hallo Matthias,

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

Gruß
Michael

_________________

--> Bitte keine Probleme per PN. Dafür ist das Forum da!!!
--> Vor Änderungen im System und der Registry --> Backup!! Es wird keine Haftung für Schäden übernommen!

mstangl
Newbie
Newbie

Anmeldedatum: 18.12.2005
Beiträge: 5

Verfasst am: 21.12.2005, 17:44

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Sonstiges

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Problem mit DIV/0 und Durchschnittsbe...	friggle	Microsoft Excel Hilfe	4	16.07.2008, 11:28
	Excel 2003 Problem	rOfLkaRtOffL	Microsoft Excel Hilfe	3	10.07.2008, 11:00
	Auswertungs Problem	Basti	Microsoft Excel Hilfe	5	08.07.2008, 11:26
	Seriendruck, welches "Feld"...	marytü	Microsoft Word Hilfe	1	07.07.2008, 13:21
	Doch noch Problem	ninjaracer	Microsoft Excel Hilfe	3	07.07.2008, 09:03

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de