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 </code>
Jeg kan ikke umiddelbart se et problem. Ej heller når jeg tester din kode, for den kører lige igennem hos mig. Kan der være noget galt med dit dokument?
Prøv at lav et andet dokument og test dine procedurer deri.
Har fundet ud af at koden tilsyneladende virker fint i word 2000 (Dog med den undtagelse at hvis side 1 er forskellig og dokumentet kun har en side, vil den stadig sætte billedet ind på primær foden, dog på forkerte koordinater)
I word 2007 virker koden ca. 1 ud af tre gange hvis man genstarter word - Ellers går den ned med runtime error på addpic commandoen. Så for mig virker det mest som om at vba 2007 ikke er helt tip top endnu.
Er der nogen, der evt. kan komme på en anden måde at løse problemmet på, hvis det skal køre i 07?
Jeg kører 2007 :-) Og jeg har prøvet at køre proceduren flere gange.
Hvad er det i øvrigt for en fejl, du får (fejlnr. og meddelelse)? Måske skal vi lige prøve at spore os lidt ind den vej.
Har du prøvet at køre proceduren i et andet dokument?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.