Macro word : besoin d'aide.

[invitefdc81282]

Bonjour à tous,

Je dois pour mon travail faire une macro sous word 97 et j'ai un problème. 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 voudrai sélectionner toute la page. Or je n'y arrive pas. Je ne sais pas non plus comment faire pour copier 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.

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.
-----

[sitalgo]

B'jour,

Ca recopie 4 fois le document.
Pour le numéro de page, le plus simple est d'utiliser le pied de page.
Je n'ai pas prévu l'insertion du nom car il n'est pas dit où il doit être.

Sub recopie4()
ActiveDocument.Select
Selection.Copy
Selection.Collapse Direction:=wdCollapseEnd
For ii = 1 To 4
Selection.InsertBreak Type:=wdPageBreak
Selection.Paste
Next ii
End Sub

[invite770d9cfe]

Aucune chance pour que ça marche, beaucoup trop d'erreurs dans ton code :

‘nom étant le mot que je dois changer sur chaque page

1 - Pour les remarques, tu dois utiliser l'apostrophe et non pas le symbole ‘ (???)

Dim numerodepage As Integer

2 - Tu déclares numerodepage et tu utilises numeropage

ActiveDocument.Unprotect

3 - Si ta page n'est pas protégée, tu vas avoir une erreur ici, car tu n'as pas prévu de routine de gestion d'erreur dans le style

On Error Resume Next
ActiveDocument.Unprotect
On Error Goto 0

Selection.Copy problème pas de sélection de la page entière

4 - Tu as oublié de mettre en remarque tout ce qui suivait .Copy

nom = électricité

5 - "électricité" doit être mis entre guillemets (c'est une chaîne de caractères)

‘les 4 lignes suivantes ont été faite à l’aide de l’enregistreur !

6 - Voir erreur n° 1

Selection.ParagraphFormat.Alig nment = wdAlignParagraphLeft

7 - La méthode Alignment doit être en un seul mot
[/quote]

Selection.Past ‘ rien ne se passe

8 - .Paste et non pas .Past

nom = essence

9 - Voir erreur n° 5

[invitefdc81282]

Merci à toi SITALGO. Ton code est parfait!

[A voir en vidéo sur Futura]