Exportation de paramètres d'une page word

 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/ 

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 
 

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