J'ai deux macros qui en fait assigne des signets dans un document,
elles sont séparées parce qu'il y a une selection de texte
Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup
Mike
Sub MenuA()
'
' MenuA Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuA"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
Sub MenuHarmonie()
'
' MenuHarmonie Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuHarmonie"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
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
Kyrill
Bonjour Mike
peut etre du coté de l'instruction SetRange
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End par exemple permet d'étendre la sélection jusqu'a la fin du document --
Bonne journée
Kyrill
"mike" wrote in message news:
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document, elles sont séparées parce qu'il y a une selection de texte Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup Mike
Sub MenuA() ' ' MenuA Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuA" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Sub MenuHarmonie() ' ' MenuHarmonie Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuHarmonie" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Bonjour Mike
peut etre du coté de l'instruction SetRange
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End
par exemple permet d'étendre la sélection jusqu'a la fin du document
--
Bonne journée
Kyrill
"mike" <gnimitz@msn.com> wrote in message
news:mn.b2a57d4cf11d527b.15284@msn.com...
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document,
elles sont séparées parce qu'il y a une selection de texte
Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup
Mike
Sub MenuA()
'
' MenuA Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuA"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
Sub MenuHarmonie()
'
' MenuHarmonie Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuHarmonie"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End par exemple permet d'étendre la sélection jusqu'a la fin du document --
Bonne journée
Kyrill
"mike" wrote in message news:
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document, elles sont séparées parce qu'il y a une selection de texte Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup Mike
Sub MenuA() ' ' MenuA Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuA" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Sub MenuHarmonie() ' ' MenuHarmonie Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuHarmonie" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Gilles
Merci !!je vais cherché de ce côté là
Mike
Kyrill avait énoncé :
Bonjour Mike
peut etre du coté de l'instruction SetRange
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End par exemple permet d'étendre la sélection jusqu'a la fin du document --
Bonne journée
Kyrill
"mike" wrote in message news:
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document, elles sont séparées parce qu'il y a une selection de texte Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup Mike
Sub MenuA() ' ' MenuA Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuA" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Sub MenuHarmonie() ' ' MenuHarmonie Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuHarmonie" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Merci !!je vais cherché de ce côté là
Mike
Kyrill avait énoncé :
Bonjour Mike
peut etre du coté de l'instruction SetRange
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End
par exemple permet d'étendre la sélection jusqu'a la fin du document
--
Bonne journée
Kyrill
"mike" <gnimitz@msn.com> wrote in message
news:mn.b2a57d4cf11d527b.15284@msn.com...
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document,
elles sont séparées parce qu'il y a une selection de texte
Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup
Mike
Sub MenuA()
'
' MenuA Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuA"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
Sub MenuHarmonie()
'
' MenuHarmonie Macro
' Macro enregistrée le 22.12.2004 par Mike
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="MenuHarmonie"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Selection.SetRange Start:=Selection.Start,End:¬tiveDocument.Content.End par exemple permet d'étendre la sélection jusqu'a la fin du document --
Bonne journée
Kyrill
"mike" wrote in message news:
Bonjour !
J'ai deux macros qui en fait assigne des signets dans un document, elles sont séparées parce qu'il y a une selection de texte Comment les réunir en 1 macro ????, est-ce possible
ci -dessous les 2 macros
Merci beaucoup Mike
Sub MenuA() ' ' MenuA Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuA" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Sub MenuHarmonie() ' ' MenuHarmonie Macro ' Macro enregistrée le 22.12.2004 par Mike ' With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MenuHarmonie" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
