Word: Per VBA ab der 2. Seite auf jeder Seite das gleiche Hintergrundbild einfügen

Private Sub BKOP()
frmBrieKo1.Frame1.Visible = True
Seiten = ActiveDocument.ComputeStatistics(wdStatisticPages) - 1 'Gesamtzahl der Seiten minus die erste  
frmBrieKo1.Label5.Visible = True
Set Rng = ActiveDocument.Range(0, 0)
For i = 2 To ActiveDocument.ComputeStatistics(wdStatisticPages) 'Start bei i=2, da erste Seite die Briefkopfseite ist  
frmBrieKo1.Label5.Caption = Seiten
DoEvents
Set Rng = Rng.GoTo(What:=wdGoToPage, name:=i)
Set Rng = Rng.GoTo(What:=wdGoToBookmark, name:="\page")  
Rng.Collapse wdCollapseStart
Dim a As Shape
Set a = ActiveDocument.Shapes.AddPicture("\\SRV2\Vorlagen\Briefpapier\Folgeseiten.jpg", _  
False, True, , , , , Rng)
'a.Left = 0  
'a.Top = 0  
a.WrapFormat.Type = wdWrapNone
a.WrapFormat.Side = wdWrapBoth
a.LockAspectRatio = msoTrue
a.Height = 802.2
a.Width = 598.5
a.PictureFormat.Brightness = 0.5
a.PictureFormat.Contrast = 0.5
a.PictureFormat.ColorType = msoPictureAutomatic
a.PictureFormat.CropLeft = 0#
a.PictureFormat.CropRight = 0#
a.PictureFormat.CropTop = 0#
a.PictureFormat.CropBottom = 0#
'a.Left = 0#  
'a.Top = 0#  
a.RelativeHorizontalPosition = _
        wdRelativeHorizontalPositionPage
a.RelativeVerticalPosition = _
        wdRelativeVerticalPositionPage
a.Left = CentimetersToPoints(snglLeftOffset)
a.Top = CentimetersToPoints(snglTopOffset)
a.LockAnchor = False
a.WrapFormat.AllowOverlap = True
a.WrapFormat.Side = wdWrapBoth
a.WrapFormat.DistanceTop = CentimetersToPoints(0)
a.WrapFormat.DistanceBottom = CentimetersToPoints(0)
a.WrapFormat.DistanceLeft = CentimetersToPoints(0)
a.WrapFormat.DistanceRight = CentimetersToPoints(0)
a.WrapFormat.Type = 3
a.ZOrder 5
a.PictureFormat.TransparentBackground = msoTrue
a.PictureFormat.TransparencyColor = RGB(255, 255, 255)
a.Fill.Visible = False
Set a = Nothing
Seiten = Seiten - 1
Next
End Sub