Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Inscrit en
    février 2011
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : février 2011
    Messages : 11
    Points : 7
    Points
    7

    Par défaut Sommaire de tableaux - Récupérer la totalité d'un texte séparé par un retour chariot

    désolé si le sujet a déjà été abordé,
    j'ai un document word avec plusieurs tableaux, chaque tableau a un titre dans la première ligne du tableau et chacun de ces titres commence toujours par Table XXX . j'ai créer des index {XE...} pour récupérer les titres des tableaux afin de former un sommaire des tableaux. Seulement je me rends compte que les titres de mes tableaux sont tronqués dans mon index

    Table 14.1-1 Subject Disposition { XE “Table 14.1-1 Subject Disposition”}
    (All Subjects)

    l'index ne prend en compte que la première ligne et s’arrête au retour chariot or j'aimerai récupérer tout le texte pour avoir :

    Table 14.1-1 Subject Disposition { XE “Table 14.1-1 Subject Disposition (All Subjects) ”}

    quelqu'un aurait-il une solution svp?

    voici le code pour créer mes index:

    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     
    Sub IndexTables()
     
        Dim strTable As String
        Dim strPrevTable As String
     
        strTable = ""
        strPrevTable = ""
     
        Selection.HomeKey Unit:=wdStory
     
        Selection.HomeKey Unit:=wdStory
        Selection.EndKey Unit:=wdStory, Extend:=wdExtend
        tot = Selection.End
     
        Selection.HomeKey Unit:=wdStory
        posit = 1
        oldposit = 0
     
        Do While posit >= oldposit
            oldposit = posit
            Selection.Find.ClearFormatting
            With Selection.Find
                .Text = " Table "
                .Replacement.Text = ""
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute
            posit = Selection.End
            Debug.Print oldposit; posit; tot
            Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            strTable = Selection.Text
            If posit >= oldposit And strTable <> strPrevTable Then
                ActiveWindow.ActivePane.View.ShowAll = True
                ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, Entry:= _
                    strTable, EntryAutoText:= _
                    strTable, CrossReference:="", _
                    CrossReferenceAutoText:="", BookmarkName:="", Bold:=False, Italic:=False
            End If
            Debug.Print strPrevTable; strTable
            strPrevTable = strTable
             Debug.Print posit;
        Loop
     
    End Sub
    merci d'avance de votre aide

  2. #2
    Expert éminent

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    3 619
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 3 619
    Points : 9 206
    Points
    9 206
    Billets dans le blog
    26

    Par défaut

    Citation Envoyé par vanne27 Voir le message
    Bonjour,

    As-tu réglé ton problème ?
    Sinon, mettre un fichier exemple pour voir.
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Rédacteur/Modérateur
    Avatar de Sepia
    Homme Profil pro
    Administrateur du cursus IDE@L - Chef de Projet NCU (digital learning) - Université de Rennes
    Inscrit en
    octobre 2007
    Messages
    3 117
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Administrateur du cursus IDE@L - Chef de Projet NCU (digital learning) - Université de Rennes
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : octobre 2007
    Messages : 3 117
    Points : 6 847
    Points
    6 847

    Par défaut

    Et un fichier résultat comme tu le souhaites nous aiderait aussi.

    Merci

    @+
    Sepia

Discussions similaires

  1. Comparer le contenu de cellules texte (séparé par "/" + désordre)
    Par arnaud.j92 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/07/2017, 15h49
  2. Réponses: 1
    Dernier message: 24/07/2009, 16h40
  3. [PHP 5.2] récupérer l'interieur d'un tag coupé par un retour ligne
    Par super-manu dans le forum Regex
    Réponses: 1
    Dernier message: 16/02/2009, 19h39
  4. Réponses: 2
    Dernier message: 17/06/2008, 01h04
  5. Réponses: 9
    Dernier message: 12/09/2007, 00h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo