Navigation word par VBA

Bonjour à tous,

Je suis entrain d'essayer d'optimiser un programme qui boucle sur des dossiers words.

Pour gagner du temps et ne pas boucler sur le document entier j'aimerais aller directement à un titre de l'onglet navigation de word

capture navigation

Le nom peut changer mais il y aura toujours le mot Reference à l'intérieur.

Je vous mets la structure du programme que j'ai très simplifié pour juste comprendre comment ça se déroule.

Sub IMPORT_TAB()

'Variable
Dim WordApp As Object, WordDoc As Object
Dim arrFileList As Variant, FileName As Variant
Dim tableNo%
Dim target As Range, Target2 As Range

Application.ScreenUpdating = False 'Fige l'affichage durant l'execution de la macro pour plus de rapidité
Application.DisplayAlerts = False 'Evite d'avoir des pop-up d'Alertes

'Sélection multiple de .docm dans un dossier
Sheets("TABLE").Select
arrFileList = _
Application.GetOpenFilename("Fichier(s) Word (*.doc; *.docm; *.docx;),*.doc;*.docm", 2, "Choix du dossier d'import", , True)
If Not IsArray(arrFileList) Then Exit Sub
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False
Set target = Range("A1")
'Parcours des fichiers
For Each FileName In arrFileList
    Set WordDoc = WordApp.Documents.Open(FileName, ReadOnly:=True)
    With WordDoc
        tableNo = WordDoc.Tables.Count
        If tableNo = 0 Then
        MsgBox WordDoc.Name & "ne contient aucun tableau", vbExclamation, "Importation Tableaux Word"
        ElseIf tableNo > 1 Then

        End If

           'TRAVAILLER ICI

        .Close False
    End With
Next FileName

MsgBox "There are " & compteur & " WordDocs"
Application.StatusBar = " Preparation of the sheet "

'Pour faire propre
Application.ScreenUpdating = True
Application.DisplayAlerts = True
WordApp.Quit

Set WordDoc = Nothing
Set WordApp = Nothing

Sheets("LAUNCH").Select
compteur = compteur / 8
'Visuel
compteur = 0
Application.StatusBar = " Finish"
ActiveWorkbook.Save
End Sub

Je ne vous demande pas le programme entier juste le fait de sélectionner la partie souhaité dans l'onglet navigation pour travailler à l'intérieur.

Merci d'avance.

Cordialement.

up si quelqu'un a la moindre idée.

Nathan

Rechercher des sujets similaires à "navigation word vba"