Sauts de section et Macro VBA

**Chadel1991** · 12/10/2016, 10h23

Bonjour,

Je travaille actuellement sous Word 2007 et aurais besoin de l'aide de personnes éclairées en la matiére. En effet, je dispose d'un document Word déjà mis en page etc. comportant plus de 200 pages. Ces 200 pages correspondent chacune à une fiche produit, je souhaiterai enregistrer séparément chacune de ces fiches produits tel que j'obtienne 200 .doc au lieu d'un seul rassemblant ces 200 fiches.

J'ai lu sur certains forums qu'il convenait d'ajouter en amont d'une quelconque Macro des sauts de sections entre chaque page ; Or, je n'arrive pas à en ajouter (puis cela est trés long) entre les pages sans que cela ajoute une page blanche ou des sauts de lignes dans la partie haute de mes fiches.

Pourriez-vous m'aider à ce sujet ?

J'ai quelques connaissances en VBA mais assez éloignées pour être honnête :/

Merci !!

**Jean-Philippe André** · 12/10/2016, 14h21

Salut,

sujet tres proche ici :
http://www.developpez.net/forums/d67...-existe-pages/

**Chadel1991** · 12/10/2016, 15h05

Merci pour votre suggestion

! La macro fait le job mais malheureusement me décale toutes les marges et bordures vers la droite. En fait elle restandardise des marges qui sont quant à ells modifiées sur mon document source.

**Jean-Philippe André** · 12/10/2016, 15h10

Ca reste quelque chose qu'on doit pouvoir rectifier =]

Peux-tu nous montrer le code que tu as adapter et sur quelle etape tu penses avoir le probleme auquel tu fais reference ?

**Chadel1991** · 12/10/2016, 15h36

Envoyé par Jean-Philippe André

Ca reste quelque chose qu'on doit pouvoir rectifier =]

Peux-tu nous montrer le code que tu as adapter et sur quelle étape tu penses avoir le problème auquel tu fais référence ?

Je te remercie !!! Voici le code que j'utilise (en modifiant le chemin de destination, ici en rouge) :

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
Sub SeparerPages()
Dim intPage As Integer  'pour la page en cours
Dim intDoc As Integer   'pour le document
 
intDoc = 0
 
Do
intDoc = intDoc + 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut
Application.Documents.Add
Selection.Paste
ActiveDocument.SaveAs "c:\temp\document" & intDoc
ActiveDocument.Close
Debug.Print Selection.Information(wdNumberOfPagesInDocument)
Loop While Selection.Information(wdNumberOfPagesInDocument) > 1
ActiveDocument.SaveAs "c:\temp\document" & intDoc + 1
 
 
End Sub

En fait, tout au bord des pages de mes fiches catalogues se trouve un liseré établi selon une marge bien précise (modifiée). Or, quand les .doc unique à chaque page se créent ils repartent sur un émargement standard ce qui décale l'ensemble de mes colonnes, bordures, liserés.

Merci d'avance pour cette aide précieuse !

**Jean-Philippe André** · 12/10/2016, 15h46

L'idee serait alors qu'une fois le document cree, on lui remet les marges qui vont bien, essaie de voir avec l'enregistreur de macro le code qui est derriere, on trouvera une solution a partir de la.

**Chadel1991** · 12/10/2016, 16h07

C'est à dire ? Désolée, mes cours de VBA sont bien loin. Je connais la fonction "enregistrement macro" par contre mais qu'en faire ?

**Jean-Philippe André** · 12/10/2016, 16h16

Tu peux te servir du tutoriel Excel qui marche egalement pour Word
http://fauconnier.developpez.com/tut...istreur-macro/

1 - Tu declenches l'enregistreur
2 - tu effectues les modifications de marge dans ton interface
3 - tu arretes l'enregistreur
4- tu regardes et tu nous colles le code genere par l'outil.

**Chadel1991** · 12/10/2016, 16h20

Ok ! J'ai compris, ça se dépoussière petit à petit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro5()
'
' Macro5 Macro
'
'
    Selection.PageSetup.TopMargin = CentimetersToPoints(0.25)
    Selection.PageSetup.LeftMargin = CentimetersToPoints(1)
    Selection.PageSetup.RightMargin = CentimetersToPoints(1.25)
End Sub

Merci c'est génial l'Internet !