Sélectionner un bloc de texte avec VBA entre deux signets
2 réponses
Pascal T.
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une
macro-commande en VBA. Un de ses objectifs est de sélectionner un bloc de
texte dans un document Word, situé entre deux signets (pour le début et la
fin du bloc de texte). Ensuite, la macro doit effacer le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette
fonctionnalité?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Guy Marcil
Pascal T. was telling us: Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une macro-commande en VBA. Un de ses objectifs est de sélectionner un bloc de texte dans un document Word, situé entre deux signets (pour le début et la fin du bloc de texte). Ensuite, la macro doit effacer le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette fonctionnalité?
'_______________________________________ 'Déclare les nom des signets Const UnSignet As String = "signet1" Const DeuxSignet As String = "signet2"
'Déclare le variable Range Dim Signet1Rge As Range Dim Signet2Rge As Range Dim EffaceRge As Range
'Assigne les variables With ActiveDocument Set Signet1Rge = .Bookmarks(UnSignet).Range Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé '(Texte compris entre fin du premier signet 'et début du deuxième) Set EffaceRge = _ .Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets EffaceRge.Delete
End With '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
Pascal T. was telling us:
Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une
macro-commande en VBA. Un de ses objectifs est de sélectionner un
bloc de texte dans un document Word, situé entre deux signets (pour
le début et la fin du bloc de texte). Ensuite, la macro doit effacer
le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette
fonctionnalité?
'_______________________________________
'Déclare les nom des signets
Const UnSignet As String = "signet1"
Const DeuxSignet As String = "signet2"
'Déclare le variable Range
Dim Signet1Rge As Range
Dim Signet2Rge As Range
Dim EffaceRge As Range
'Assigne les variables
With ActiveDocument
Set Signet1Rge = .Bookmarks(UnSignet).Range
Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé
'(Texte compris entre fin du premier signet
'et début du deuxième)
Set EffaceRge = _
.Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets
EffaceRge.Delete
End With
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Pascal T. was telling us: Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une macro-commande en VBA. Un de ses objectifs est de sélectionner un bloc de texte dans un document Word, situé entre deux signets (pour le début et la fin du bloc de texte). Ensuite, la macro doit effacer le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette fonctionnalité?
'_______________________________________ 'Déclare les nom des signets Const UnSignet As String = "signet1" Const DeuxSignet As String = "signet2"
'Déclare le variable Range Dim Signet1Rge As Range Dim Signet2Rge As Range Dim EffaceRge As Range
'Assigne les variables With ActiveDocument Set Signet1Rge = .Bookmarks(UnSignet).Range Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé '(Texte compris entre fin du premier signet 'et début du deuxième) Set EffaceRge = _ .Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets EffaceRge.Delete
End With '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
Pascal T.
C'est exactement ce que je cherchais. Merci.
Pascal T. was telling us: Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une macro-commande en VBA. Un de ses objectifs est de sélectionner un bloc de texte dans un document Word, situé entre deux signets (pour le début et la fin du bloc de texte). Ensuite, la macro doit effacer le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette fonctionnalité?
'_______________________________________ 'Déclare les nom des signets Const UnSignet As String = "signet1" Const DeuxSignet As String = "signet2"
'Déclare le variable Range Dim Signet1Rge As Range Dim Signet2Rge As Range Dim EffaceRge As Range
'Assigne les variables With ActiveDocument Set Signet1Rge = .Bookmarks(UnSignet).Range Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé '(Texte compris entre fin du premier signet 'et début du deuxième) Set EffaceRge = _ .Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets EffaceRge.Delete
End With '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
C'est exactement ce que je cherchais. Merci.
Pascal T. was telling us:
Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une
macro-commande en VBA. Un de ses objectifs est de sélectionner un
bloc de texte dans un document Word, situé entre deux signets (pour
le début et la fin du bloc de texte). Ensuite, la macro doit effacer
le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette
fonctionnalité?
'_______________________________________
'Déclare les nom des signets
Const UnSignet As String = "signet1"
Const DeuxSignet As String = "signet2"
'Déclare le variable Range
Dim Signet1Rge As Range
Dim Signet2Rge As Range
Dim EffaceRge As Range
'Assigne les variables
With ActiveDocument
Set Signet1Rge = .Bookmarks(UnSignet).Range
Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé
'(Texte compris entre fin du premier signet
'et début du deuxième)
Set EffaceRge = _
.Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets
EffaceRge.Delete
End With
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Pascal T. was telling us: Pascal T. nous racontait que :
Bonjour,
Depuis quelques jours, je me butte à essayer de programmer une macro-commande en VBA. Un de ses objectifs est de sélectionner un bloc de texte dans un document Word, situé entre deux signets (pour le début et la fin du bloc de texte). Ensuite, la macro doit effacer le texte sélectionné.
Auriez-vous des exemples de code VBA permettant de réaliser cette fonctionnalité?
'_______________________________________ 'Déclare les nom des signets Const UnSignet As String = "signet1" Const DeuxSignet As String = "signet2"
'Déclare le variable Range Dim Signet1Rge As Range Dim Signet2Rge As Range Dim EffaceRge As Range
'Assigne les variables With ActiveDocument Set Signet1Rge = .Bookmarks(UnSignet).Range Set Signet2Rge = .Bookmarks(DeuxSignet).Range
'Assigne le texte à supprimé '(Texte compris entre fin du premier signet 'et début du deuxième) Set EffaceRge = _ .Range(Signet1Rge.End, Signet2Rge.Start)
'Supprime le texte entre les deux signets EffaceRge.Delete
End With '_______________________________________
-- Salut! _______________________________________ Jean-Guy Marcil - Word MVP
