Bonjour,

Pour un projet je crée un model (.dot)
Ce document contient des signets

Un petit dessin :

Signet date1
----- ------ ----
Signet date2
----- ------ ----
Signet date3
----- ------ ----
Signet date4
----- ------ ----
Signet date5
----- ------ ----
Signet date6
----- ------ ----
Etc. …

En VB.NET je remplace les signets date1 et date3 par des dates
J’arrive à le faire avec Word et Open Office.

Les signets date2 et date4 a date6 ne me sert plus alors je doits les supprimer et aussi supprime les traits en dessous (supprime 2 lignes).

Voila comment je faits pour un document Word :
SuprimSignet(date2,1) '1 est le nombre de ligne à supprime en plus du signet
SuprimSignet(date4,5)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub SuprimSignet(ByVal Signet As String,ByVal LiSup As Integer)
 
        oDocWord.Bookmarks(Signet).Range.Select()
 
      Dim DébSel as short = oDocWord.Bookmarks(Signet).Range.Start
 
        oDocWord.Range(DébSel, LiSup).Delete()
 
    End Sub
La question est comment faire pour un document Open Office ?

Merci d’avance