[OLE / Word] Ecriture sur en tete et pied de page [Résolu]

[Mijakely]

Bonjour,

Je suis entrain de travailler sur un code VB pour ecrire dans un document word via OLE en utilisant des commandes: Editgoto, insert ect. pour ainsi inserer les champs voulus a des signets predefinis dans word.

ca marche bien pour le corps de texte, mais c est pas le cas avec les en tetes et pieds de page. J ai beau mettre des signets partout dans ses zones mais rien de marche.

Pourriez vous m aider
Merci d avance

[Mijakely]

Bon bon, apres des recherches acharnes sur le sujet j ai moi meme trouve la solution.

Pour ce qui interesse, ci dessous le code a utiliser, meme pas besoin de passer par les documents ".dot".

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub InsertionDonnee()
    On Error Resume Next
    Dim oApp As Object
    set oApp = CreateObject("Word.Application")
    With oApp
        .Documents.Open ("NomDuDocumentAEditer")
        .ActiveDocument.Bookmarks("LeSignet").Select
        .Selection.InsertAfter "leTexteaInserer"
        .ActiveDocument.SaveAs ("LenomDuNouveauDoc")
        .Quit
    End With
    Set oApp = Nothing
End Sub