Bonjour à tous,
Je dois pour mon travail faire une macro sous word 97 et j'ai un soucis. 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.
