Discussion :

[starki699]

Bonjour à tous,
J'aurais besoin de votre aide car c'est la 1ère fois que je touche à du Visual Basic et je suis un peu perdu :/

Mon projet consiste à utiliser une UseForm qui m'affiche tous les titres de mon document Word dans une listbox (jusque la j'y arrive) puis me permet de déplacer les titres que je désire supprimer vers une autre listbox (ça aussi j'y arrive) à partir de la, pouvoir créer une copie du document Word et dans cette copie, supprimer les titres voulus et leur contenus.
Je bloque sur : supprimer le titre voulu et son contenu.

Pouvez vous m'aider ?

J'ai réussi à récuperer les titres grâce à ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
    Dim docSource As Word.Document
    Dim rng
    Dim astrHeadings As Variant
    Dim strText As String
    Dim intLevel As Integer
    Dim intItem As Integer
 
    Set docSource = ActiveDocument
 
    astrHeadings = _
     docSource.GetCrossReferenceItems(wdRefTypeHeading)
 
    For intItem = LBound(astrHeadings) To UBound(astrHeadings)
        strText = Trim$(astrHeadings(intItem))
        intLevel = GetLevel(CStr(astrHeadings(intItem)))
 
        ' Add the text to the document.
        ListBox1.AddItem strText
 
    Next intItem

Merci

[starki699]

Petit complément d'information, ce que je compte faire en Visual Basic est une "Navigation Pane" améliorée (tool de Microsof déjà présent en graphique). C'est a dire, grâce à cette "Navigation Pane" nous pouvons sélectionner le titre voulu et le supprimer mais il faut le faire 1 à 1 pour plusieurs titres. Je tente donc à travers Visual Basic de pouvoir sélectionner plusieurs titres et supprimer en une fois.

[clementmarcotte]

Bonjour,

Cela peut se faire manuellement en deux temps trois mouvement, en utilisant l'affichage en mode plan.

[starki699]

Intéressant ta solution, merci