Hi
Kennt jemand ein Tool, mit welchem man Office Wordfiles der 95er Version in die Version 97 oder 2000 konvertieren kann, ohne das Dokument von Hand öffnen und speichern zu müssen?
cu,
Schrotty
Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge
PeterF Schrotty „Konvertierung Office 95 -> Office 97/2000“
Hi,
ich würde da einfach so vorgehen:
1. Alle Dokumente in ein Verzeichnis kopieren und Zählen
2. Extras - Makro - Aufzeichnen
3. Einmal den Konvertiervorgang vorgeben und das Makro speichern
4. Extras - Makro - Bearbeiten
5. Eine simple do while - Schleife mit der Zahl aufbauen
6. Kaffe trinken gehen
7. Die konvertierten Dokumente wieder zurückkopieren
Gruss Peter
Schrotty Nachtrag zu: „Konvertierung Office 95 -> Office 97/2000“
Hi Peter
Danke für den Tip! Nur noch eine Frage: Wie stelle ich es an, dass er mir ein File nach dem anderen öffnet? Mit der Zeile 'Documents.Open FileName:="test.doc"' öffnet mir das Macro nur das Dokument mit dem angegebenen Namen. Da ich aber in meinem Verzeichnis verschiedennamige Doks habe, funzt das bei allen anderen nicht. Welchen Text muss ich an Stelle von "Test.doc" einfügen damit er mir nicht 50 mal dasselbe Dok öffnet? Danke für deine Hilfe!
Gruss,
Schrotty
PeterF Schrotty „Hi PeterDanke für den Tip! Nur noch eine Frage: Wie stelle ich es an, dass er...“
Hi, scotty,
ich hatte das Problem schon vor einiger Zeit. Leider habe ich den Makro nicht mehr, mit dem ich das gemacht hatte.
Ich kann mich aber erinnern, dass ich auf DOS-Ebene mit DIR*.doc >ALLFILES.txt eine Tabelle erstellt habe, die ich analog zur Do While-Schleife dann abgearbeitet habe.
Vielleicht stellst Du Deine Frage mal in WWW.SPOTLIGHT2.de ein, da sind einige pfiffige Makroprogrammierer aktiv. Ausserdem scheint die Seite gegenüber Nickles aktiver genutzt zu werden.
cu
Peter
PeterF Schrotty „Konvertierung Office 95 -> Office 97/2000“
Hi, Scotty
"vergewaltige" das beigefügte Makro (hat mir einer zugeschickt) Deinen Anforderungen entsprechend, indem Du statt der Änderung der Schriftgröße die Konvertierung durchführst
Folgendes Makro öffnet nacheinander alle Dokumente im angegebenen Verzeichnis, markiert jeweils den gesamten Text, ändert die Schriftart und Schriftgröße, speichert und schließt die Dokumente wieder;
Vorher eine Kopie der Dokumente sichern, für den Fall, dass der Makro abschmiert !!!!!
*******************************
Sub NeueSchriftart()
Dim i
Dim Verzeichnis
Verzeichnis = "C:workarea" ' ( With Application.FileSearch
.FileName = "*.doc"
.LookIn = Verzeichnis
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
'gewünschte Befehle, zum Beispiel:
Selection.WholeStory
With Selection.Font
.Name = "Arial Narrow"
.Size = 10
End With
ActiveDocument.Close SaveChanges:=wdSaveChanges
Next i
End If
End With
End Sub
*******************************
(Obwohl das Makro bei mir läuft wie 'ne Rolle Keks solltest Du Dir natürlich vorsichtshalber eine Sicherungskopie Deines Verzeichnisses anlegen...)
Schrotty PeterF „Hi, Scotty vergewaltige das beigefügte Makro hat mir einer zugeschickt Deinen...“
Hey, vielen Dank. Das Ding läuft wie geschmiert. Nur da ich ziemlich viele Dokumente habe, ist mein Kaffeepegel erheblich gestiegen. Nunja...alle Probleme kann man nicht lösen :-)
Gruss,
Schrotty
