posto il codice realizzato da giovanni zezza e da me modificato (per questo motivo probabilmente non sarà formalmente corretto) che mi ha permesso di risolvere il problema. probabilmente può essere visto come integrazione al post.

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
   

   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
       Selection.MoveRight Unit:=wdCharacter, Count:=12, Extend:=wdExtend

 codice = Selection.Text:
         'MsgBox codice
   
       doc_a.SaveAs ("c:\" & codice & ".doc")
       doc_a.Close
      
       'numero = numero + 1
   Next
   End Sub

è possibile usare come delimitazione l'interruzione di pagina?

io dovrei fare circa la stessa cosa sopra descritta, però su una file contenente una lettera tipo creata con stampa unione.

Ciao da Patrini
riporto la soluzione che Claudio (della IBM) che mi ha inviato via email

La soluzione richiede che il file di partenza contenga una stringa (variabile DELIM) che funga da delimitatore
Ho  scelto la stringa " \\\ " 

Il documento di partenza pertanto sarà cosi" composto

------- INIZIO-------------------

\\\
domanda 1
xxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx

\\\
domanda 2
yyyyyyyyyyyyyyyyyyyyy

\\\
domanda 3
zzzzzzzzzzzzzzzzzzzz
ZZZZZZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZ

------------------------------------FINE ---------

Questo è il testo della MACRO scritta da Claudio.

Sub test_split ()
'
' test_split1 Macro
' Macro created 23/03/2008 by IBM_20635

  Dim delim, nn, I, J, docc, vett
  Dim doc  As Document
 
  delim = "\\\"
  vett = Split(ActiveDocument.Range, delim)
  nn = UBound(vett)
  Set doc = Documents.Add
  ChangeFileOpenDirectory "C:\prova"
 
  For I = 1 To nn
     Set doc = Documents.Add
     doc.Range = vett(I)
     J = I + 500
     docc = CStr(J) + ".doc"
     doc.SaveAs FileName:=docc, FileFormat:=wdFormatDoc ument
     doc.Close True
      
 Next I

  VETT è un vettore che contiene il risultato della funzione SPLIT

  VETT(1) conterrà  
   domanda 1
   xxxxxxxxxxxxxxx
   xxxxxxxxxxxxxxxxxxx

  VETT(2) conterrà  
  domanda 2
  yyyyyyyyyyyyyyyyyyyyy

  VETT(2) conterrà  
  domanda 3
  zzzzzzzzzzzzzzzzzzzz
  ZZZZZZZZZZZZZZZZZZZZ
  ZZZZZZZZZZZZZZZZZZZZZZZZZ

  NN , risultato di UBOUND(vett) contiene il numero degli elementi di VETT,    nel nostro esempio 3

  DOC è il documento di lavoro

  DOCC è il nome con cui il documento viene salvato

  la macro costruirà 3 documenti :
     501.doc , 502.doc e 503.doc 

   501.doc conterrà  
   domanda 1
   xxxxxxxxxxxxxxx
   xxxxxxxxxxxxxxxxxxx

   502.doc conterrà  
   domanda 2
    yyyyyyyyyyyyyyyyyyyyy

    503.doc  conterrà  
    domanda 3
    zzzzzzzzzzzzzzzzzzzz
    ZZZZZZZZZZZZZZZZZZZZ
    ZZZZZZZZZZZZZZZZZZZZZZZZZ

  la soluzione proposta da Claudio risolve 
  perfettamenmte il mio problema 
  Bravo Claudio...... grazie.

  ciao da patrini   

  Ciao  Ricky53,grazie per l'interessamento;
 purtroppoo non ho prodotto nulla.....
 sono ancora al palo  e non so  come iniziare.

ciao da patrini

Ciao da Patrini
un doc. word ha un  contenuto simile a quello qui esemplificato 

--------------------inizio---------------------------------- ---
domanda 1
xxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx

domanda 2
yyyyyyyyyyyyyyyyyyyyy

domanda 3
zzzzzzzzzzzzzzzzzzzz
ZZZZZZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZ
------------------------fine-------------------------------- ---------------

 vorrei spezzare (in modo automatico e non manuale) il documento di partenza in  N documenti word, la prima riga di ogni documento conterrà la parola "domanda"  ; pertanto ogni documento  sarà composto dal titolo e dal testo di ogni singola domanda; 
I documenti prodotti si potranno chiamare
1.doc, 2.doc, 3.doc,ecc

il documento 1.doc conterra"
domanda 1
xxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxx

il documento 2.doc conterra"
domanda 2
yyyyyyyyyyyyyyyyyyyyy

il documento 3.doc conterra"
domanda 3
zzzzzzzzzzzzzzzzzzzz
ZZZZZZZZZZZZZZZZZZZZ
ZZZZZZZZZZZZZZZZZZZZZZZZZ

ho provato a costruire una macro con la registrazione,
ma senza successo....

ogni suggerimento sara" ben gradito

grazie e ciao da patrini