voettekst macro

[wohal]

Hallo,
ik wil graag in een werkbalk een macro zetten voor het automatisch plaatsen van een voettekst. De voettekst moet links de bestandsnaam&pad bevatten en rechts pagina x van y. Weet iemand hoe die macro eruit ziet?

 

[gast0225]

Sub Macro1()
'
' Macro1 Macro
' Macro opgenomen op 31-1-2007 door Pasja
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
NormalTemplate.AutoTextEntries("Bestandsnaam en pad").Insert Where:= _
Selection.Range
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeText Text:=" "
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.TypeText Text:=vbTab & _
" "
NormalTemplate.AutoTextEntries("Pagina X van Y").Insert Where:=Selection. _
Range
Selection.MoveLeft Unit:=wdCharacter, Count:=14
Selection.TypeText Text:=" "
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

 

[gast0225]

Maar je kunt 'm ook heel simpel zelf maken:

1. Menu Extra -> Macro -> Nieuwe macro opnenen -> OK
2. Menu Beeld -> Koptekst/voettekst -> activeer in de werkbalk "voettekst"
3. Menu Invoegen -> Autotekst -> Bestandsnaam en pad
4. Druk een keer op de Tab toets en kies vervolgens weer voor
5. Menu Invoegen -> Autotekst -> Pagina X van Y
6. Staat de paginanummering nu niet netjes strak tegen de rechtermarge, zet de cursor dan VOOR Pagina X van Y en druk net zolang op de spatiebalk tot het geheel een beetje netjes tot bij de rechtermarge van de voettekst komt.
7. Sluit de werkbalk "Kop / Voettekst af en klik tenslotte op de knop
8. Macro opname stoppen.

Dat was het eigenlijk wel.....

 

[wohal]

Pasja,

bedankt voor de info. Met de tekst bestandsnaam en pad en pagina x van y bedoel ik eigenlijk de bestandsnaam van het betreffende Excelbestand en waar het staat en de hoeveelheid pagina's die het bestand bevat. Is dat ook in dezelfde macro te verwerken?

 

[richard1970]

Beste wohla,

Voer eens de stappen van Pasja uit met de macrorecorder aan en kijk dan eens naar de code. Daar leer je heel wat van.

Richard

 

[gast0225]

Wohal,

wat Richard bedoelt te zeggen (denk ik...) en wat ik met mijn postings aangaf,
RESULTEERT in datgene wat jij wil.