Je recherche une macro pour diviser un document word par par page
et enregistrer le document page par page
une page = un document word
j'ai cette macro qui fonctionne page qui peut être une piste
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sous BreakOnPage() «Utilisé pour définir des critères pour se déplacer dans le document page par page. Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties("Nombre de pages") 'Sélectionnez et copiez le texte dans le presse-papiers ActiveDocument.Bookmarks ("\ page»). Range.Copy »Ouvrir un nouveau document pour coller le contenu du presse-papiers dans. Documents.Add Selection.Paste »Supprime la pause qui est copié à la fin de la page, le cas échéant. Selection.TypeBackspace ChangeFileOpenDirectory "C: \" DocNum = DocNum + 1 ActiveDocument.SaveAs FileName:="test_" & DocNum & ". Doc" ActiveDocument.Close "Déplacer la sélection à la page suivante dans le document Application.Browser.Next Suivant i ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub
merci
Partager