Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

Voici macro qui va sauvegarder chaque page d'un document en un fichier indépendant. 

Attention, la macro suivante ne fonctionnera pas sil le document est séparé par des sauts de section, comme les documents qui résultent d'un publipostage. Pour ce cas, veuillez voir la macro de cet article.

  

Sub coupe_pages()
   Application.Browser.Target = wdBrowsePage

   For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")

      'sélectionne et copie le texte vers le presse papier
      ActiveDocument.Bookmarks("\page").Range.Copy

      ' Ouvre un nouveau document et colle le texte du presse papier
      Documents.Add
      Selection.Paste

      ' ôte le saut de page si nécessaire
      Selection.TypeBackspace
      ChangeFileOpenDirectory "C:\"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
      ActiveDocument.Close

      ' page suivante
      Application.Browser.Next
   Next i
   ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub

 

 

 

Statistiques

Aujourd'hui1113
Hier2521
Cette semaine11527
Ce mois29607
Total depuis 200410765015

36
visiteurs actuellement en ligne