Macro sous word

Bonjour,

Je ne sais si je peux poser cette question pour word sur votre forum, mais je n'ai pas trouvé de forum pour word , un ami m'a conseiller d'essayer sur votre forum.

Je viens de faire cette macro, avec l'enregistreur de macro.

Sub PageduMatin02()
'
' PageduMatin02 Macro
'
'
    Selection.Copy
    ChangeFileOpenDirectory _
        "C:\CHEMIN\"
    Selection.Copy
    ActiveDocument.SaveAs2 FileName:= _
        "CHEMIN\fichier.docx" _
        , FileFormat:=wdFormatXMLTemplateMacroEnabled, LockComments:=False, _
        Password:="", AddToRecentFiles:=True, WritePassword:="", _
        ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=15

End Sub

J'aimerai changer la première commande "Selection.Copy" par une commande qui sélectionne la première ligne de la page, ou les 12 premiers caractères de la première ligne de la page.

et qui colle la copy à chaque nouveau fichier enregistré-sous, car le jour et l'heure change.

La première ligne est un champ automatique Date et Heure.

Et j'aimerai à la fin de la macro, fermer word.

Merci.

Bonjour,

Je viens de trouver la solution.

Voici la macro finie et fonctionnelle.

Sub PageMatin()
'
' PageMatin Macro
'
'
'Sélection des 17 premiers caractères de la ligne Une (espace compris)
Set montexte = ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.Start + 17)
montexte.Copy
'création de la variable
Dim monFichier As String
'Appel de la variable
monFichier = montexte
'Enregistrement du fichier sous avec la variable dans le nom de fichier
ActiveDocument.SaveAs2 FileName:= _
"C:\CHEMIN\" & monFichier _
, CompatibilityMode:=15
' ferme word
Application.Quit
End Sub
Rechercher des sujets similaires à "macro word"