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

Marsh Posté le 11-01-2010 à 11:01:52

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

Reply

Marsh Posté le 11-01-2010 à 11:01:52

Reply

Marsh Posté le 11-01-2010 à 20:27:56

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

Reply

Marsh Posté le 12-01-2010 à 08:12:09

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

Reply

Marsh Posté le 12-01-2010 à 08:47:48

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

J'essaie ta solution rapidement, merci beaucoup

Reply

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

Sujets relatifs:

Leave a Replay