[Débutant] Remplacement Signet Document OpenXML

Bonjour,

j'essaie de remplacer des bookmarks dans un document Open XML avec ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
       Dim BookmarkE As BookmarkEnd
        Dim BookmarkName As String
        Dim BookmarkS As BookmarkStart
        Dim BookmarkValue As String
                                 BookmarkName = "TITRE"
                                BookmarkName = BookmarkS.NextSibling() 
                                While (Not BookmarkName Is Nothing Or BookmarkName Is BookmarkE)
                                    Dim NextElement As OpenXmlElement = BookmarkName.NextSibling()
                                    BookmarkName.Remove()
                                    BookmarkName = NextElement
                                End While
BookmarkS.Parent.InsertAfter(run, New Run(New Text(Value), BookmarkS))

Mais j'obtient l'erreur suivante :

Citation:

la reference d'objet n'est pas definie a une instance d un objet