Thomas
Her er én måde at gøre det på.
1. Indsæt et modul i Hoveddok.doc (gå til VBA editoren med <Alt><F11>,
klik på Hoveddok.doc i projektvinduet (øverste til venstre på
skærmen)
og vælg Insert > Module
2. Kopier og indsæt nedenstående kode:
3. Gem og luk Hoveddok.doc
Næste gang, du åbner det, vil dokumenterne i "C:\Dok\Underdok" blive
indlæst sorteret.
WordBasic.sortarray FileNames
er en sorteringsfunktion fra den gamle WordBasic, der sorterer et array. Af
uforklarlige årsager er den ikke med i VBA, men den kan altså stadig bruges,
når den bruges med objektet WordBasic.
Med venlig hilsen
LeoH
PS
Host, host....host.... du må hellere rette dig op igen
Sub AutoOpen()
'leo.heuser@get2net.dk, november 2000
Dim DirPath As String
Dim FileNames() As String
Dim Counter As Long
DirPath = "C:\Dok\Underdok"
With Application.FileSearch
.FileName = "*.doc"
.LookIn = DirPath
.Execute
ReDim FileNames(1 To .FoundFiles.Count)
For Counter = 1 To .FoundFiles.Count
FileNames(Counter) = .FoundFiles(Counter)
Next Counter
WordBasic.sortarray FileNames
For Counter = 1 To .FoundFiles.Count
Documents.Open FileName:=FileNames(Counter)
Next Counter
End With
End Sub
"Thomas" <thomas.madsen@adr.dk> skrev i en meddelelse
news:8vgafe$j7f$1@news.inet.tele.dk...
> Word2000 - Er der en der evner dette. Så bukker jeg mig dybt i støvet.
>
> Kan man lave en kode eller makro, som VedÅbning af C:\Dok\Hoveddok.doc
> indlæser alle de dokumenter der ligger i C:\Dok\Underdok og i alfab.
> rækkefølge.
>
> C:\Dok\Underdok indeholder f.eks. 0.doc, 001.doc, 010.doc og 10.doc
>
>