risolto.

posto il codice creato da giovanni zezza e modificato in base alle mie esigenza in moda che possa servire da esempio per problemi analoghi:
codice:
Public Sub separa_sezioni()
   Dim sezioni As Sections
   Dim sezione As Section
   Dim doc_da As Document
   Dim doc_a As Document
   Dim numero As Integer
    Dim brano As Range
    Dim codice As String
    Dim MyMsgBox As String
    
    MyMsgBox = InputBox("inserire data nel formato dd-mm-aa")
   Set doc_da = ActiveDocument
   Set sezioni = doc_da.Sections
   'numero = 1
   For Each sezione In sezioni
    Set brano = sezione.Range
        brano.Copy
        sezione.Range.Copy
        
        Set doc_a = Documents.Add
       doc_a.Range.Paste
      
        With Selection.Find
           .Wrap = wdFindStop
        .Execute FindText:="Cod.: "'cerca il termine che precede la sequenza numerica
      End With
        Selection.MoveStart Unit:=wdCharacter, Count:=6 'sposta la selezione di 6 caratteri (da modificare se i caratteri del termine sono maggiori)
       Selection.MoveRight Unit:=wdCharacter, Count:=12, Extend:=wdExtend'seleziona il codice(nel mio caso 12 caratteri)

 codice = Selection.Text:
         'MsgBox codice
    
       doc_a.SaveAs ("c:\lettere_foso\ap-" & codice & "-" & MyMsgBox & "-aut.doc")
       doc_a.Close
       
       'numero = numero + 1
   Next
   End Sub
@nicola75ss: ho guardato il link, molto interessante, appena ho tempo lo guardo meglio, purtroppo il mio inglese è un pò arruginito e la traduzione di google fa schifo. nè approfitto per rimettere in sesto quel poco che conosco.