Discussion :

[Scartof]

Bonjour
J'ai utilisé une variante d'une macro proposée par Heureux-Oli (merci en passant) pour faire une recherche d'un mot ou expression dans plusieurs documents situés dans un répertoire.
Mes documents ont ceci de particulier qu'ils ont une section principale à deux colonnes (Mise en page, Deux colonnes de Word). Dans le colonne de gauche il y a un texte en anglais et dans la colonne de droite la traduction en français. Il font en général trois pages.
Quand je recherche un mot dans l'ensemble des documents du dossier, je réussis à récupérer pour chaque occurrence le nom du fichier, la(les) page(s), et aussi le(s) numéro(s) de ligne...
Mais je souhaiterais à l'issue de ma recherche ne récupérer que les occurrences de la colonne 1 (en anglais) de ma section à 2 colonnes. Y a-t-il un moyen de connaître la colonne où se trouve le mot sur lequel s'est arrêtée la recherche.
Pour le moment je n'ai pas trouvé de solution satisfaisante sauf à regarder où se trouve le mot par rapport à la largeur de la page. Voir l'extrait ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
 
                NoPage = Selection.Information(wdActiveEndPageNumber)
                NoLigne = Selection.Information(wdFirstCharacterLineNumber)
                PosHor = PointsToCentimeters(Selection.Information(wdHorizontalPositionRelativeToPage))
                If PosHor < 10.5 Then 'pour ne prendre que la colonne de gauche dans un document à 2 colonnes
                    Resultat = Resultat & oFil.Name & " - Page " & NoPage & " ; Ligne " & NoLigne & vbCr
                    Debug.Print Resultat    'pour affichage dans la ff Exécution de VBA
                End If

Quelqu'un a-t-il une meilleure solution à proposer ?
Merci

[Heureux-oli]

Salut,

Les informations renvoyées par tout ce qui est colonne ne concernent que les tableaux et pas une mise en page multi colonnes.

Je pense que la solution serait de prendre en compte la position horizontale et en fonction de la valeur, déterminer la colonne.