Hallo alle zusammen,
ich habe folgendes Problem: Ich habe ein Verzeichniss mit einer Menge Unterverzeichnissen. Aus den darin befindlichen Worddokumenten möchte ich die oberen Zeilen auslesen und in ein neues Dokument schreiben.
Bis jetzt schaffe ich es nur, die Daten aus dem ersten Verzeichniss zu lesen.
Wie gebe ich an, das auch die dokumente aus allen Unterverzeichnissen ausgelesen werden?
Hier mal mein Quellcode:
Sub aufzu1()
pfad = "d:\ZD"
ChDir (pfad)
ordner = Dir("*.doc")
i = 1
Do While ordner <> ""
Documents.Open FileName:=ordner
ordner = Dir()
Selection.MoveDown Unit:=wdLine, Count:=6
Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend
Selection.Copy
ActiveWindow.Close
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeText Text:= _
"____________________________________________________________"
Selection.TypeParagraph
Selection.TypeParagraph
Loop
End Sub
vielen Dank schon mal
Micha
ich habe folgendes Problem: Ich habe ein Verzeichniss mit einer Menge Unterverzeichnissen. Aus den darin befindlichen Worddokumenten möchte ich die oberen Zeilen auslesen und in ein neues Dokument schreiben.
Bis jetzt schaffe ich es nur, die Daten aus dem ersten Verzeichniss zu lesen.
Wie gebe ich an, das auch die dokumente aus allen Unterverzeichnissen ausgelesen werden?
Hier mal mein Quellcode:
Sub aufzu1()
pfad = "d:\ZD"
ChDir (pfad)
ordner = Dir("*.doc")
i = 1
Do While ordner <> ""
Documents.Open FileName:=ordner
ordner = Dir()
Selection.MoveDown Unit:=wdLine, Count:=6
Selection.MoveDown Unit:=wdLine, Count:=7, Extend:=wdExtend
Selection.Copy
ActiveWindow.Close
Selection.PasteAndFormat (wdPasteDefault)
Selection.TypeText Text:= _
"____________________________________________________________"
Selection.TypeParagraph
Selection.TypeParagraph
Loop
End Sub
vielen Dank schon mal
Micha
