word doc van 40 pag. automatisch opslaan in aparte pagina's?

[roos009]

Hallo iedereen,

Hopelijk kan iemand me informeren...?

Ik heb een 3 documenten in Word van 40 pagina's ( allemaal referentiefiches)
Nu zou ik deze fiches allemaal apart willen (niet in één doc)
is hier een snelfunctie voor? of moet ik echt één voor één knippen en plakken in nieuw doc?
Wat lastig is omdat ik met verschillende kop- en voetteksten zit...

Help? Anybody??

 

[pro pizza]

Misschien kan dit je verder helpen?

LINK

 

[roos009]

Thanks Pro Pizza :thumb:
i'll check it out!

 

[pro pizza]

Hier kun je nog meer vinden
LINK

En dit is een programmaatje die het ook zou moeten kunnen.
LINK

Mvg, Ruben

 

[roos009]

Dat programmaatje doet het niet
ik zoek verder... met je tips...

 

[ROSO]

Gebruik deze vba code
Groeten

Roso

Option Explicit 
 
Sub Afzonderlijk() 
     
    Dim x               As Long 
    Dim Sections        As Long 
    Dim Doc             As Document 
     
    Application.ScreenUpdating = False 
    Application.DisplayAlerts = False 
     
    Set Doc = ActiveDocument 
    Sections = Doc.Sections.Count 
    For x = Sections - 1 To 1 Step -1 
        Doc.Sections(x).Range.Copy 
        Documents.Add 
        ActiveDocument.Range.Paste 
        ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc") 
        ActiveDocument.Close False 
    Next x 
     
    Application.ScreenUpdating = True 
    Application.DisplayAlerts = True 
     
End Sub

 

[snb]

Wat markeert het begin/einde van een referentiefiche ?

 

[ROSO]

VB.......... Make Live easier samen komen we er wel.