Comment sélectionner une ligne précise dans un document word [Résolu]

Messages postés
3
Date d'inscription
mercredi 11 juin 2008
Statut
Membre
Dernière intervention
12 juin 2008
- - Dernière réponse : cs_Jack
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
- 12 juin 2008 à 18:36
Bonjour,

Après les macros dans Excel, je m'initie au macro dans word

Voila ce à quoi je veux arriver :

faire une macro qui m'imprime un document avec en pied de page le texte " exemplaire à conserver" puis une deuxième impression avec en lieu et place le texte "exemplaire à nous retourner"

J'y arrive presque SAUF que mon texte "exemplaire à conserver" ou "exemplaire à nous retourner" se place là ou se trouve mon curseur au moment ou je lance la macro.

Il faut que je lui dise dans un premier temps d'aller se placer au début de la ligne 24, ce que je sais pas faire

Voici le bout de code (probablement pas optimisé !!!)
D'avance merci

   Selection.TypeText Text:="Exemplaire à conserver"
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Bold = wdToggle
    Selection.Font.Italic = wdToggle
    ActiveDocument.PrintOut
    Selection.TypeBackspace
    Selection.TypeText Text:="Exemplaire à nous retourner"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    Selection.Font.Italic = wdToggle
    Selection.TypeText Text:="BON POUR ACCORD" & vbTab & vbTab & vbTab & _
        "DATE :" & vbTab & vbTab & vbTab & "SIGNATURE CLIENT :"
    ActiveDocument.PrintOut
        Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
61
3
Merci
Salut
Je verrais 2 méthodes pour te positionner où tu le désires :

-1- Fais d'abord une recherche du texte à remplacer.
Exemple : Dans ton original, tu mets le texte "Texte à remplacer"
Au début de ta macro, tu fais une recherche de ce texte, il deviendra la "Selection" de Word
Pour coder cette recherche, enregistre une macro pendant que tu fais la manip à la main et va voir dans le code de la macro enregistrée.

-2- Les signets :
Tu définis un Signet à l'emplacement qui va bien (à l'emplacement) et modifie le contenu du signet par programme.
Ca devrait marcher.
Il faudra peut-être demander le rafraichissement du signet après modif
Le rafraichissement qu'on obtient en appuyant sur F9
Là aussi, enregistre une macro et appuies sur F9 pour découvrir le code équivalent

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 142 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Jack