Exportation de paramètres d'une page word

Bonjour.

Tes explications sont insuffisantes :
Cette chaîne concerne une seule personne, au s'agit-il de toute une liste de gens ?

Dans les deux cas, Word ne permet pas ce genre de manipulation.
Il te faut copier tes données Word dans une feuille de calcul Excel.
C'est là que tu pourras effectuer la concaténation des items.

Cordialement.

Bonjour
Merci pour la réponse
En fait cette chaîne que je veux faire devait me permettre à partir d'actes (naissance ou Mariage) d'établir une table pour pouvoir gérer tous les actes des différentes personnes de ma généalogie.
Les enregistrer fichier par ficher exemple de dénomination : (M-1845-05-02-Bordeaux-Tartempion Marcel - Bidule Marie) ne me permets pas de faire une gestion efficace d’où ma demande de transfert vers Excel en seconde partie de question.
Merci quand même.
Je continuerais donc à l'ancienne en notant à la main toutes les données de Word vers Excel.
Bonne journée
Cordialement

Tes explications restent encore insuffisantes ...
Les actes d'état-civil sont des photocopies, ou des images scannées, ou des documents pdf.
Tu es donc bien obligé de les transcrire à la main (au clavier) dans un formulaire ou un tableau Word ?
Alors pourquoi ne pas les transcrire directement dans une feuille de calcul Excel ?

Les actes de naissance, de mariage et de décès n'ont pas la même structure ; les champs ne sont pas les mêmes ; quant aux actes de baptême, ils sont très différents.
Je ne vois pas comment on pourrait automatiser leur transcription en chaîne.
Pourrais-tu envoyer un acte de chaque espèce (en modifiant les prénoms et les dates, bien entendu) ?

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 
Il existe aussi :
 1) https://mon-partage.fr/ 
 2) https://www.transfernow.net/ 

Bonjour,

Effectivement, on ne sait pas tout !!

Au cas où ces actes seraient saisis dans Word, et de manière identique, il doit y avoir moyen d'agir ! ;) Mais ce sont quand même les conditions.

m@rina

Suite au travail de bénévoles des associations de généalogies qui lisent et retranscrivent les actes dans NIMEGUE, EXPOACTES et dans mon cas en Suisse dans un système équivalent.
Les actes sont disponible en ligne suivant le modèle en pj1
On peux copier l'affichage et le coller dans Word ce qui donne le document en pj2
Idem pour le mariage qui pourra compter 4 témoins
Voir Pj3 et 4
Donc pour en revenir à ma demande je partirais pour les actes issus de Nimègue ou Expoacte à partir de leur formatage de page word
https://www.cjoint.com/c/JFep6mJRpjx
https://www.cjoint.com/c/JFep7WAZKCx
https://www.cjoint.com/c/JFeqavcG3ux
https://www.cjoint.com/c/JFeqa2Ejujx
J'ai rien modifié dans les actes il suffira de les supprimer après lecture
Polo

Absolument désolé ...
Mais tu nous as fourni des fichiers jpg (image) et txt ; rien sur Word !

Bonjour,

Supposant que tous tes actes sont exactement sous ce même format, oui on peut faire une macro assez simple qui va juste aller chercher les informations dans le texte.

Par exemple pour l'acte de naissance :

Sub naissance()
Dim commune As String, nom As String, datea As String, dpt As String
With ActiveDocument
commune_d = .Paragraphs(2).Range.Start + 11
commune_f = .Paragraphs(2).Range.End - 1
commune = .Range(Start:=commune_d, End:=commune_f)
End With

With ActiveDocument
nom_d = .Paragraphs(5).Range.Start + 19
nom_f = .Paragraphs(5).Range.End - 1
nom = .Range(Start:=nom_d, End:=nom_f)
End With

With ActiveDocument
datea_d = .Paragraphs(6).Range.Start + 19
datea_f = .Paragraphs(6).Range.End - 1
datea = .Range(Start:=datea_d, End:=datea_f)
End With

With ActiveDocument
dpt_d = .Paragraphs(3).Range.Start + 26
dpt_f = .Paragraphs(3).Range.End - 1
dpt = .Range(Start:=dpt_d, End:=dpt_f)
End With

