alle word dukumente in einem bestimmten Unterverzeichnis einlesen

12/08/2008 - 07:45 von Tim Stammberg | Report spam
Hallo Community,
gibt es eine Möglichkeit alle Worddokumente, die sich in einem bestimmten
unterverzeichnis befinden und alphabetischgeordnet sind auf einen Schlag per
Insert->File einzulesen? Bzw. gibt es dazu irgendwo ein Makro o.à.
Da es sich im o.g. Fall um fasst 120 Dokumente handelt ist die Einzelauswahl
nicht spaßig und frisst viel Zeit
MfG Tim
Anmerkung: es handelt sich um Word 2003 SP3 (engl)
 

Lesen sie die antworten

#1 Helmut Weber
12/08/2008 - 10:24 | Warnen spam
Hallo Tim,

siehe Hilfe zur Dir-Funktion, oder
hier mal mit Range statt Selection:

Sub Test776()
Dim sName As String
Dim rTemp As Range
sName = Dir("c:\test\word\*.doc")
While sName <> ""
Set rTemp = ActiveDocument.Range
rTemp.Collapse direction:=wdCollapseEnd
rTemp.InsertFile FileName:=sName
rTemp.InsertAfter vbCr
sName = Dir
Wend
End Sub

Gruss
Helmut Weber, MVP WordVBA
Word 2002, Windows XP

Ähnliche fragen