Word97: OLE Link automatisch erstellen lassen?

Computer: Software & Programmierung Office Software
1

Hallo zusammen

Kennt Ihr eine Möglichkeit, wie ich in einem Rutsch alle Dateien eines Verzeichnisses als Links in ein Word97 Dok bringe?
Es ist wirklich nicht lustig, wenn ich 32x „Einfügen“ - „Objekt“ - blabla durchklicken muss :frowning:

Grüsse Peter

2

Hallo

In etwa so:

Sub TestD()
Pfad = „C:\Eigene Dateien“
Filter = „*.doc“
Dim nDoc As Document, oRange As Range, Form As InlineShape
Set nDoc = Documents.Add
Set oRange = nDoc.Paragraphs.Last
chk = Dir(Pfad & „“ & Filter
While Not chk = „“
Form = oRange.InlineShapes.AddOLEObject(ClassType:=„Word.Document.8“, FileName:=Pfad & „“ & chk, Range:=oRange, LinkToFile:=False, DisplayAsIcon:=False)
Set oRange = nDoc.Paragraphs.Last
oRange.InsertAfter vbCrLf
Set oRange = nDoc.Paragraphs.Last
chk = Dir
Wend
End Sub
.
.
cheers