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 :
Quelqu'un a-t-il une meilleure solution à proposer ?
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
Merci
Partager