VBA Word - Indsættelse af billeder i sidefoden
Jeg har et word dokument, hvor side 1 sidefoden er forskellig fra de øvrige i sektionen. Jeg ønsker at indsætte samme billede både i side 1 sidefoden og i primær sidefoden.Jeg har skrevet følgende kode, men får fejl anden gang doInsert kaldes - hjælp
<code>
Sub insertLogo()
Dim oSec As Word.Section
For Each oSec In ActiveDocument.Sections
doInsert oSec.Footers(wdHeaderFooterPrimary)
If (oSec.PageSetup.DifferentFirstPageHeaderFooter) Then
doInsert oSec.Footers(wdHeaderFooterFirstPage)
End If
Next
End Sub
Private Sub doInsert(oFooter As Word.HeaderFooter)
Dim oShape As Word.shape
Set oShape = oFooter.Shapes.AddPicture("C:\logo.bmp", _
LinkToFile:=False, SaveWithDocument:=True, _
Anchor:=oFooter.Range)
End Sub
