Discussion :

[petit rabot]

Bonjour, je cherche à effacer une page dans un document Word 2007 à partir de VB6.
Je m'explique:
Je remplis un rapport Word à partir de données récupérées par VB6, et en fonction des données, je dois garder ou effacer telle ou telle page.
Merci de votre aide.

[DarkVader]

Bonjour,
Quand on ne connait pas les méthodes à utiliser sous XL ou Word
(voir même Access sous certaines conditions)
il suffit d'enregistrer une macro, de regarder le code produit
puis de l'adapter aux besoins.

[petit rabot]

merci de ta réponse, mais j'avais déjà pensé à la macro.
Mais cela me montre comment sélectionner ligne par ligne, mais pas une page complète.
De plus, pour la sélection dans la macro, je suis obligé de positionner mon curseur, de maintenir la touche MAJ et de déplacer la flèche vers le bas jusqu'à la fin de ma sélection.
A la fin de la macro, le nombre de ligne à descendre et comment effacer celle-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' Effacer_ISO Macro
'
    Selection.MoveDown Unit:=wdLine, Count:=42, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1

[petit rabot]

Après plusieurs recherche, j'ai enfin réussi à réaliser ce que je voulais faire.
J'ai inséré un signet en début d'une page, puis un deuxième en début d'une autre, et sélectionné les données entre ces deux signets. Ensuite je peux faire ce que je veux de cette sélection.
Le code pour ceux qui sont intéressé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Effacer_ISO()
'
Dim myRange As Range
 
'Signet de début
    Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=5
    Selection.Bookmarks.Add Name:="ISOStart", Range:=Selection.Range
 
'Signet de fin
    Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=9
    Selection.Bookmarks.Add Name:="ISOEnd", Range:=Selection.Range
 
'sélection de la plage
    Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("ISOStart").Range.Start, End:=ActiveDocument.Bookmarks("ISOEnd").Range.End)
    myRange.Select
 
'copie de la plage de le presse papier
    Selection.Delete
 
End Sub

Merci DarkVader

[DarkVader]

Prend l'habitude de ne pas utiliser les select/selection/activate qui sont des objects spécifiques à l'éditeur de macros
Utilise directement les objects concernés (c'est valable pour XL)
ex.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    myRange.Select
 
'copie de la plage de le presse papier
    Selection.Delete

devrait être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    myRange.Delete