Discussion :

[clem62173]

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

[carden752]

Bonjour,

Je suis désolé mais je n'ai pas compris ce que vous voulez faire ou alors où est-ce que vous bloquez.

[clem62173]

Bonjour,

Je souhaite enregistrer séparement Page Par Page mon document
et Chaque en tête et Pied de Page est différents (Lettre avec en tête)
Je souhaite enregistrer chaque Lettre séparément (comme modèle)

merci

le bout de code je l ai eu sur le site de microsoft or j'arrie pas a le mettre en place, l'execution bloque
http://support.microsoft.com/kb/216845/en-us

[Heureux-oli]

Salut,

Elle bloque sur quoi ?