in etwa so:
Zitat:
Sub MehrfachEinfuegen()
'
' Makro MehrfachEinfuegen
' aufgezeichnet am 08.04.2002 von pc.net
'
Dim vListe As Variant
vListe = Array("a", "b", "c", "d") ' hier beliebig ergänzen
vFilenamebody = "dateiname.doc"
For Each vFileName1 In vListe
For Each vFileName2 In vListe
For Each vFileName3 In vListe
vFileName = vFileName1 & "." & vFileName2 & "." & vFileName3 & "." & vFilenamebody
MsgBox (vFileName) ' zum austesten
' mit dem nächsten befehl wird die datei eingefügt
'Selection.InsertFile FileName:=vFileName, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
Next
Next
Next
End Sub
|
gruß
pc.net
____________________________________
Praktizierender Eristiker
No hace falta ser un genio para saber quién dijo eso.
Der wirklich faule Mensch ist oft extrem fleißig, denn er will möglichst schnell wieder faul sein.
|