Discussion :

[anissa76100]

Bonjour à tous,

Je dois pour mon travail faire une macro sous word 97 et j'ai un souci. Je précise qu'avant une semaine, je n'y connaissais rien : j'ai donc lu des livres, des sites internet, ... Mais pas moyen d'arriver à finir ma macro. Voilà mon problème :
j'ai un formulaire d'UNE page word avec un titre, tableau et en tête de page. Je souhaite copier cette page 4 autre fois en dessous sur des pages différentes mais en changeant simplement un mot qui se trouve en bas de page et le numéro des pages qui doivent être de la forme 1/5.

Je commence par dévérouiller le formulaire, puis je voudrais sélectionner toute la page. Or je n'y arrive pas. Je ne sais pas non plus comment faire pour coller les nouvelles pages sur la page suivante sans sauter de page!

Je vous envoie mon programme que j'ai fait : j'ai réellement mis une semaine pour le faire et j'ai tout lu.

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
25
Sub Macro1()
   
Dim nom As String 
‘nom étant le mot que je dois changer sur chaque page
Dim numerodepage As Integer

ActiveDocument.Unprotect
Selection.Copy ‘problème pas de sélection de la page entière            
    numeropage = 1
    nom = électricité
   
‘les 4 lignes suivantes ont été faite à l’aide de l’enregistreur !
Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    

Selection.Past ‘ rien ne se passe
    numeropage = 2
    nom = essence
    
‘Faire comme ça jusqu’à la page 5    
        
End Sub

Merci de m'aider un peu si vous avez la solution ou même une partie de la solution.

[Heureux-oli]

Salut,

Pour les numéros de page, je ne comprends pas pourquoi les ajouter manuellement, puisque Word peut le faire pour toi.

Pour sélectionner le document, c'est assez simple.

Code :

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

1
2
3
4
5
6
7
8
 
Dim myR As Range
Set myR = ActiveDocument.Range
myR.WholeStory
myR.Copy
Selection.MoveEnd
Selection.Paste
Set myR = Nothing

Pour les cinq copies, il serait plus simple de faire une boucle.

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
Dim intI As Integer
For inti = 1 To 5
 
Select Case intI
Case 1
nom = "Électicité"
Case 2
nom = "Essence"
Case 3
...
End Select
Selection.MoveEnd
Selection.Paste
selection.MoveEnd
Selection.TypeText nom
Next intI