Discussion :

[Tintou]

Bonjour,

Je suis pas un expert en word, j'ai plus pratiqué sur Access et là même si ça ne doit pas être sorcier je coince
Je voudrais simplement supprimer ce qui se trouve entre les signets: particlecount et particlecountend.

Depuis access, voila ce que je fais et ça marche très bien:

Code :

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

1
2
3
4
Set Signet1Rge = Doc.Bookmarks("startcontrolvolt1").Range
            Set Signet2Rge = Doc.Bookmarks("endcontrolvolt1").Range
            Set EffaceRge = Doc.Range(Signet1Rge.End, Signet2Rge.Start)
            EffaceRge.delete

Avec signet1Rge, signet2Rge et EffaceRge définit comme range et doc le document word dans lequel je travaille.

Pour ce qui de le faire dans word directement, j'ai créé un boutton, double cliquer dessus pour insérer le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Dim signet1 As Long
Dim signet2 As Long
Dim EffaceRge As Range
 
signet1 = ActiveDocument.Bookmarks("particlecount").Start
signet2 = ActiveDocument.Bookmarks("particlecountend").End
Set EffaceRge = ActiveDocument.Range(signet1, signet2)
EffaceRge.Delete

Il se trouve que quand je clic sur le bouton dans word, il ne se passe rien et quand j'essaie d'exécuter le code depuis la fenetre VBA, j'ai le message: erreur d'exécution 32809, Application-defined or Object-defined error.


Merci d'avance.

[Heureux-oli]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub testdel()
Dim aDoc As Document
Set aDoc = ActiveDocument
 
 
aDoc.Range(aDoc.Bookmarks("s1").Range.Start, aDoc.Bookmarks("s2").Range.End).Select
 
 
Selection.Delete
 
 
End Sub

Voilà le code que je viens d'essayer et il passe.
J'ai fait un peu plus compact.

[Tintou]

Merci pour ta réponse. Mais subitement il se trouve que la deuxième solution s'est mise à fonctionner !
Je ne comprends pas vraiment pourquoi, j'ai juste tout fermé puis réouvert...

[armin]

J'ai besoin de faire exactement ça, je tape le sujet, je trouve et teste ta solution en 30sec, ça marche parfaitement, et c'est bien compacte.

Merci !!!

Armin