VBA Word-Makro Dok-Eigenschaften Unterverzeichnisse

[mgic]

hallo zusammen,
ich möchte einige Ami-Pro Dokumente in Word 97 umwandeln. händisch ist mir zu mühsam. deshalb habe ich folgendes makro geschrieben:


Sub Durchführen()
Dim pfad1 As String, Name1 As String

pfad1 = "I:\3KRAUSE\1_ALLG\00BIS20"
Name1 = Dir(pfad1 & "\*.sam") ' Ersten Eintrag abrufen.
Do While Name1 <> "" ' Schleife beginnen.
Documents.Open FileName:=pfad1 & "\" & Name1, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActiveDocument.BuiltInDocumentProperties("Author") = "Krause"
ActiveDocument.SaveAs FileName:=pfad1 & "\" & Left(Name1, Len(Name1) - 4) & ".doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close

Name1 = Dir ' Nächsten Eintrag abrufen.
Loop

End Sub


dazu hätte ich noch 2 fragen:
1. wie kann ich vermeiden, dass beim speichern jedesmal die dokument-eigenschaften aufgerufen werden und ich mit return bestätigen muß.

2. wie muß ich den pfad eingeben, damit alle unterverzeichnisse von I:\3KRAUSE durchsucht werden.

vielen dank für eure hilfe!!!

[Seidl]

Ich habe mir irgendwann mal in einer Notes-Datenbank eine Scriptbibliothek erstellt um die Dateien und Pfade unter einem Startverzeichnis auslesen zu können. Normalerweise müsste das Zeug auch unter VB laufen.

Vielleicht gibts auch einen weniger umständlichen Weg und vielleicht sind auch die Klassen nicht astrein programmiert aber es hat auf jeden Fall das gemacht was davon erwartet wurde.

Was dein Problem beim Speichern angeht kann ich dir leider auch nicht helfen.

so long
Seidl

[mgic]

vielen dank, werde es morgen mal probieren.