Avatar billede roerboel Nybegynder
26. juli 2007 - 17:04 Der er 3 kommentarer

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
</code>
Avatar billede word-hajen Nybegynder
26. juli 2007 - 18:35 #1
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.
Avatar billede roerboel Nybegynder
29. juli 2007 - 12:13 #2
Hmm. Hvilken version af word bruger du?

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?
Avatar billede word-hajen Nybegynder
29. juli 2007 - 12:34 #3
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?
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester