Diviser un Word en plusieurs fichiers Word [Résolu]

[invite01ea8c3e]

Bonjour,

J'ai un fichier word qui contient beaucoup de pages (1 page = 1 patient) et j'aimerais le diviser en fichier word qui contient qu'une seule page que je renommerais NOMPrénom pour que ce soit plus simple pour accéder à la fiche du patient.

J'ai donc pris le script suivant donné par windows :

Sub Test()
   ' 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 "/Users/alexandre/Desktop"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_" & 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

Il marche presque, il a bien divisé en plusieurs fichiers word sauf à chaque fois j'ai 2 pages, la page du patient et la deuxième est une page blanche (qui n'était pas dans le document original). Comment y remédier?

D'avance je vous remercie
-----

[umfred]

ajouter une seconde ligne "Selection.TypeBackspace" après celle existante peut-être. Sinon à la main dans chaque fichier

[invite01ea8c3e]

Bonsoir Umfred,

J'ai ajouté une seconde ligne "Selection.TypeBackspace" mais aucun changement. Merci quand même

[umfred]

je viens de tester le code. En fait, il faut que toutes les pages se terminent par un "saut de page" (y compris la dernière).
et en mettant les 2 Selection.TypeBackspace, ça fait le job chez moi (et il faut se mettre sur la 1ère page du document pour que la macro fonctionne correctement).

[A voir en vidéo sur Futura]

[invite01ea8c3e]

Ca marche très bien aussi chez moi !

Merci beaucoup Umfred de m'avoir aidé ça va me permettre de gagner du temps !!