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:
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:
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
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:
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
Ich habe es mit folgendem Code versucht:
Code:
ActiveDocument.Background.Fill.UserPicture pictureFile:=strBildPfad
Hat jemand eine Idee, wie ich dieses Problem lösen könnte?
Vielen Dank im Voraus,
Christopher