Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour Robbert de GROOT,
Bonjour,
Je souhaite extraiter d'environ 4000 documents Word les mots soulignés afin de les mettre dans une base de données via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce : Faire un répertoire où on ne met que ces fichiers Faire une boucle sur ces fichiers Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word For Each Mot In ActiveDocument.Words If Mot.Font.Underline <> wdUnderlineNone Then ' extraire vers le sgbd End If
Next
Ca dépend de ce que tu veux faire comme base de données.
--
A+
Bonjour Robbert de GROOT,
Bonjour,
Je souhaite extraiter d'environ 4000 documents Word les
mots soulignés afin de les mettre dans une base de données
via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce :
Faire un répertoire où on ne met que ces fichiers
Faire une boucle sur ces fichiers
Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word
For Each Mot In ActiveDocument.Words
If Mot.Font.Underline <> wdUnderlineNone Then
' extraire vers le sgbd
End If
Next
Ca dépend de ce que tu veux faire comme base de données.
Je souhaite extraiter d'environ 4000 documents Word les mots soulignés afin de les mettre dans une base de données via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce : Faire un répertoire où on ne met que ces fichiers Faire une boucle sur ces fichiers Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word For Each Mot In ActiveDocument.Words If Mot.Font.Underline <> wdUnderlineNone Then ' extraire vers le sgbd End If
Next
Ca dépend de ce que tu veux faire comme base de données.
--
A+
Circé
Bonsoir Geo et Robbert,
Voici probablement la rérérence de la faq dont parle Geo.
http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v49
C'est une macro qui recherche un mot dans une série de documents placés dans un même répertoire, afin de remplacer ce mot par un autre.
Le tout est de savoir en VBA comment faire une multi-sélection sur les mots soulignés. Ensuite, simplement avec un selection.copy, on les colle dans un nouveau fichier, ils se retrouveront les uns en dessous des autres, séparés par un retour paragraphe...
Personnellement, je ne sais pas faire cette multisélection car je suis un âne...
Circé http://faq.ms.word.free.fr
Bonjour Robbert de GROOT,
Bonjour,
Je souhaite extraiter d'environ 4000 documents Word les mots soulignés afin de les mettre dans une base de données via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce : Faire un répertoire où on ne met que ces fichiers Faire une boucle sur ces fichiers Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word For Each Mot In ActiveDocument.Words If Mot.Font.Underline <> wdUnderlineNone Then ' extraire vers le sgbd End If
Next
Ca dépend de ce que tu veux faire comme base de données.
Bonsoir Geo et Robbert,
Voici probablement la rérérence de la faq dont parle Geo.
http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v49
C'est une macro qui recherche un mot dans une série de documents placés
dans un même répertoire, afin de remplacer ce mot par un autre.
Le tout est de savoir en VBA comment faire une multi-sélection sur les
mots soulignés. Ensuite, simplement avec un selection.copy, on les colle
dans un nouveau fichier, ils se retrouveront les uns en dessous des
autres, séparés par un retour paragraphe...
Personnellement, je ne sais pas faire cette multisélection car je suis
un âne...
Circé
http://faq.ms.word.free.fr
Bonjour Robbert de GROOT,
Bonjour,
Je souhaite extraiter d'environ 4000 documents Word les
mots soulignés afin de les mettre dans une base de données
via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce :
Faire un répertoire où on ne met que ces fichiers
Faire une boucle sur ces fichiers
Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word
For Each Mot In ActiveDocument.Words
If Mot.Font.Underline <> wdUnderlineNone Then
' extraire vers le sgbd
End If
Next
Ca dépend de ce que tu veux faire comme base de données.
Voici probablement la rérérence de la faq dont parle Geo.
http://faq.ms.word.free.fr/VBA/VBA_rep.htm#v49
C'est une macro qui recherche un mot dans une série de documents placés dans un même répertoire, afin de remplacer ce mot par un autre.
Le tout est de savoir en VBA comment faire une multi-sélection sur les mots soulignés. Ensuite, simplement avec un selection.copy, on les colle dans un nouveau fichier, ils se retrouveront les uns en dessous des autres, séparés par un retour paragraphe...
Personnellement, je ne sais pas faire cette multisélection car je suis un âne...
Circé http://faq.ms.word.free.fr
Bonjour Robbert de GROOT,
Bonjour,
Je souhaite extraiter d'environ 4000 documents Word les mots soulignés afin de les mettre dans une base de données via VBA Word.
Y a-t-il quelqu'un qui peux me donner un couop de pouce ?
le début du coup de pouce : Faire un répertoire où on ne met que ces fichiers Faire une boucle sur ces fichiers Il y a un exemple de code dans la page vba de la faq qui fait ça
Dans chaque document, rechercher les mot soulignés :
Dim Mot As Word For Each Mot In ActiveDocument.Words If Mot.Font.Underline <> wdUnderlineNone Then ' extraire vers le sgbd End If
Next
Ca dépend de ce que tu veux faire comme base de données.
Anacoluthe
Bonjour !
'Circé' nous a écrit ...
Personnellement, je ne sais pas faire cette multisélection car je suis un âne...
Après mûre rumination asinienne, je pense être un âne aussi :-D ))
En effet la multisélection apparue dans WD2002, qu'il s'agisse de la sélection avec la touche Ctrl enfoncée ou de celle qu'on obtient en cochant dans Edition/Rechercher la case 'Surligner tous les éléments' n'est pas transposable en VBA.
En réalité ça n'a aucune importance, car il est facile de répéter en VBA une action sur des plages successives ou sur les résultats d'une recherche.
Par contre il n'est pas possible d' 'enregistrer' une manipulation basée sur la multisélection comme celle par exemple de sélectionner tous les mots soulignés pour les copier dans un autre document.
L'enregistreur de macro connaît bien des limites. Celle-ci en est une autre. Pour reproduire la manip' il faut écrire une macro avec une boucle. Hi-han.
[HS] Puis-je ajouter que si Circé a le don de transformer les humains en animaux, elle n'est pas répertoriée 'Animagus' si j'en crois des spécialistes de Poudlard. Il est donc exclu que Circé puisse être âne/anesse/ânon ou tout autre equus asinus. :-D
Anacoluthe « Ce n'est pas parce qu'on est entouré d'ânes qu'on doit se mettre à braire. » - Jean Luc POMA
Bonjour !
'Circé' nous a écrit ...
Personnellement, je ne sais pas faire cette multisélection car je suis
un âne...
Après mûre rumination asinienne, je pense être un âne aussi :-D ))
En effet la multisélection apparue dans WD2002, qu'il s'agisse
de la sélection avec la touche Ctrl enfoncée ou de celle
qu'on obtient en cochant dans Edition/Rechercher la case
'Surligner tous les éléments' n'est pas transposable en VBA.
En réalité ça n'a aucune importance, car il est facile
de répéter en VBA une action sur des plages successives ou
sur les résultats d'une recherche.
Par contre il n'est pas possible d' 'enregistrer' une manipulation
basée sur la multisélection comme celle par exemple de sélectionner
tous les mots soulignés pour les copier dans un autre document.
L'enregistreur de macro connaît bien des limites. Celle-ci en est
une autre. Pour reproduire la manip' il faut écrire une macro
avec une boucle. Hi-han.
[HS] Puis-je ajouter que si Circé a le don de transformer les
humains en animaux, elle n'est pas répertoriée 'Animagus' si
j'en crois des spécialistes de Poudlard. Il est donc exclu que
Circé puisse être âne/anesse/ânon ou tout autre equus asinus. :-D
Anacoluthe
« Ce n'est pas parce qu'on est entouré d'ânes
qu'on doit se mettre à braire. »
- Jean Luc POMA
Personnellement, je ne sais pas faire cette multisélection car je suis un âne...
Après mûre rumination asinienne, je pense être un âne aussi :-D ))
En effet la multisélection apparue dans WD2002, qu'il s'agisse de la sélection avec la touche Ctrl enfoncée ou de celle qu'on obtient en cochant dans Edition/Rechercher la case 'Surligner tous les éléments' n'est pas transposable en VBA.
En réalité ça n'a aucune importance, car il est facile de répéter en VBA une action sur des plages successives ou sur les résultats d'une recherche.
Par contre il n'est pas possible d' 'enregistrer' une manipulation basée sur la multisélection comme celle par exemple de sélectionner tous les mots soulignés pour les copier dans un autre document.
L'enregistreur de macro connaît bien des limites. Celle-ci en est une autre. Pour reproduire la manip' il faut écrire une macro avec une boucle. Hi-han.
[HS] Puis-je ajouter que si Circé a le don de transformer les humains en animaux, elle n'est pas répertoriée 'Animagus' si j'en crois des spécialistes de Poudlard. Il est donc exclu que Circé puisse être âne/anesse/ânon ou tout autre equus asinus. :-D
Anacoluthe « Ce n'est pas parce qu'on est entouré d'ânes qu'on doit se mettre à braire. » - Jean Luc POMA
Geo
Bonjour Circé,
Personnellement, je ne sais pas faire cette multisélection car je suis
un âne...
Penserais-tu au pique-notes favoris d'Anacoluthe ?
amha il doit être en train de concocter la macro :-)
--
A+
Bonjour Circé,
Personnellement, je ne sais pas faire cette multisélection car je
suis
un âne...
Penserais-tu au pique-notes favoris d'Anacoluthe ?
amha il doit être en train de concocter la macro :-)