[WD-2007] Séparation après fusion & publipostage

[Joche]

Bonjour,

Suite à un publipostage d'un document word de 3 pages , je me retrouve avec un document word (issus du publipostage) de 174 pages.

Actuellement je cherche à séparer les documents de 3 pages en les enregistrant avec un nom spécifique .

Sur le site de microsoft j'ai trouvé une macro qui fait une découpe par page (j'ai essayé d'ajouter un compteur sans succès) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub BreakOnPage()
   ' Used to set criteria for moving through the document by page.
   Application.Browser.Target = wdBrowsePage
 
   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
 
      'Select and copy the text to the clipboard.
      ActiveDocument.Bookmarks("\page").Range.Copy
 
      ' Open new document to paste the content of the clipboard into.
      Documents.Add
      Selection.Paste
' Removes the break that is copied at the end of the page, if any.
      Selection.TypeBackspace
      ChangeFileOpenDirectory "D:\test_word"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_wordr" & DocNum & ".doc"
      ActiveDocument.Close
 
      ' Move the selection to the next page in the document.
      Application.Browser.Next
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

Merci d'avance pour votre aide.

[carden752]

Bonjour,

Word fusionne les documents en les séparant par des sauts de sections.
Je te conseille donc quelque chose de ce style à adapter :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub separesection()
dim s as section
' Parcours des sections
for each s in activedocument.sections
s.range.copy
Documents.Add
Selection.Paste
' Removes the break that is copied at the end of the page, if any.
Selection.TypeBackspace
ChangeFileOpenDirectory "D:\test_word"
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_wordr" & DocNum & ".doc"
ActiveDocument.Close
Next s
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

[Joche]

Merci pour ta réponse et désolé pour le retard de la mienne.

Je vais décortiquer ton script, et je vous tiens au courant.

[Heureux-oli]

Salut,

Le plus simple est de faire la séparation avant la fusion, si c'est dans ton cas possible.
On peut alors utiliser un ou plusieurs champs pour le nom du fichier.