Macro in MS-Office Word 2007

[bemklaver]

Ik ben al ruim een jaar aan het zoeken naar iemand die mij serieus kan helpen met een macro om in een Word-document een paginanummer in te voegen.
In de macro staat o.a.; ActiveDocument. AttachtTemplate.BuildingblockEntries ("Alleen nummer 3")Insert Wher:=Selection.Range,Richtext;=True
Deze regels zijn dus gemaakt tijden het "Macro opnemen".
Bij uitvoering krijg ik de fout; Fout 5941 tijdens uitvoering.
Het gevraagde lid van de collectie bestaat niet.

Als het niet kan, O.K. maar de macro neemt de handeling zelf op maar geeft een fout bij uitvoering. WIE KAN MIJ HELPEN????

 

[Marie01]

Ik krijg dezelfde foutmelding, wat raar.
Als je kiest voor Macro bewerken, zou je de opgenomen code kunnen vervangen door onderstaande code.

Deze tekst is rechtstreeks uit de help geplukt:
In het volgende voorbeeld wordt een paginanummer toegevoegd aan de hoofdvoettekst in de eerste sectie van het actieve document. Het paginanummer wordt rechts uitgelijnd.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
End With

 

[bemklaver]

Fout in Macro


Marie, Je oplossing werkt perfect!

Maar war raar toch dat dit niet in een koptekst is te verwerken.
Ik zal ook eens in de help verder zoeken.
Bedankt zover

 

[roderik18]

paginanummering in koptekst plaatsen

beste bemklaver,

ik heb de oplossing voor je vraag gevonden

als je de code van marie01 kopiëert krijg je dit

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
End With

het enige wat je hierin moet veranderen is dit;
bij de eerste regel :

With ActiveDocument.Sections(A).Footers(wdHeaderFooterPrimary)

moet je gewoon
.Footers
vervangen door
.Headers
zoals hier:

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

de volledige code wordt dan:

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
.PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight
End With

ik hoop dat dit je probleem oplost...

Greetz

 

[OctaFish]

@Roderik:
Prima dat je oplossingen aanrijkt, maar deze draad is 2,5 jaar oud.... Ik zou hier geen gewoonte van maken