insérer un "Page XX of YY" dans un tableau dans un header
Bonjour,
Je me triture le cerveau depuis ce matin sur comment intégrer un "Page XX of YY" dans un tableau de mon header dans un document word avec une macro. Sachant que c'est une macro Excel qui gère tout ça (Je ne sais pas s'il serait peut être pas mieux de mettre ce post dans la section excel).
J'ai essayé de faire ça:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
nombrepagesdocword = objDoc.BuiltinDocumentProperties("Number of Pages")
Set tabhead = objDoc.Tables.Add(Range:=objDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range, NumRows:=2, NumColumns:=3, _
DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
tabhead.Cell(1, 3).Range.Select
With objDoc.Sections(1).Headers(wdHeaderFooterPrimary)
.Range.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
.Range.InsertBefore "Page "
.Range.InsertAfter " of " & nombrepagesdocword
End With |
malheureusement ça plante sur .Range.Fields.add ....
Quelqu'un aurait une idée ?
Merci par avance
