Répondre à la discussion
Affichage des résultats 1 à 4 sur 4

Macro word : besoin d'aide.



  1. #1
    anissa76100

    Macro word : besoin d'aide.


    ------

    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.


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

    -----
    Dernière modification par yoda1234 ; 29/05/2009 à 09h42.

  2. #2
    sitalgo

    Re : Macro word : besoin d'aide.

    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.

    Code:
    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
    Dernière modification par yoda1234 ; 29/05/2009 à 09h43.
    Mais si t'as l'gosier, Qu'une armure d'acier, Matelasse. Brassens, Le bistrot.

  3. #3
    TiClic

    Re : Macro word : besoin d'aide.

    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

  4. #4
    anissa76100

    Re : Macro word : besoin d'aide.

    Merci à toi SITALGO. Ton code est parfait!

  5. A voir en vidéo sur Futura

Discussions similaires

  1. Macro WORD: cacher texte
    Par benjo031 dans le forum Logiciel - Software - Open Source
    Réponses: 30
    Dernier message: 22/11/2014, 14h07
  2. Besoin d'aide sur une fonctionnalité de MICROSOFT WORD 2007
    Par benji. dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 07/02/2009, 14h11
  3. Aide pour macro Word (2000)
    Par [weetabix] dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 23/06/2008, 17h22
  4. Cherche petite macro word
    Par azeto dans le forum Logiciel - Software - Open Source
    Réponses: 3
    Dernier message: 18/09/2007, 08h03
  5. Macro Word
    Par Eric78 dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 20/02/2005, 21h13
Découvrez nos comparatifs produits sur l'informatique et les technologies.