Problem mit Script Recorder/Stapelverarbeitung :/

[koter]

Hallo Schmutzbrust,

willkommen im Forum!

Du kannst es mit einem Makro probieren:

Code:

Sub BildHintergrund()
    Dim Pfad As String, Datei As String, Name1 As String, BildName As String
    Dim HGDok As Document, Bild As Document
    Dim Z As Integer
    Dim ImpFilt As ImportFilter
    Dim ExpFilt As ExportFilter
    Dim IsJpg As Boolean
    Z = 1
    BildName = "HGBild"
    Set HGDok = ActiveDocument
    Pfad = HGDok.FilePath
    Datei = HGDok.FileName
    Name1 = Dir(Pfad, vbDirectory)
    Do While Name1 <> ""
        IsJpg = Right(Name1, 4) = ".jpg"
        If Name1 <> "." And Name1 <> ".." And Name1 <> Datei And IsJpg Then
            Set ImpFilt = HGDok.Import(Pfad & Name1)
            ImpFilt.Finish
            Set ExpFilt = HGDok.Export(Pfad & BildName & Z & ".jpg", cdrJPEG)
            ExpFilt.Finish
            HGDok.Layers(1).Delete
            Z = Z + 1
        End If
        Name1 = Dir
    Loop
End Sub

Die Datei mit dem Hintergrund und die einzufügenden Bilder müssen im selben Ordner liegen.
Du musst das Hintergrundbild öffnen und dann das Makro starten.
Das Makro funktioniert nur mit JPG, kann aber für andere Dateiformate angepasst werden.

Gruß

Koter