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)
La question est comment faire pour un document Open Office ?
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
Merci d’avance
Partager