Diviser un Word en plusieurs fichiers Word [Résolu]
Répondre à la discussion
Affichage des résultats 1 à 5 sur 5

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



  1. #1
    alexandre-1210

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


    ------

    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 :

    Code:
    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

    -----
    Dernière modification par JPL ; 23/04/2020 à 00h16. Motif: ajout du code PHP pour garder l’indentation

  2. #2
    umfred

    Re : Diviser un Word en plusieurs fichiers Word

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

  3. #3
    alexandre-1210

    Re : Diviser un Word en plusieurs fichiers Word

    Bonsoir Umfred,

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

  4. #4
    umfred

    Re : Diviser un Word en plusieurs fichiers Word

    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).

  5. A voir en vidéo sur Futura
  6. #5
    alexandre-1210

    Re : Diviser un Word en plusieurs fichiers Word

    Ca marche très bien aussi chez moi !

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

Discussions similaires

  1. les fichiers ne s'ouvrent qu'n forme WORD. les types de fichiers sont tous devenus "Fichier LNK (.ln
    Par invite5c625c8a dans le forum Sécurité et malwares : désinfectez votre machine
    Réponses: 2
    Dernier message: 18/12/2013, 13h24
  2. Marquage apparu dans les documents Word (version Word 2002)
    Par invitee518b267 dans le forum Logiciel - Software - Open Source
    Réponses: 3
    Dernier message: 26/04/2012, 16h14
  3. [Word 2007]: diviser la fenêtre en deux
    Par ABN84 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 25/02/2010, 11h38
  4. deroute fichiers word
    Par invite653ac11c dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 12/03/2004, 19h09
Dans la rubrique Tech de Futura, découvrez nos comparatifs produits sur l'informatique et les technologies : imprimantes laser couleur, casques audio, chaises gamer...