Macro word
Résolu
anissa76100
Messages postés
1
Statut
Membre
-
anissa76100 -
anissa76100 -
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.
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.
A voir également:
- Macro word
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Word et excel gratuit - Guide
- Espace insécable word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
4 réponses
A mon avis,c est le pied de page qui sera le plus simple a gerer
A quel endroit veux tu ecrire ( gauche, centre, droite ? ) et quels sont les mots qui doivent etre permutes ?
A quel endroit veux tu ecrire ( gauche, centre, droite ? ) et quels sont les mots qui doivent etre permutes ?
Rebonjour,
En fait en bas à droite de chaque page il doit être écrit :
Exemplaire pour le producteur (donc sur la page 1)
Exemplaire à garder (sur la 2ème page 2)
...
Merci beaucoup
En fait en bas à droite de chaque page il doit être écrit :
Exemplaire pour le producteur (donc sur la page 1)
Exemplaire à garder (sur la 2ème page 2)
...
Merci beaucoup
Insere le code ci dessous en gras à la place de ton texte
Dim numerodepage As Integer
'---------------------------
On Error Resume Next 'si ton document n'est pas protégé
ActiveDocument.Unprotect
On Error Goto 0
Selection.WholeStory 'sélectionne tout ton document
Selection.Copy 'Copie ta sélection dans le presse papier
'---------------------------
numeropage = 1
tu veux modifer des termes qui sont en pied de page, ou bien dans ton texte original ?
Dim numerodepage As Integer
'---------------------------
On Error Resume Next 'si ton document n'est pas protégé
ActiveDocument.Unprotect
On Error Goto 0
Selection.WholeStory 'sélectionne tout ton document
Selection.Copy 'Copie ta sélection dans le presse papier
'---------------------------
numeropage = 1
tu veux modifer des termes qui sont en pied de page, ou bien dans ton texte original ?
Merci beaucoup d'avoir répondu.
En fait j'ai le choix : soit modifier les termes en pied de pages soit les inclure dans le texte tout en bas. A la base ils devaient être en pied de page mais comme c'était trop difficile pour moi, je les ai intégré dans le corps du texte. Donc j'ai le choix : mais si tu sais modifier les pieds de pages ça serait le mieux car je garderai le format original.
Merci d'avance.
En fait j'ai le choix : soit modifier les termes en pied de pages soit les inclure dans le texte tout en bas. A la base ils devaient être en pied de page mais comme c'était trop difficile pour moi, je les ai intégré dans le corps du texte. Donc j'ai le choix : mais si tu sais modifier les pieds de pages ça serait le mieux car je garderai le format original.
Merci d'avance.