Numérotation des paragraphes Word sous Excel

Question

Bonjour,

Je dois réorganiser un grand nombre de documents Word selon un nouveau plan. L'utilisation d'Excel est impérative pour traiter des données des documents et faire des statistiques ultérieurement.

Tous les documents (ou presque) ont une structure voisine mais les paragraphes (les titres des sections traitées) n'apparaissent pas dans le même ordre.

Je dois refondre tous ces documents et pour cela déplacer les paragraphes complets pour retrouver l'ordre nouveau.

Je dois donc identifier et trouver le début et la fin de chaque paragraphe : Pas de problème.

Mais si je dois sélectionner les paragraphes 126 à 151 (tout (et seulement) ce qui est inclus dans les Déplacements), si Excel et Word me les identifient bien, Excel ne me donne que des erreurs quant à leur numérotation.

Exemple : Numéro Paragraphe / Titre de la section traitée. Ici : Déplacements

126 / Déplacements

127 / aa

128 / bb

mm

150 / yy

151 / zz

152 / Frais

Frais = titre suivant le Déplacements dans CE document.

J'ai ajouté les numéros ci-dessus pour faciliter la compréhension, dans Word, ces références ne sont pas présentes.

Code Excel utilisé :

Dim WrdApp As Object

WrdApp.Selection.HomeKey 

WrdApp.Selection.Find.ClearFormatting 

With WrdApp.Selection.Find 

    .Text = "Déplacements" 

    .Forward = True 

    .Format = False 

    .MatchCase = True 

    .MatchWholeWord = False 

    .MatchAllWordForms = False 

End With  

WrdApp.Selection.Find.Execute 

MsgBox WrdApp.Selection.Range(Start:=1, End:=Selection.End).Paragraphs.Count

Je pourrai ainsi récupérer tous les numéros des paragraphes de CE document pour les repositionner dans le bon ordre de tri.

Sauf que je n'arrive pas à trouver une syntaxe acceptable pour me donner : 126 pour le premier titre et 151 pour le dernier paragraphe avant le titre suivant, titre que je ne connais pas.

Message : Nombre d'arguments incorrect ou affectation de la propriété incorrecte !

Le texte Déplacements est pourtant bien sélectionné.

Ce code écrit en Word dans Word fonctionne bien...

Merci pour l'astuce.

Answer 1

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Salut P’Tit Louis,

Merci d’être revenu. Je vous prie de m’excuser pour la réponse tardive.

Je vous recommande d’essayer sur différents navigateurs pour accéder au site Web et de réessayer si vous pouvez poster votre problème sur le forum du site Web.

De plus, j’aimerais que vous vous attendiez à ce que je ne sois pas un expert en ce qui concerne ces codes/formules sur l’approche qui peut être appliquée, car je suis plus du côté technique de l’application. Je vous recommande également de poster votre préoccupation sur ce forum Excel (microsoft.com) pour Excel, afin que les experts Excel puissent fournir ou partager leurs idées/solutions à votre problème. De plus, je laisserai ce fil ouvert à d’autres experts de la communauté pour vous aider à résoudre votre problème.

Nous vous remercions de votre compréhension.

Sincèrement

---

ReynaldoB

Modérateur du forum de la communauté Microsoft

Answer 2

Bonjour,

Je dois réorganiser un grand nombre de documents Word selon un nouveau plan. L'utilisation d'Excel est impérative pour traiter des données des documents et faire des statistiques ultérieurement.

Tous les documents (ou presque) ont une structure voisine mais les paragraphes (les titres des sections traitées) n'apparaissent pas dans le même ordre.

Je dois refondre tous ces documents et pour cela déplacer les paragraphes complets pour retrouver l'ordre nouveau.

Je dois donc identifier et trouver le début et la fin de chaque paragraphe : Pas de problème.

Mais si je dois sélectionner les paragraphes 126 à 151 (tout (et seulement) ce qui est inclus dans les Déplacements), si Excel et Word me les identifient bien, Excel ne me donne que des erreurs quant à leur numérotation.

Exemple : Numéro Paragraphe / Titre de la section traitée. Ici : Déplacements

126 / Déplacements

127 / aa

128 / bb

     mm

150 / yy

151 / zz

152 / Frais

Frais = titre suivant le Déplacements dans CE document.

J'ai ajouté les numéros ci-dessus pour faciliter la compréhension, dans Word, ces références ne sont pas présentes.

Code Excel utilisé :

Dim WrdApp As Object

WrdApp.Selection.HomeKey

WrdApp.Selection.Find.ClearFormatting

With WrdApp.Selection.Find

.Text = "Déplacements"

.Forward = True

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchAllWordForms = False

End With

WrdApp.Selection.Find.Execute

MsgBox WrdApp.Selection.Range(Start:=1, End:=Selection.End).Paragraphs.Count

Je devrais ainsi récupérer tous les numéros des paragraphes de CE document pour les repositionner dans le bon ordre de tri.

Sauf que je n'arrive pas à trouver une syntaxe acceptable pour me donner : 126 pour le premier titre et 151 pour le dernier paragraphe avant le titre suivant, titre que je ne connais pas.

Message retourné : Nombre d'arguments incorrect ou affectation de la propriété incorrecte !

Le texte Déplacements est pourtant bien sélectionné.

Nota : Ce code écrit et adapté en VBA Word dans Word fonctionne bien...

Merci pour l'astuce.

-----------------------

Note de la modérationMerci de ne pas multiplier les demandes identiques, ça ne peut générer que de la confusion. 😉

Answer 3

Bonjour,

Je pensais que le vendredi n'est pas le meilleur jour pour poser une question, j'ai abandonné. Mais, comme aujourd'hui c'est samedi, je retente... et j'ai le même dysfonctionnement !

Je viens de suivre plusieurs fois votre invitation et je tombe sur une page pleine de boutons... Mais aucun ne fonctionne mais j'ai le message :

.

qui m'invite désespérément à attendre. Quoi ?

Désolant.

Answer 4

Bonjour,

Je viens de suivre plusieurs fois votre invitation et je tombe sur une page pleine de boutons...

Mais aucun ne fonctionne mais j'ai le message :

qui m'invité désespérément à attendre. Quoi ?

cela n'est pas très encourageant.

Answer 5

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonjour P’Tit Louis,

Merci d’avoir publié un message sur les forums de la communauté Microsoft. J’espère que vous allez bien.

Pour vous aider à mieux résoudre votre problème, nous vous recommandons vivement de le publier dans notre forum Microsoft Q&Rpour en savoir plus sur le codage correct que vous  pouvez utiliser. De cette façon, les experts de ces forums seront en mesure de fournir des informations plus spécifiques sur votre problème, afin que vous puissiez obtenir exactement le résultat que vous souhaitez. Nous voulons que vous obteniez exactement les informations et que vous obteniez le résultat que vous souhaitez. Nous laisserons ce fil de discussion ouvert au cas où des modérateurs bénévoles ou un autre membre de la communauté souhaiteraient participer.

Nous vous remercions de votre compréhension.

Sincèrement

ReynaldoB

Modérateur du forum de la communauté Microsoft