Bonjour,

J'aimerais trouver une solution pour automatiser le transfert de certains paragraphes d'un fichier word qui sont numérotés (selon le sommaire du document) vers un autre fichier word qui dispose aussi d'une numérotation pour chaque paragraphe.

J'ai pensé à passer par les signets/bookmarks dans word, du coup il faut que je renomme toutes les paragraphes que je souhaite déplacer/copier vers le nouveau word et dans un endroit en particulier (selon la numérotation). Cependant s'il existe un autre moyen que d'utiliser les signets, je suis preneur (par exemple si c'est possible, de faire une sorte de correspondance entre l'ancien fichier word et le nouveau au niveau de la numérotation des paragraphes?).

Ci-dessous un code pour déplacer les signets et leur contenu dans un Excel.

Sub transfertsignet()

Dim wrd As Object

Dim i As Integer, aBookmark

Set wrd = CreateObject("Word.Application")

wrd.Documents.Open Filename:="chemin du fichier\nomdufichier.docx"

'wrd.Visible = True

If wrd.ActiveDocument.Bookmarks.Count >= 1 Then

For Each aBookmark In wrd.ActiveDocument.Bookmarks

Worksheets("Sheet1").Range("a1").Offset(i, 0) = aBookmark.Name

Worksheets("Sheet1").Range("a1").Offset(i, 1) = aBookmark.Range

i = i + 1

Next aBookmark

End If

wrd.Quit

Set wrd = Nothing

End Sub

Merci de votre aide et bonne fin de journée à tous !

-
Edité par Erica1995 7 septembre 2022 à 9:08:07

Bonjour,

Le message qui suit est une réponse automatique activée par un membre de l'équipe. Les réponses automatiques leur permettent d'éviter d'avoir à répéter de nombreuses fois la même chose, ce qui leur fait gagner du temps et leur permet de s'occuper des sujets qui méritent plus d'attention.
Nous sommes néanmoins ouverts et si vous avez une question ou une remarque, n'hésitez pas à contacter la personne en question par Message Privé.
Pour plus d'informations, nous vous invitons à lire les règles générales du forum

Merci de colorer votre code à l'aide du bouton Code

Les forums d'Openclassrooms disposent d'une fonctionnalité permettant de colorer et mettre en forme les codes source afin de les rendre plus lisibles et faciles à manipuler par les intervenants. Pour cela, il faut utiliser le bouton de l'éditeur, choisir un des langages proposés et coller votre code dans la zone prévue. Si vous utilisez l'éditeur de messages en mode Markdown, il faut utiliser les balises <pre class="brush: vb;">Votre code ici</pre>.

Merci de modifier votre message d'origine en fonction.

Liens conseillés

• Charte de bonne conduite
• Règles générales du forum

les paragraphes correspondent à un objet Paragraph en VBA (Paragraphs pour la collection). Il faudra ensuite surement regarder le style du paragraphe (si c'est un "Titre 1" , un "Sous-Titre", ....) et agir selon.

Merci umfred pour l'information, cependant je ne vois pas de quoi tu parles, aurais-tu un exemple de code stp? je vais chercher sur le net en attendant.

https://docs.microsoft.com/en-us/office/vba/api/word.paragraph

Mes remerciements vont également à toute l'équipe de [Nom du département] pour leur accueil chaleureux, leur collaboration et leur partage de connaissances. 

@RanimBenSalah Bonjour, merci de ne pas squatter le sujet des autres, créer votre sujet dans le respect des règles du forum à savoir qu'un message commence par des règles de politesses (Un bonjour ou des salutations à la communauté et se termine par des remerciements par avances pour les futures réponses), la description de votre problème et le code que vous avez écrit inséré sur le forum à l'aide de l'outil d'intégration de code soit le bouton code </>.

Déterrage

Citation des règles générales du forum :

Avant de poster un message, vérifiez la date du sujet dans lequel vous comptiez intervenir.

Si le dernier message sur le sujet date de plus de deux mois, mieux vaut ne pas répondre.
En effet, le déterrage d'un sujet nuit au bon fonctionnement du forum, et l'informatique pouvant grandement changer en quelques mois il n'est donc que rarement pertinent de déterrer un vieux sujet.

Au lieu de déterrer un sujet il est préférable :

• soit de contacter directement le membre voulu par messagerie privée en cliquant sur son pseudonyme pour accéder à sa page profil, puis sur le lien "Ecrire un message"
• soit de créer un nouveau sujet décrivant votre propre contexte
• ne pas répondre à un déterrage et le signaler à la modération

Liens conseillés

• Charte de bonne conduite
• Règles générales du forum

Je ferme ici.