Word pagina nummers

[Tweety1]

Onderstaande macro gebruik ik om een pagina nummering toe te voegen.
Alleen lukt het me niet met de opmaak.
Ik zou graag een ander lettertype (Calibri Size 8) willen gebruiken en de pagina nummering links en datum veld helemaal rechts.

Sub Test()
With ActiveDocument.Sections(1)
myWorksheetName = Format(Now, "yyyymmdd")
strText = .Footers(wdHeaderFooterPrimary).Range.Text
.Footers(wdHeaderFooterFirstPage).Range.Text = strText
.Footers(wdHeaderFooterPrimary).Range.InsertAfter Text:=vbTab & Space(20) & "v" & myWorksheetName & strNewClaimNumber & vbTab & vbTab & Space(10) & "Page: "
Set rngTemp = .Footers(wdHeaderFooterPrimary).Range
rngTemp.Collapse Direction:=wdCollapseEnd
rngTemp.Fields.Add Range:=rngTemp, Type:=wdFieldPage
.Footers(wdHeaderFooterPrimary).Range.InsertAfter Text:=" of "
Set rngTemp = .Footers(wdHeaderFooterPrimary).Range
rngTemp.Collapse Direction:=wdCollapseEnd
rngTemp.Fields.Add Range:=rngTemp, Type:=wdFieldNumPages
End With
End Sub

 

[OctaFish]

Waarom werk je met spaties, en niet met tabs? Erg ongelukkig zo om dat goed uit te meten. Gebruik een Regeleinde als je de tekst Page: naar de volgende regel wilt krijgen, maar niet met spaties!

 

[Tweety1]

Ik heb de spaties en tabs verwijden en een regeleinde toegevoegd. Het is me ook gelukt om het lettertype te veranderen.
Enigste wat nog niet lukt pagina nummering links en datum veld helemaal rechts

Sub Test()
With ActiveDocument.Sections(1)
myWorksheetName = Format(Now, "yyyymmdd")
strText = .Footers(wdHeaderFooterPrimary).Range.Text
.Footers(wdHeaderFooterFirstPage).Range.Text = strText
.Footers(wdHeaderFooterPrimary).Range.InsertAfter Text:=Chr(13) & "v" & myWorksheetName & strNewClaimNumber & "Page: "
.Footers(wdHeaderFooterPrimary).Range.Font.Bold = True
.Footers(wdHeaderFooterPrimary).Range.Font.Name = "Calibre"
.Footers(wdHeaderFooterPrimary).Range.Font.Size = 8
Set rngTemp = .Footers(wdHeaderFooterPrimary).Range
rngTemp.Collapse Direction:=wdCollapseEnd
rngTemp.Fields.Add Range:=rngTemp, Type:=wdFieldPage
.Footers(wdHeaderFooterPrimary).Range.InsertAfter Text:=" of "
Set rngTemp = .Footers(wdHeaderFooterPrimary).Range
rngTemp.Collapse Direction:=wdCollapseEnd
rngTemp.Fields.Add Range:=rngTemp, Type:=wdFieldNumPages
End With
End Sub

 

[OctaFish]

Standaardinstellingen van kop- en voetteksten zijn volgens mij hier prima te gebruiken. Standaard heb je namelijk altijd 2 tabs: een gecentreerde tab in het midden en een rechtslijnende tab tegen de rechter marge aan. Dsu bij jou staat dan de paginanummering links, en de datum na 2 tabs.