[VBA Word] Extraire le 1er mot de chaque section

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Word] Extraire le 1er mot de chaque section

orionis26240

Bonjour à tous,
J'ai un gros fichier Word (700 pages) que je dois découper en sous-fichiers, à chaque occurrence d'un mot-clef.
Une solution est de scinder ce fichier en autant de sections que de présence de mot-clef (déjà fait, fonctionnement OK).
Ensuite, je crée des sous-fichiers commençant et se terminant par les saut de section rencontrés (fonctionnement OK).
Je voudrais nommer les fichiers créés à l'aide d'un code client qui est le 1er mot de chaque section, mais je ne parviens pas à trouver la fonction qui permet de le faire.
J'ai essayé...

Set myParagraph = ActiveDocument.Paragraphs(1)
NomClient = myparagraph.Range.Select.Range.Words(1)

...mais ça ne fonctionne pas.
Quelqu'un aurait-t-il une idée?
Merci d'avance

Message édité par orionis26240 le 11-01-2010 à 11:02:21

Publicité

Laoo

Nom de Zeus, elle est belle celle-là! 2 Range dans la même ligne, rien que ça! Et dans 1 macro Word, où ça n'existe pas en plus! Mes félicitations!! :pt1cable:

Bon, passées ces taquineries, je t'ai quand même fait un petit quelque chose:

Code :

Sub Insert_Nom_Client()
Dim paragraphe As Object
Selection.HomeKey Unit:=wdStory 'pour aller au début du fichier (facultatif)
For Each paragraphe In ActiveDocument.Paragraphs
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend 'pour sélectionner 1 paragraphe (facultatif)
LeNom = Selection.Words(1) ' ou Selection.Words.First 'au choix
'''''''''''''''''''''''''''''''''ici, nom du paragraphe
Selection.Move wdParagraph
Next paragraphe
Selection.HomeKey Unit:=wdStory 'Re pour aller au début du fichier ('Re facultatif)
End Sub

J'ai pas encore trouvé comment appliquer un nom à un paragraphe, je te cherche ça mais une bonne âme aura peut-etre la solution avant.

"paragraphe" n'existant pas, on peut aussi bien écrire "machin"...

A bientôt

Message édité par Laoo le 11-01-2010 à 21:35:18

---------------
Olympus OM-D EM-5 + 14-42

seniorpapou

Bonjour,
je ne suis pas persuadé que l'on puisse nommer un paragraph, par contre en mettant un signet, bookmark, on peut le nommer et l'intégrer dans un link.
Cordialement

orionis26240

Merci Laoo, j'aurais dû signaler que je débutais totalement en macro Word!

J'essaie ta solution rapidement, merci beaucoup

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Word] Extraire le 1er mot de chaque section

Sujets relatifs
[WORD] créer une macro excel créan un word	Publipostage Word Thunderbird
[VBA] Collage Variable après copie de tableau de taille variable	[VBA]Copier certaines cellules dans un userform.
[VBA] Graph : Selection d'une zone de cellules	[VBA] Détection des touches
Modifier une propriété d'un CommandButton par VBA	VBA ACCESS
[VBA] Boucle sur variables	comparaison de valeur sur VBA
Plus de sujets relatifs à : [VBA Word] Extraire le 1er mot de chaque section

Page générée en 0.051 secondes