Accepter les révisions des entêtes et pieds de page d'un document Word

Bonjour,

Je crée une macro dans un fichier Excel, qui est sensée accepter toutes les révisions de document Word.

Cependant "Revisions.AcceptAll" ne fonctionne pas pour les révisions d'entête et de pied de page. J'ai fait moult tests sans aucun succès. Le dernier en date me retourne une erreur d'incompatibilité de type (je suppose sur Sections()). Bref j'espère que vous aurez une solution à me proposer.

PS : je suis totalement débutant en VBA

voici mon code actuel

Public Sub AccepterTous(WordAPP, File, Path)

Dim myRange As Range

Do While File <> ""
Set worddoc = WordAPP.documents.Open(Path & File)
worddoc.TrackRevisions = False
worddoc.Revisions.AcceptAll
Set myRange = worddoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
myRange.Revisions.AcceptAll
worddoc.Close SaveChanges:=True

File = Dir()
Loop
End Sub