Bild per VBA auf jede Seite eines Word-Dokuments einfügen

[Christopher Olbertz]

Hallo,

ich habe folgendes Problem: Ich möchte gerne auf jeder Seite eines Word-Dokuments per Makro ein bestimmtes Bild einfügen. Das Bild soll auf jeder Seite im Hintergrund sein. Ich bekomme es hin, so viele Bilder einzufügen, wie das Dokument Seiten hat. Aber die werden nur auf der ersten Seite eingefügt.

Hier seht ihr meinen Code:

    Dim strBildPfad As String
    Dim nPage As Integer 'Aktuelle Seitennummer.
    Dim nPagesCnt As Integer 'Gesamtanzahl der Seiten.

    'Gesamtanzahl der Seiten berechnen.
    nPagesCnt = ActiveDocument.ComputeStatistics(wdStatisticPages)
    'Bei Aufruf von Application.Browser.Next soll die nächste Seite angesprungen werden.
    Application.Browser.Target = wdBrowsePage

    'Schleife durch die Seiten.
    'Auf jeder Seite wird ein Bild eingefügt.
    For nPage = 1 To nPagesCnt
        Selection.GoTo What:=wdGoToPage, Count:=nPage
        'Bild einfügen
        ActiveDocument.Shapes.AddPicture(FileName:=strBildPfad).WrapFormat.Type = wdWrapBehind
        Application.Browser.Next
    Next nPage

Der Cursor springt zwar auf die zweite Seite, aber das zweite Bild wird dennoch auf der ersten Seite eingefügt.

Ich habe es mit folgendem Code versucht:

ActiveDocument.Background.Fill.UserPicture pictureFile:=strBildPfad

Das klappt auch ganz gut. Aber dann scheitert es an dem nächsten Schritt, der Umwandlung in pdf. Dann wird das Hintergrundbild nämlich gekachelt dargestellt, was nicht vorgesehen ist. Also fällt diese Variante weg.

Hat jemand eine Idee, wie ich dieses Problem lösen könnte?

Vielen Dank im Voraus,

Christopher