Comment sélectionner une ligne précise dans un document wordRésolu

Question

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

cs_Jack · Accepted Answer

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)

Comment sélectionner une ligne précise dans un document word

1 réponse

Votre réponse

Discussions similaires