With Selection
    .EndKey Unit:=wdStory
    .TypeText Text:="Naissance-" & datea & "-" & dpt & "-" & nom
End With
End Sub 
 

Si ça convient, on fait la même chose pour l'acte de mariage.
Après on pourra aussi les exporter vers Excel.

m@rina

Bonjour
En partant de cette acte:
Acte de naissance/baptême
Commune : Les Breuleux
Département / Province : Canton du Jura
Nouveau-né :
Nom de l'enfant : BOULOT Marie Eugénie
Date de l'acte : 07/04/1819
Sexe : Féminin
Parents :
Nom du père : BOULOT Pierre Ignace
Commentaire : De Les Ravières
Nom de la mère : METRO Marie Anne
Témoins :
Nom du parrain : BOULOT Pierre Ignace
Commentaire : De Les Breuleux
Nom de la marraine : DODO Marie Agnès
Commentaire : De Les Breuleux

J'obtiens une erreur en lançant le code

https://www.cjoint.com/c/JFfl6CfrPex
Est ce normal ou je me trompe dans la manière de faire
Merci

C'est normal, ce texte n'est a priori pas constitué de paragraphes.
J'ai copié-collé le texte et je vois que chaque fin de ligne est terminée par un retour ligne et non un retour paragraphe. Par ailleurs, contrairement au texte donné précédemment, il n'y a aucune tabulation.

Essaie cette macro :

Sub naissance()
Dim commune As String, nom As String, datea As String, dpt As String

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

With ActiveDocument
commune_d = .Paragraphs(2).Range.Start + 11
commune_f = .Paragraphs(2).Range.End - 1
commune = .Range(Start:=commune_d, End:=commune_f)
nom_d = .Paragraphs(5).Range.Start + 18
nom_f = .Paragraphs(5).Range.End - 1
nom = .Range(Start:=nom_d, End:=nom_f)
datea_d = .Paragraphs(6).Range.Start + 17
datea_f = .Paragraphs(6).Range.End - 1
datea = .Range(Start:=datea_d, End:=datea_f)
dpt_d = .Paragraphs(3).Range.Start + 25
dpt_f = .Paragraphs(3).Range.End - 1
dpt = .Range(Start:=dpt_d, End:=dpt_f)
End With

With Selection
    .EndKey Unit:=wdStory
    .TypeParagraph
    .TypeParagraph
    .TypeText Text:="Naissance-" & datea & "-" & dpt & "-" & nom
End With
End Sub

Cela étant, Raymond a raison, on ne peut pas travailler sans avoir un "vrai" document Word.

m@rina

ll y a toujours la même erreur sur la commune.
Je vous donnes les deux documents Naissance et Mariage que je récupère.
Par un copié, je le colle dans une page word pour avoir une archive de l'acte
https://www.cjoint.com/c/JFep6mJRpjx
https://www.cjoint.com/c/JFeqavcG3ux

Si ce que je recherche est trop compliqué à mettre en place, ce n'est pas grave et merci d'avoir essayé

Je suis désolée, mais des images ne nous servent à rien du tout.
On ne peut travailler qu'avec des documents Word (extension docx).

m@rina

Je sais bien que cela ne vous sert à rien, c'était juste pour vous montrer l'importation des documents.
Par cette phrase je vous expliquais que je copiais le texte et le collais dans Word
"Par un copié, je le colle dans une page word pour avoir une archive de l'acte"
et c'était aussi pour répondre à Raymond.
"Cela étant, Raymond a raison, on ne peut pas travailler sans avoir un "vrai" document Word"
Merci d'avoir essayé.
Polo

Salut Polo.

As-tu consulté le site NIMEGUE ?
Il m'a l'air extrêmement complet et détaillé
En particulier leur fiche technique 3.08 semble devoir te concerner directement.

Bonsoir Raymond
Je travaille aussi avec NIMEGUE, que je connais bien
Si tu as exploré leurs tutos tu as du te rendres compte que ce n'est pas l'aspect des images que j'ai montré, celles ci viennent de Expoacte
Si j'avais accès à leur base ce serait facile, mais je ne peux que copier l'écran.
Avec une aide extérieur je commence à avancer mais toutes les aides sont bonnes à prendre
merci
Bonne soirée et nuit pour moi
Polo